Impresión directa en puerto USB

[guillotmarc]

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 :

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]

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]

Hola.

Pues me gusta mucho. Porque no tengo que cambiar nada en el programa (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.