Foros Club Delphi - Impresión directa en puerto USB

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Impresión directa en puerto USB (https://www.clubdelphi.com/foros/showthread.php?t=10552)

guillotmarc

21-05-2004 23:16:22

Impresión directa en puerto USB

Hola chicos.

No consigo realizar una impresión directa en impresoras por puerto USB. Utilizo este código (un clásico) para la impresión directa :

Código:

procedure Imprimir;

var Impresora: TextFile;

begin

  AssignFile(Impresora, 'LPT1');

  Rewrite(Impresora);

  WriteLn(Impresora, 'Hola Mundo');

  System.CloseFile(Impresora);

end;

Pero no sirve para impresoras USB. He probado por ejemplo, indicando el puerto USB001 que es el indica la impresora en el panel de control, pero no hace nada, crea un archivo.

¿ A alguien se le ocurre otra forma de enfocar el problema ?

Gracias y un saludo.

jachguate

22-05-2004 02:29:06

De la única forma que he logrado hacerlo, es compartiendo la impresora, y utilizando "el puerto" de la impresora compartida.

Digamos, comparto la impresora como Canon001, y luego envio la impresión con:

Código Delphi [-]Procedure Imprimir;

Var
  Impresora : TextFile;

Begin
  AssignFile(Impresora, '\\juancast\canon001');
  LoDemas;
end;

siendo juancast, claro, el nombre de mi equipo.

Hasta luego.

;)

guillotmarc

22-05-2004 12:05:08

Hola.

Pues me gusta mucho. Porque no tengo que cambiar nada en el programa :D (el puerto es configurable).

Creo recordar haber visto un código para imprimir directamente a una cola de impresión de Windows, pero antes de seguir buscándolo, tenia la esperanza de encontrar algo que no me obligase a cambiar el código para un solo cliente ;)

Gracias Juan Antonio.

La franja horaria es GMT +2. Ahora son las 06:30:22.