imprimir en impresora de red

[josemiguelbvs]

Con este sencillo ejemplo deberia funcionar en Red. Con cualquier tipo de puerto (Usb, Ethernet, LPT, o COM). Yo lo uso hace anos sin ningun problema.

La unica salvedad es que debera estar compartida tu impresora. Y luego usar una asignacion en formato UNC para imprimir.

Port := '\\Server\Impresora'; // Server=Nombre del equipo donde se conecta la impresora. Impresora=Nombre de la impresora compartida.


Port := '\\Server\Impresora';
AssignFile(MyFile, Port);
try
Rewrite(MyFile);
except
ShowMessage( 'Impresora conectada en puerto: ' + Port + '. No funciona.');
end;

Write(MyFile, Chr(27) + chr(64)); // reseteo impresora;
...
...

Writeln(MyFile, 'Imprimo algo...' );
...
...

Write(MyFile, chr(29) + chr(86)+ chr(49)); // Corta Papel


Espero, te sirva.

Saludos

Jose Miguel Bakulic V.