项目中使用标签打印机打印标签，由于客户是“自由爱好者”，处理两次“无法打印”的技术咨询后，写了个函数：
虽然CSDN语法中都没有了Delphi，但是WEBURL调用打印机快速打印不干胶标签，Delphi是我效率最高的选项。
//打印机队列任务数 失败返回 -1，否则为队列任务数量function GetPrinterTaskCount(PrinterName:String):Integer;implementationuses winspool;function GetPrinterTaskCount(PrinterName:String):Integer;varpHandle:THandle;LPStrBuf: Array [0..256] of Char; // 打印机名称NoJobs:Word; // 希望获取的作业数len:LongWord; // Job_Info 的字节数Job_Info: array[0..10] of JOB_INFO_1; // 打印队列信息cbNeeded:Cardinal;cReturned:Cardinal; //队列数量ret:LongBool;beginResult:=-1;if OpenPrinter('GP-5830 Series',pHandle,nil) thentrylen:= Sizeof(Job_Info);cbNeeded:=0;cReturned:=0;NoJobs:=10 ;if EnumJobs(pHandle,0 ,NoJobs,1,@Job_Info,len,cbNeeded,cReturned) thenbeginresult:= cReturned;end else Result:=-1;finallyif ( pHandle <> 0 ) then ClosePrinter( pHandle );end;end;
ok,加到项目中：
p:=nil;if cbx_Gprinter.ItemIndex<0 thenbeginisExit:=True;FTerminated:=False;Show();ShowMessage('请安装并设置，标签打印机！');Exit;endelsebegini:=GetPrinterTaskCount(cbx_Gprinter.Text);if i>0 thenbeginisExit:=True;FTerminated:=true;//Show();ShowMessage('打印机：'+cbx_Gprinter.Text+' 中存在 【 '+IntToStr(i)+' 】个打印任务，请等待打印完成或清空队列后再试！');Exit;end;end;
不解释了：
