Imprimir por Puerto Com1
 

Saludos a todos,

tengo una aplicacion en la cual generero una cantidad de numero para numerar unos formularios en una impresora especial marca (Data Kerning CDS-600), esta impresora se conecta por el con uno a la PC, con estas lineas de codigo envio los numeros generados al printer:

procedure TForm1.bImprimirClick(Sender: TObject);
var i: integer;
begin
qSecuencia.First;
while not qSecuencia.Eof do
begin
ComPort.Open;
ComPort.WriteStr(' '
+qSecuenciaSecuencia.Text
+#13#10+#13#10+#13#10+#13#10+#13#10+#13#10+#13#10+#13#10
+#13#10+#13#10+#13#10+#13#10+#13#10+#13#10);
ComPort.WriteStr(' '+qSecuenciaSecuencia.Text+#13#10);
comport.Close;
qSecuencia.next;
end;
end;

Todo se imprime perfecto siempre y cuando no detanga la impresora si la pongo offline, el programa continua enviadole las informaciones y cuando la pongo en onLine nuevamente, me da un error de buffer y tengo que empezar nuevamente.

Estoy utilizando el componente TcomPort y trabajo con delphi 7, existe alguna propiedad que tenga que modificar del componente TcomPort ya que dejé todo por defecto o existe una forma para detener la aplicación si la impresora no esta activa.

El TComPort tiene un metodo WriteAsync, prueba a usarlo mirando el ejemplo en el help..