Como parar a impressao??
11/12/2003
0
:? 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!!
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!!
Efelipe
Curtir tópico
+ 0
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
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
Clique aqui para fazer login e interagir na Comunidade :)