Delphi 7 travando na hora de imprimir
30/05/2016
0
Olá, sou novo em Delphi e estava tentando passar para minha impressora Bematech 4200 um comando de impressão:
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!
procedure TForm1.Button1Click(Sender: TObject);
var
Impressora: TextFile;
begin
AssignFile(Impressora, 'COM3');
ReWrite(Impressora);
WriteLn(Impressora, 'Teste.');
CloseFile(Impressora);
end;
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
Curtir tópico
+ 0
Responder
Posts
Clique aqui para fazer login e interagir na Comunidade :)