[delphi-br] Impressao Direta

Tue, 23 Oct 2007 01:38:58 -0700 

Fazia impressao direta da seguinte maneira :

 

var

  Ctrl : ShortInt;

  Device : array[0..255] of char;

  Driver : array[0..255] of char;

  Porta  : array[0..255] of char;

  hDMode : THandle;

  Arquivo : TextFile;

begin

  PrinterDialog.Execute;

  Printer.GetPrinter( Device , Driver , Porta , hDMode );

  AssignFile(Arquivo,Porta);

  Rewrite(Arquivo);

  for Ctrl := 0 to Memo1.Lines.Count-1 do

    WriteLn( Arquivo , Memo1.Lines[Ctrl] );

  CloseFile(Arquivo);

end;

 

com Impressora LPT?  funciona tudo certo.

Agora em um Porta USB, ele cria um arquivo texto com o nome da Porta.

 

Como posso resolver isto ????

 

Antonio Pires

 

 



[As partes desta mensagem que não continham texto foram removidas]

Responder a