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:


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 :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.