请问：delphi 如何获取打印机的作业记录？

[litterant]

各位大侠：
您们好!
请问：在delphi中 如何获取打印机的作业记录(如：打印的文件名称、所有者、页数、结果或状态、完成日期、计算机IP等)？
谢谢!

[litterant]

自已顶下，有知道的吗？

[mdejtod]

uses winspool,printers;

procedure GetJobsList(PrinterName: String; JobList: TStrings);
const
  InfoLevel = 1;
  FirstJob = 0;
  LastJob = 19;
var
  Jobs: array [FirstJob..LastJob] of TJobInfo1;
  PrinterHandle, BytesNeeded, I, NumJobs:cardinal;// Integer;
begin
  NumJobs := 0;
  if OpenPrinter(PChar(PrinterName),PrinterHandle,nil) then
  begin
    if EnumJobs(PrinterHandle,FirstJob,LastJob+1,InfoLevel,@Jobs,SizeOf(Jobs),BytesNeeded,NumJobs) then
    begin
      JobList.Clear;
      if NumJobs = 0 then Exit;
      for I := 0 to NumJobs-1 do
      begin
        JobList.Add( Format('%s(%s)',[StrPas(Jobs[I].pDocument),JobStatusText(Jobs[I].Status)]) );
      end;
    end;
    AbortPrinter  (PrinterHandle);
    ClosePrinter(PrinterHandle);
  end;
end;

[jjpweb]

标记一下下。

[lyhoo163]

引用 2 楼 mdejtod 的回复:

uses winspool,printers;

procedure GetJobsList(PrinterName: String; JobList: TStrings);
const
  InfoLevel = 1;
  FirstJob = 0;
  LastJob = 19;
var
  Jobs: array [FirstJob..LastJob] of TJobInfo1;
  PrinterHandle, BytesNeeded, I, NumJobs:cardinal;// Integer;
begin
  NumJobs := 0;
  if OpenPrinter(PChar(PrinterName),PrinterHandle,nil) then
  begin
    if EnumJobs(PrinterHandle,FirstJob,LastJob+1,InfoLevel,@Jobs,SizeOf(Jobs),BytesNeeded,NumJobs) then
    begin
      JobList.Clear;
      if NumJobs = 0 then Exit;
      for I := 0 to NumJobs-1 do
      begin
        JobList.Add( Format('%s(%s)',[StrPas(Jobs[I].pDocument),JobStatusText(Jobs[I].Status)]) );
      end;
    end;
    AbortPrinter  (PrinterHandle);
    ClosePrinter(PrinterHandle);
  end;
end;

顶一下。OK！

[litterant]

谢谢　　mdejtod