Главная страница
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.035 c
2-1159766533
inew
2006-10-02 09:22
2006.10.22
Перенос JPEG или BMP в MS Word


1-1157644726
i-am-vladko
2006-09-07 19:58
2006.10.22
Как получить инфо о property, об`явленом НЕ published?


3-1156442076
NORDmen
2006-08-24 21:54
2006.10.22
помогите советом с выбором BD для cgi проги


3-1156223726
northling
2006-08-22 09:15
2006.10.22
Ошибка при работе с параметрами Firebird 1.5


2-1160129335
iamdanil
2006-10-06 14:08
2006.10.22
Как узнать title страницы из twebbrowser?