各位大大好：
以下是小弟所擷取的程式碼：
var
pi2:PRINTER_INFO_2;
hPrinter:THandle;
Jobs: array[0..1000] of TJobInfo2;
BytesNeeded, NumJobs: Dword;

begin
pi2.pPrinterName := 'SHARP AR-266FP SPDL2_T1';
// OpenPrinter(pi2.pPrinterName ,hPrinter,0);
if OpenPrinter(pi2.pPrinterName ,hPrinter,0) then
begin
while true do
begin
WaitForPrinterChange(hPrinter, PRINTER_CHANGE_ADD_JOB);
if EnumJobs(hPrinter, 0, 1000, 2, @Jobs, SizeOf(Jobs),
BytesNeeded, NumJobs) then
begin
if NumJobs <> 0 then
begin
with Jobs[NumJobs-1] do
showmessage(StrPas(pUserName) StrPas(pMachineName) StrPas(pDocument) Format('d',[TotalPages]));
end;
end;
end;
end;
end;

為何TotalPages所抓取的資料皆為零？
謝謝各位解答！

編輯記錄

雖然不是很能看懂這段程式, 不過就所發上來的程式段看不到 totpage 在那裡有計算值?
===================引 用 yclin 文 章===================
各位大大好：
以下是小弟所擷取的程式碼：
var
??? pi2:PRINTER_INFO_2;
??? hPrinter:THandle;
??? Jobs:?? array[0..1000]?? of?? TJobInfo2;
??? BytesNeeded,?? NumJobs:?? Dword;

begin
? pi2.pPrinterName?? := 'SHARP AR-266FP SPDL2_T1';
? // OpenPrinter(pi2.pPrinterName?? ,hPrinter,0);
? if?? OpenPrinter(pi2.pPrinterName?? ,hPrinter,0)?? then
??? begin
??? while?? true?? do
??? begin
??? WaitForPrinterChange(hPrinter,?? PRINTER_CHANGE_ADD_JOB);
??? if?? EnumJobs(hPrinter,?? 0,?? 1000,?? 2,?? @Jobs,?? SizeOf(Jobs),
??? BytesNeeded,?? NumJobs)?? then
??? begin
??? if?? NumJobs?? <>?? 0?? then
??? begin
??? with?? Jobs[NumJobs-1]?? do
? showmessage(StrPas(pUserName) StrPas(pMachineName) StrPas(pDocument) Format('d',[TotalPages]));
??? end;
??? end;
??? end;
??? end;
end;

為何TotalPages所抓取的資料皆為零？
謝謝各位解答！

===================引 用 P.D. 文 章===================
雖然不是很能看懂這段程式, 不過就所發上來的程式段看不到 totpage 在那裡有計算值?
===================引 用 yclin 文 章===================
各位大大好：
以下是小弟所擷取的程式碼：
var
??? pi2:PRINTER_INFO_2;
??? hPrinter:THandle;
??? Jobs:?? array[0..1000]?? of?? TJobInfo2;
??? BytesNeeded,?? NumJobs:?? Dword;

begin
? pi2.pPrinterName?? := 'SHARP AR-266FP SPDL2_T1';
? // OpenPrinter(pi2.pPrinterName?? ,hPrinter,0);
? if?? OpenPrinter(pi2.pPrinterName?? ,hPrinter,0)?? then
??? begin
??? while?? true?? do
??? begin
??? WaitForPrinterChange(hPrinter,?? PRINTER_CHANGE_ADD_JOB);
??? if?? EnumJobs(hPrinter,?? 0,?? 1000,?? 2,?? @Jobs,?? SizeOf(Jobs),
??? BytesNeeded,?? NumJobs)?? then
??? begin
??? if?? NumJobs?? <>?? 0?? then
??? begin
??? with?? Jobs[NumJobs-1]?? do
? showmessage(StrPas(pUserName) StrPas(pMachineName) StrPas(pDocument) Format('d',[TotalPages]));
??? end;
??? end;
??? end;
??? end;
end;

為何TotalPages所抓取的資料皆為零？
謝謝各位解答！


這個方法已經放棄，改用其他方式處理了..........
謝謝各位！