如何取消打印任務

[肥仔胧]

參照MSNDN,一下兩種方法都失敗

方法一:

procedure TForm1.Button1Click(Sender: TObject);
var
  phPrinter: Cardinal;
  BuffSize: Integer;
  PtrPrtrInfo2: PPrinterInfo2;
  iErr: Integer;
begin
  OpenPrinter('PDFCreator', phPrinter, nil);
  //ShowMessage(IntToStr(phPrinter));
  //GetPrinter(phPrinter, 2, nil, 0, @BuffSize );
  WinSpool.SetPrinter(phPrinter, 0, nil, PRINTER_CONTROL_PURGE);
  iErr := GetLastError;
  ShowMessage(IntToStr(iErr));
end;

方法二:

function AbortProc(h:HDC;iError:integer): Bool;stdcall;
begin
  result:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  phPrinter: Cardinal;
  iErr: Integer;
  dc: HWND;
begin
  OpenPrinter('PDFCreator', phPrinter, nil);
  dc := GetDC(phPrinter);
  iErr := SetAbortProc(phPrinter, AbortProc);
  //ShowMessage(IntToStr(iErr));
  iErr := GetLastError;
  ShowMessage(IntToStr(iErr));
end;

請問高手,是什麽原因

[hjkto]

帮顶

[肥仔胧]

up

[gyk120]

打印的文件是pdf？

[CCC的]

sc stop Spooler
PAUSE
sc config pooler start=auto
sc start Spooler
保存成.bat，然后运行不知道可不可以。网上看到的，呵呵

[肥仔胧]

up

[肥仔胧]

[Quote=引用 5 楼 hnlg81004 的回复:]
sc stop Spooler
PAUSE
sc config pooler start=auto
sc start Spooler
保存成.bat，然后运行不知道可不可以。网上看到的，呵呵
[/Quote]
我把文件拖入PDFCreator列表中,馬上處於打印,然後立即運行bat文件,還是繼續打印