Cita:
Empezado por heroe
Probe tu código, pero me da el error 105.
|
Cielos, esperemos que con esto solucionemos el problema;
Código Delphi
[-]procedure Imprimir;
var Archivo: TextFile;
begin
AssignFile(Archivo, '\\Servidor\LPT1');
FileMode := fmOpenReadWrite;
{$I-} Reset(Archivo); {$I+}
if IoResult = 0 then
begin
Writeln(Archivo, 'Prueba');
CloseFile(Archivo);
end;
end;
Suerte