Mas simple de lo que parece.
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.
|