Текущий архив: 2006.04.09;
Скачать: CL | DM;
Вниз
очередь принтера Найти похожие ветки
← →
Senator1979 (2006-01-16 12:30) [0]Подскажите пожалуйста, как получить кол-во копий документа, посланного на печать? В MSDN в структурах JOB_INFO_ не нашел.
И еще, статус печати PRINTED не всегда появляется при окончании печати.
← →
Rouse_ © (2006-01-16 12:45) [1]Вот тебе примерчик как очистить очередь печати - переделай на вывод информации:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, WinSpool;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
PrintersInfo, TmpPrintersInfo: PPrinterInfo1;
pcbNeeded, pcReturned, jpcbNeeded, jpcReturned: DWORD;
I, J: Integer;
hPrinter: THandle;
JobInfo, TmpJobInfo: PJobInfo3;
begin
EnumPrinters(PRINTER_ENUM_LOCAL, nil, 1, PrintersInfo, 0, pcbNeeded, pcReturned);
if GetLastError = ERROR_INSUFFICIENT_BUFFER then
begin
GetMem(PrintersInfo, pcbNeeded);
try
if EnumPrinters(PRINTER_ENUM_LOCAL, nil, 1,
PrintersInfo, pcbNeeded, pcbNeeded, pcReturned) then
begin
TmpPrintersInfo := PrintersInfo;
for I := 0 to pcReturned - 1 do
begin
if OpenPrinter(TmpPrintersInfo^.pName, hPrinter, nil) then
begin
EnumJobs(hPrinter, 0, 100, 1, nil,
0, jpcbNeeded, jpcReturned);
if GetLastError in [NO_ERROR, ERROR_INSUFFICIENT_BUFFER] then
begin
GetMem(JobInfo, jpcbNeeded);
try
if EnumJobs(hPrinter, 0, 100, 3, JobInfo,
jpcbNeeded, jpcbNeeded, jpcReturned) then
begin
TmpJobInfo := JobInfo;
for J := 0 to jpcReturned - 1 do
begin
if not SetJob(hPrinter, TmpJobInfo^.JobId, 0,
nil, JOB_CONTROL_DELETE) then RaiseLastOSError;
Inc(TmpJobInfo);
end;
end
else
RaiseLastOSError;
finally
FreeMem(JobInfo);
end;
end
else
RaiseLastOSError;
end
else
RaiseLastOSError;
Inc(TmpPrintersInfo);
end;
end
else
RaiseLastOSError;
finally
FreeMem(PrintersInfo);
end;
end
else
RaiseLastOSError;
end;
end.
Тебе нужно JOB_INFO_1
← →
Senator1979 (2006-01-16 12:48) [2]а в каком именно поле JOB_INFO_1 содержится количество копий документа ?
← →
Vile © (2006-01-16 13:27) [3]Количество копий можно получить из DEVMODE который есть в JOB_INFO_2:
typedef struct _JOB_INFO_2 { // ji2
DWORD JobId;
LPTSTR pPrinterName;
LPTSTR pMachineName;
LPTSTR pUserName;
LPTSTR pDocument;
LPTSTR pNotifyName;
LPTSTR pDatatype;
LPTSTR pPrintProcessor;
LPTSTR pParameters;
LPTSTR pDriverName;
LPDEVMODE pDevMode; <-----------
LPTSTR pStatus;
PSECURITY_DESCRIPTOR pSecurityDescriptor;
DWORD Status;
DWORD Priority;
DWORD Position;
DWORD StartTime;
DWORD UntilTime;
DWORD TotalPages;
DWORD Size;
SYSTEMTIME Submitted;
DWORD Time;
DWORD PagesPrinted ;
} JOB_INFO_2;
typedef struct _devicemode { // dvmd
BCHAR dmDeviceName[CCHDEVICENAME];
WORD dmSpecVersion;
WORD dmDriverVersion;
WORD dmSize;
WORD dmDriverExtra;
DWORD dmFields;
short dmOrientation;
short dmPaperSize;
short dmPaperLength;
short dmPaperWidth;
short dmScale;
short dmCopies; <-------------
short dmDefaultSource;
short dmPrintQuality;
short dmColor;
short dmDuplex;
short dmYResolution;
short dmTTOption;
short dmCollate;
BCHAR dmFormName[CCHFORMNAME];
WORD dmLogPixels;
DWORD dmBitsPerPel;
DWORD dmPelsWidth;
DWORD dmPelsHeight;
DWORD dmDisplayFlags;
DWORD dmDisplayFrequency;
#if(WINVER >= 0x0400)
DWORD dmICMMethod; // Windows 95 only
DWORD dmICMIntent; // Windows 95 only
DWORD dmMediaType; // Windows 95 only
DWORD dmDitherType; // Windows 95 only
DWORD dmReserved1; // Windows 95 only
DWORD dmReserved2; // Windows 95 only
#endif /* WINVER >= 0x0400 */
} DEVMODE;
← →
Senator1979 (2006-01-16 13:41) [4]to Vile: спасибо большое (помогло).
Может тогда подскажите:
при нормальной печати документа у меня получаеться окончательное значение статуса DELETING PRINTED PRINTING, но не всегда.
в чем может быть дело ?
← →
Vile © (2006-01-16 13:44) [5]у меня на личном опыте всегда выходило DELETING PRINTING. PRINTED же возможно редко улавливается из-за его мимолетного значения - этот статус ставится и сразу же задача прибивается.
← →
Rouse_ © (2006-01-16 13:46) [6]Ааа, тебе копии, я про количество страниц подумал :)
> у меня получаеться окончательное значение статуса DELETING
> PRINTED PRINTING,
В StatusMask ?
← →
Senator1979 (2006-01-16 13:53) [7]to Rouse_:
в DWORD Status из JOB_INFO_2
и еще, заметил, что при печати 2-х страничного документа из Word с малым содержанием текста - отображается, как 1-страничный документ
← →
Vile © (2006-01-16 14:03) [8]а в диспетчере чего видишь?
приведи кусок кода с отловом (цикл по сообщениям или как?!)
← →
Rouse_ © (2006-01-16 14:04) [9]
> в DWORD Status из JOB_INFO_2
Он содержит маску состояний возможных для текущей задачи...
← →
Senator1979 (2006-01-16 14:08) [10]и в диспетчере вижу 1 стр. Б.Гейтс сам себя перехитрил :-)
← →
Senator1979 (2006-01-16 14:10) [11]и все, таки: набор из каких событий однозначно говорит, что задача распечаталась?
еще интересная особенность: если документ многостраничный, то в TotalPages получается все время разная цифра (приходиться брать max)
← →
Vile © (2006-01-16 15:26) [12]Насчет двухстраничного документа - надо посмотреть в каком формате передается принтеру и тип дров (PS или PCL).
Состояние TotalPages постоянно меняется: грубо говоря напечатанные страницы переходят из корзины "TotalPages" в корзину "PagesPrinted" (это, кстати, в идеальном случае).
← →
Senator1979 (2006-01-16 16:43) [13]ok, спасибо за помощь
← →
Senator1979 (2006-01-18 15:48) [14]Возвращаясь к вопросу:
почему то у меня в структуре PRINTER_NOTIFY_INFO_DATA
в поле Field появляются не все возможные значения информации, хотя поле Type = JOB_NOTIFY_TYPE.
В частности нет JOB_NOTIFY_FIELD_DEVMODE, с кот. можно бы было вытянуть кол-во копий.
В чем может быть причина?
← →
Senator1979 (2006-01-19 17:28) [15]в общем одкопал, что для корректного подсчета копий страниц необходимо разбирать spool файл spl
что то не получаеться... кто подскажет как это сделать ?
Страницы: 1 вся ветка
Текущий архив: 2006.04.09;
Скачать: CL | DM;
Память: 0.51 MB
Время: 0.028 c
