Como parar a impressao??

11/12/2003

1

:? Caros amigos,

Desenvolvi um programa que imprime cupom fiscal para uma locadora. Porem meu novo cliente utiliza impressora epson LX-300 para realizar a impressao, ai que ocorre o problema.

Quando termina de imprimir os dados, a impressora nao para de puxar o papel. É preciso desligar a impressora para cortar o papel.

Como fazer para que, ao terminar de imprimir os dados, pare a impressao?

Desde ja agradeco a ajuda.

Cordialmente,

eFelipe.
Feliz Natal e Otimo Ano Novo!!


Responder

Posts

11/12/2003

Barcelos

Olá,

Assumindo que você está usando TPrinter, use o comando Abort:
Vai aí um exemplo copiado da ajuda do Delphi:
---------------------------------------------------------------------------------
The following code aborts a print job if the user presses Esc. Note that you should set KeyPreview to True to ensure that the OnKeyDown event handler of Form1 is called.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key=VK_ESCAPE) and Printer.Printing then
begin
Printer.Abort;
MessageDlg(´Printing aborted´, mtInformation, [mbOK],0);
end;

end;
---------------------------------------------------------------------------------
Basta você adaptar à sua necessidade.

Espero ter ajudado,

Barcelos
osbarcelos@hotmail.com


Responder

14/12/2003

Efelipe

Caro amigo,

Nao funcionou. teria outra sugestao?

grato.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira