怎样能知道打印任务已经完成？300分(100分)

cypl · 2001-10-16

我想实现连续打印，比如100条记录打印在专门印制的100张连续的卡片上，一条记录打印在 一张卡片上，循环打印完，但中间想能控制，否则就一次发了100条打印信息，无法控制，我 就想当获取一条记录打印完成后的信息，然后在发第二条记录，这样好控制，但不知道如何 获取打印完成的信息，搜索了一下以前的帖子，找到了一段代码，但无法编译，帮忙看看！ 我还没搞懂API函数的用法，请各位帮忙指点一二，最好能详细讲讲，谢谢！ procedure Tform1.GetJobs(PrinterName: String); const   InfoLevel = 1;   FirstJob = 0;   LastJob = 19; var   Jobs: array [FirstJob..LastJob] of TJobInfo1;   PrinterHandle:Cardinal;   BytesNeeded, NumJobs: Cardinal;   I:integer;   jobid:Cardinal;   cur_row:integer;   rows

levariant; begin   if OpenPrinter(PChar(PrinterName),Printerhandle,nil) then begin     if EnumJobs(PrinterHandle,FirstJob,LastJob,1,InfoLevel,Jobs,SizeOf(Jobs),BytesNeeded,NumJobs) then begin       if NumJobs>0 then  begin           rows:=VarArrayCreate([0,10, 0, 0], varVariant);           for I := 0 to NumJobs-1 do begin             with Jobs do begin               cur_row:=VarArrayHighBound(rows, 2);               rows[0, cur_row]:=JobId;               rows[1, cur_row]:=StrPas(pPrinterName);               rows[2, cur_row]:=StrPas(pMachineName);               rows[3, cur_row]:=StrPas(pUserName);               rows[4, cur_row]:=StrPas(pDatatype);               rows[5, cur_row]:=StrPas(pDocument);               rows[6, cur_row]:=StrPas(pStatus);               rows[7, cur_row]:=Priority;               rows[8, cur_row]:=Position;               rows[9, cur_row]:=TotalPages;               rows[10, cur_row]:=PagesPrinted;             end;             VarArrayRedim(rows, cur_row + 1);             setJob(DevM,Jobid,0,@Jobs,JOB_CONTROL_PAUSE);         end;        lv.Items.Clear;        ListViewAddRows(rows,lv);        //ClosePrinter(PrinterHandle);       end;     end;   end; end;

cypl · 2001-10-16

我输的300分，怎么变成100分了？反正我给300分！

lyywy · 2001-10-16

EnumJobs VB声明 Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" (ByVal hPrinter As Long, ByVal FirstJob As Long, ByVal NoJobs As Long, ByVal Level As Long, pJob As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long 说明 枚举打印队列中的作业 返回值 Long，非零表示成功，零表示失败。会设置GetLastError 参数表 参数类型及说明 hPrinter Long，一个已打开的打印机对象的句柄（用OpenPrinter获得） FirstJob Long，作业列表中要枚举的第一个作业的索引（注意编号从0开始） NoJobs Long，要枚举的作业数量 Level Long，1或2 pJob Byte，包含 JOB_INFO_1 或 JOB_INFO_2 结构的缓冲区 cbBuf Long，pJob缓冲区中的字符数量 pcbNeeded Long，指向一个Long型变量的指针，该变量用于保存请求的缓冲区长度，或者实际读入的字节数量 pcReturned Long，载入缓冲区的结构数量（用于那些能返回多个结构的函数） SetJob VB声明 Declare Function SetJob Lib "winspool.drv" Alias "SetJobA" (ByVal hPrinter As Long, ByVal JobId As Long, ByVal Level As Long, pJob As Byte, ByVal Command As Long) As Long   说明   对一个打印作业的状态进行控制。 返回值 Long，非零表示成功，零表示失败。会设置GetLastError 参数表 参数类型及说明 hPrint Long，指定一个打开打印机的句柄（用openprinter取得） JobId Long，要修改的作业的编号 Level Long，0，1或2 pJob Byte，指定一个缓冲区。如级别（Level）设为1或2，那该缓冲区就包含了一个JOB_INFO_1或JOB_INFO_2结构。如级别为0，缓冲区为NULL（变成ByVal As Long，以便传递零值）。如指定了一个结构，则来自那个结构的信息会用于改变打印作业的设置（除JobId，pPrinterName，pMachineName，pDriverName，Size，Submitte以及Time字段外） Command Long，下述常数之一：                     JOB_CONTROL_CANCEL：取消作业 JOB_CONTROL_PAUSE ：暂停作业 JOB_CONTROL_RESTART：重新启动一个已开始打印的作业 JOB_CONTROL_RESUME：恢复一个暂停的作业

wjiachun · 2003-03-19

接受答案了.

怎样能知道打印任务已经完成？300分(100分)

cypl

Unregistered / Unconfirmed

cypl

Unregistered / Unconfirmed

lyywy

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads