Qreport a Ticketeadora

[javier7ar]

Yo nunca logre imprimir desde quick report a una de esas impresoras, asi que si lo conseguis por favor pasa la solucion.

Yo lo que hago es abrir el puerto como si fuese un archivo de texto e imprimir con write o writeln (como se hacia desde DOS )

Código Delphi [-]
var
  F:TextFile;
begin
  AssignFile(F,'LPT1'); // Puede ser LPT1, LPT2, COM1, COM2, etc
  Rewrite(F);
  Write(F,#27#64); //Comando de inicializacion
  ...
  Writeln(F,'Lo que quiero imprimir');
  ...
  Write(F,#27#105); //Comando de corte de papel (si lo tiene la impresora)
  CloseFile(F);

Saludos