type  
      TForm1   =   class(TForm)  
          Label1:   TLabel;  
      private  
          {   Private   declarations   }  
          procedure   WM_SpoolerStatus(var   Msg   :   TWMSPOOLERSTATUS);message   WM_SPOOLERSTATUS;  
   
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.dfm}  
   
  procedure   TForm1.WM_SpoolerStatus(var   Msg   :   TWMSPOOLERSTATUS);  
  begin  
      //listbox1.items.add('   Jobs   currenly   in   spooler');  
      Label1.Caption   :=   IntToStr(msg.JobsLeft)   +  
                                          '   Jobs   currenly   in   spooler';  
   
      //msg.Result   :=   0;  
  end;  
  从网上找到的这段代码，可执行没结果呀？  
  请问大家有什么好方法呀，可以把打印任务提取出来，而且能选择性的删除打印任务中的某些任务呀？？？  
  问题点数：0、回复次数：12Top

5 楼GoldShield（李柏岑）回复于 2004-10-28 09:21:51 得分 0

unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,Printers,   WinSpool,  
      Dialogs,   StdCtrls;  
   
  type  
      TForm1   =   class(TForm)  
          Button1:   TButton;  
          Memo1:   TMemo;  
          procedure   Button1Click(Sender:   TObject);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.dfm}  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  function   PrinterStatusText(Status:   Integer):   String;  
  begin  
      case   Status   of  
          0:                                                         Result   :=   'Waiting';  
          JOB_STATUS_PAUSED:                         Result   :=   'Paused';  
          JOB_STATUS_ERROR:                           Result   :=   'Error';  
          JOB_STATUS_DELETING:                     Result   :=   'Deleting';  
          JOB_STATUS_SPOOLING:                     Result   :=   'Spooling';  
          JOB_STATUS_PRINTING:                     Result   :=   'Printing';  
          JOB_STATUS_OFFLINE:                       Result   :=   'Offline';  
          JOB_STATUS_PAPEROUT:                     Result   :=   'Paper   Out';  
          JOB_STATUS_PRINTED:                       Result   :=   'Printed';  
          JOB_STATUS_DELETED:                       Result   :=   'Deleted';  
          JOB_STATUS_BLOCKED_DEVQ:             Result   :=   'Blocked';  
          JOB_STATUS_USER_INTERVENTION:   Result   :=   'User   Intervention';  
          JOB_STATUS_RESTART:                       Result   :=   'Restart';  
      else   Result   :=   'Status   '   +   IntToStr(Status);  
      end;  
  end;  
  //  
  procedure   GetJobs(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  
      if   OpenPrinter(PChar(PrinterName),PrinterHandle,nil)   then   begin  
          if  
  EnumJobs(PrinterHandle,FirstJob,LastJob+1,InfoLevel,@Jobs,SizeOf(Jobs),BytesNeeded,NumJobs)   then   begin  
              JobList.Clear;  
              for   I   :=   0   to   NumJobs-1   do  
              with   Jobs[I]   do  
                  JobList.Add(Format('%s(%s)',[StrPas(pDocument),PrinterStatusText(Status)]));  
          end;  
          ClosePrinter(PrinterHandle);  
      end;  
  end;  
  begin  
  GetJobs('hp   deskjet   3500   series',Memo1.Lines);  
   
  end;  
   
  end.  
  Top

11 楼ksaiy（阳光总在风雨后）回复于 2004-11-08 04:29:09 得分 0

procedure   TForm1.Button6Click(Sender:   TObject);  
  var   id:string;  
            jobid:Cardinal;  
            ListItem:   TListItem;  
  begin  
      if   lv.Selected=nil   then   Exit;  
      id:=lv.Selected.Caption;  
      if   id=''   then   Exit;  
      if   MessageDlg('Are   you   sure   you   want   to   delete   this   Print   job?',  
          mtConfirmation,   [mbYes,   mbNo],   0)   =   mrNo   then     exit;  
   
      jobid:=StrToInt(id);  
      setJob(DevM,Jobid,0,@Jobs,JOB_CONTROL_CANCEL);  
   
      //ListItem:=lvt.Items.Add;  
      //listItem.Caption:=id;  
      //listItem.SubItems:=lv.Selected.SubItems;  
      ListViewDeleteRow(id,lv);  
   
  end;  
   
  procedure   TForm1.Button7Click(Sender:   TObject);  
  var  
      Dev,   Drv,   Prt:   Array[0..255]   of   Char;  
      DM1:   PDeviceMode;  
      DM2:   PDeviceMode;  
      Sz:   Integer;  
   
  begin  
   
      Printer.PrinterIndex   :=   -1;   {   1   Default   }  
      Printer.GetPrinter(Dev,   Drv,   Prt,   DevM);  
      If   OpenPrinter(Dev,DevM,nil)   then   Begin  
        //If   EnumJobs(DevM,0,10,1,@JI,SizeOf(TJOBINFO1)+128,Need,Return)   then   Begin  
        If   EnumJobs(DevM,0,20,1,@JI,SizeOf(JI),Need,Return)   then   Begin  
        if   Return<0   then   exit;  
   
        //if   EnumJobs(DevM,FirstJob,LastJob+1,InfoLevel,@Jobs,SizeOf(Jobs),BytesNeeded,NumJobs)   then   begin  
            showmessage(inttostr(ji[0].JobId));  
            showmessage(StrPas(Ji[0].pStatus));  
            If   JI[0].JobId>0   then     Begin  
                  showMessage(Format('正在打印:   %s   /   %d',[StrPas(JI[0].pStatus),JI[0].TotalPages]));  
            End;  
        end   else   showmessage('bad');  
  end;  
  end;  
  Top

评论