ASUNCION
28-12-2010, 15:43:27
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.
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.