uses printers;
// 將指定的印表機暫停列印
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;
// 使用範例
procedure TForm1.Button1Click(Sender: TObject);
begin
  PausePrinter('HP LaserJet 1100');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  ResumePrinter('HP LaserJet 1100');
end;