获取打印机状态信息.docVIP

获取打印机状态信息 下面的代码可以判断所选打印机是否支持双面打印。如返回值为1，则表示支持双面打 印，返回值为0则表示不支持。 DeviceCapabilitiesA(Device,Port,DC_DVPLEX,nil,nil); 下面的代码可以获得一个打印机最多能复制的份数： DeviceCapabilitiesA(Device,Port,DC_COPIES,nil,nil); 使用GetDeviceCaps()函数确定所选设备的特定属性。在某些情况下，GetDeviceCaps()将返回所需 要的值。下面的代码以毫米为单位返回打印机设备的宽度： GetDeviceCaps(Printer.Handle,HORISIZE); 在另一些情况下，GetDeviceCaps()返回一个整数，这个整数经过位屏蔽可以获得打印机的某一性 能。例如，GetDeviceCaps()方法返回这样的整型值： RCaps:=GetDeviceCaps(Printer.Handle,RASTERCAPS); 然后，通过AND运算符屏蔽出RC_BANDING字段，进而确定打印机是否支持分段打印技术。 (RCapsandRC_BANDING)=RC_BANDING *************** 获取打印机状态信息 var pinfo: pPRINTERINFO2; pprt,a: Cardinal; b:PDWORD; begin b:=allocmem(256); pinfo:=AllocMem(1000); if OpenPrinter(HP DJ 200,pprt,nil) then begin a:=1000; if getprinter(pprt,2,pinfo,a,b) then showmessage(pinfo.pPrinterName+ ststus:+inttostr(pinfo.Status)); ClosePrinter(pprt); end; freemem(b); freemem(pinfo); end; PRINTER_INFO_2.Status : Windows NT: PRINTER_STATUS_PAUSED PRINTER_STATUS_PENDING_DELETION Windows 95: PRINTER_STATUS_BUSY PRINTER_STATUS_DOOR_OPEN PRINTER_STATUS_ERROR PRINTER_STATUS_INITIALIZING PRINTER_STATUS_IO_ACTIVE PRINTER_STATUS_MANUAL_FEED PRINTER_STATUS_NO_TONER PRINTER_STATUS_NOT_AVAILABLE PRINTER_STATUS_OFFLINE PRINTER_STATUS_OUT_OF_MEMORY PRINTER_STATUS_OUTPUT_BIN_FULL PRINTER_STATUS_PAGE_PUNT PRINTER_STATUS_PAPER_JAM PRINTER_STATUS_PAPER_OUT PRINTER_STATUS_PAPER_PROBLEM PRINTER_STATUS_PAUSED PRINTER_STATUS_PENDING_DELETION PRINTER_STATUS_PRINTING PRINTER_STATUS_PROCESSING PRINTER_STATUS_TONER_LOW PRINTER_STATUS_UNAVAILABLE PRINTER_STATUS_USER_INTERVENTION PRINTER_STATUS_WAITING PRINTER_STATUS_WARMING_UP 2、读取打印机状态 可用CREATEFILE以PRN为文件名生成一个文件，检测返回值，若成功则打印机可用，否则显示打印机故障。生成关于PRN的文件句柄后，可象普通文件一样向文件写入内容，比如WRITE，写完后关闭文件。 //从并行端口读取打印机状态 function GetPrinterStatus:byte; asm MOV DX,$379; IN AL,DX; end; //获取打印机是否出错 function CheckPrinter:boolean; var temp:byte; begin temp:=GetPrinterStatus; Result:=not ( ((temp and $80)=0) //打印机忙 or ((temp and $20)0) //打印机缺纸