Delphi 7 travando na hora de imprimir

30/05/2016

3

Olá, sou novo em Delphi e estava tentando passar para minha impressora Bematech 4200 um comando de impressão:

procedure TForm1.Button1Click(Sender: TObject);
var
Impressora: TextFile;
begin
AssignFile(Impressora, 'COM3');
ReWrite(Impressora);

WriteLn(Impressora, 'Teste.');

CloseFile(Impressora);
end;



Por ser USB, eu instalei seu Spooler e a coloquei como impressora padrão, comunicando-se pela COM3.
No Delphi XE5, eu conseguia imprimir normalmente, porém no Delphi 7 quando eu clico no botão simplesmente trava o programa e eu preciso finaliza-lo no gerenciador de tarefas. Alguém saberia me dizer o que está acontecendo? obrigado!
Vitor Ferreira

Vitor Ferreira

Responder

Posts

09/06/2017

Aldo Giordano

Passando pela mesma situação
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar