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

Вниз

перехват данных, посылаемых на печать другой программой...   Найти похожие ветки 

← →
Nat   (2007-01-25 17:58) [0]

Может подскажет кто... пишу прогу по перехвату отправления чужими программами отправки на печать документов... но не знаю как перехватить количество копий отправленных на печать документов и размеры документа, отправленного на печать...
Остальное уже умею, использую JOB_INFO_1_ARRAY
Буду очень благодарен...
Для WinXP

---

← →
TRUNK ©   (2007-01-26 12:32) [1]

Может этот код поможет:

var
 PrinterHandle: THandle;
 DeviceName: PChar;
 Buf: Pointer;
 BufSize: Integer;
 Orientation: SmallInt;
 PaperSize: SmallInt;
 Copies: SmallInt;
 PrintQuality: SmallInt;

procedure GetParams;
begin
BufSize := DocumentProperties(0,PrinterHandle,DeviceName,nil,nil,0);
Buf := nil;
ReallocMem(Buf,BufSize);
DocumentProperties(0,PrinterHandle,DeviceName,Buf,nil,DM_OUT_BUFFER);
Orientation := PDeviceMode(Buf)^.dmOrientation;
PaperSize := PDeviceMode(Buf)^.dmPaperSize;
Copies := PDeviceMode(Buf)^.dmCopies;
PrintQuality := PDeviceMode(Buf)^.dmPrintQuality;
ReallocMem(Buf,0);
end;

---

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

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

Наверх

Память: 0.46 MB
Время: 0.02 c