Главная страница
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.074 c
2-1159778266
laok
2006-10-02 12:37
2006.10.22
Как узнать что пользователь не работает с программой уже...


15-1159870812
IMHO
2006-10-03 14:20
2006.10.22
Сертификаты в Firefox-е


2-1159794490
Зацени
2006-10-02 17:08
2006.10.22
Задачка


9-1137704114
Amaterasu
2006-01-19 23:55
2006.10.22
Анимация


3-1156851812
novill
2006-08-29 15:43
2006.10.22
Ошибка при IBEventAlerter.RegisterEvents;