################ 谁知道在delphi中如何控制打印机的暂停？十万火急呀 ################## ( 积分: 100

################ 谁知道在delphi中如何控制打印机的暂停？十万火急呀 ################## ( 积分: 100 )<br />delphi中如何控制它，就像在打印上按右键的效果一样,立即暂停 <
然后弹出一对话框，让用户选择继续打印还是取消

delphi中如何控制它，就像在打印上按右键的效果一样,立即暂停 <
然后弹出一对话框，让用户选择继续打印还是取消

试试调用打印机的API,好象可以.

SetPrinter(pprt,0,NIL,PRINTER_CONTROL_PAUSE)

我用这种方法都控制不了，为什么,提示：拒绝访问
function PausePrinter(PrinterName:string):Boolean;
var p: Cardinal;
begin
result:=False;
if OpenPrinter(pchar(PrinterName),p,nil) then

begin
If not SetPrinter(p,0,NIL,PRINTER_CONTROL_PAUSE) then
begin
showmessage(SysErrorMessage(GetLastError));
end
else
Result:=true;
ClosePrinter(p);
end;
end;

function ResumePrinter(PrinterName:string):Boolean;
var p: Cardinal;
begin

result:=False;
if OpenPrinter(pchar(PrinterName),p,nil) then

begin

If not SetPrinter(p,0,NIL,PRINTER_CONTROL_RESUME) then

begin

showmessage(SysErrorMessage(GetLastError));
end
else
Result:=true;
ClosePrinter(p);
end;

end;
uses Printers,ShellAPI,winspool;