Печать текстового файла на сетевой принтер

[VAbramyak]

Здрасте! Нужна помощь.
Надо в делфи написать отправку файла prn на печать в текстовом режиме на принтер который подключен к LPT порту как с локального компа так и из сети. Пробовал использовать это

function TForm3.SpoolFile(const FileName, PrinterName: string): Integer;
var
Buffer: record
JobInfo: record // ADDJOB_INFO_1
Path: PChar;
JobID: DWORD;
end;
PathBuffer: array[0..255] of Char;
end;
SizeNeeded: DWORD;
Handle: THandle;
PrtName: string;
ok: Boolean;
begin
// Flush job to printer
PrtName := PrinterName;
if PrtName = '' then
PrtName := Printer.Printers[Printer.PrinterIndex]; // Default printer name
ok := False;
if OpenPrinter(PChar(PrtName), Handle, nil) then
if AddJob(Handle, 1, @Buffer, SizeOf(Buffer), SizeNeeded) then
if CopyFile(PChar(FileName), Buffer.JobInfo.Path, True) then
if ScheduleJob(Handle, Buffer.JobInfo.JobID) then
ok := True;
if not ok then
Result := GetLastError
else
Result := 0;
end;

с локального проходит, а с сетевого нет. Обламывается на AddJob
вызов
для локалки
if SpoolFile('c:\test.prn', 'Epson FX-1050') , а для сети я так понял надо писать расшаренное имя
if SpoolFile('c:\test.prn', '\\host\Epson FX-1050')

Может я что не так делаю или есть варианты другие получше.
Если можно с примером! Спасибо!

[Alar]

Вообще, на сколько я знаю. можно отправить просто на печать. а вот в настройках винды, надо установить принтер, который печатает по умолчанию.

[dron-s]

печать выполняется на том пинтере, что выбран пол умолчанию и не важно сетевой он или локальный...

[rpy3uH]

есть такой класс TPrinter, посмотри в справке дельфи, потом что непонятно отпишись, этот класс получает список всех доступных принтеров а ты просто указываешь индекс принтера из списка на котором хочешь печатать