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..
|
La franja horaria es GMT +2. Ahora son las 16:05:18. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi