Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.22;
Скачать: CL | DM;

Вниз

Печать файлов через спулер   Найти похожие ветки 

 
man Yurik ©   (2006-09-14 20:44) [0]

Добрый вечер/день.

Пытаюсь сделать печать на матричный принтер через спулер не выходит (Delphi2005+Win2003).
Не работает следующий код :


type
 ADDJOBINFO1 = record
   Path  : PChar;
   JobID : DWORD;
 end;

 PADDJOBINFO1=^ADDJOBINFO1;

var
 FPrinterHandle : THandle;
 FJob           : PADDJOBINFO1;
 pcbNeeded      : DWORD;
 NoFindPrinter  : boolean;

procedure TfmDisplayFile.FormCreate(Sender: TObject);
var
 i: integer;
begin
 NoFindPrinter:=True;
 GetMem(FJob,SizeOf(FJob));
 for i:=1 to Printer.Printers.Count do
 if gvPrinter=Printer.Printers[i-1] then
 begin
   NoFindPrinter:=False; //устанавливаем,что принтер найден
   if OpenPrinter(PChar(gvPrinter),FPrinterHandle,nil) then break
   else NoFindPrinter:=True;
 end;
end;

procedure TfmDisplayFile.Click(Sender: TObject);
     //Добавляем задание печати, получаем имя файла в директории windows\spoool\

     if not AddJob(FPrinterHandle,1,FJob,4096,pcbNeeded) then
     showmessage(inttostr(GetLasterror));
     mDisplayMessage.Lines.SaveToFile(FJob.Path);
     ScheduleJob(FPrinterHandle,FJob.JobID);
       //if GetLastError<>0 then;
   end;
end;

 
Вроде сделано по "теории" но после вызова AddJob  GetLastError=87

Заранее благодарен
Юра


 
man Yurik ©   (2006-09-14 20:48) [1]

Спасибо разобрался - принтер был не локальный



Страницы: 1 вся ветка

Текущий архив: 2006.10.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.05 c
6-1148482475
Veetyok
2006-05-24 18:54
2006.10.22
иероглифы при чтении почты


2-1159905689
Лиля
2006-10-04 00:01
2006.10.22
Как закодировать?


8-1142413525
:-))
2006-03-15 12:05
2006.10.22
Перехват звука


2-1159963951
Sergey_b
2006-10-04 16:12
2006.10.22
Динамическое создание форм


2-1159978351
Дом
2006-10-04 20:12
2006.10.22
Реестр и бинарные данные