5,391
社区成员
发帖
与我相关
我的任务
分享如何在WIN2000读取打印机状态？？？？UP有分啦……………………
如何在WIN2000读取打印机状态？？？？包括打印机的电源有没有开，缺纸，联机等状态！能不能给出详细解答？？？？？？？？？？
...全文
请发表友善的回复…
发表回复
WWWWA 2003-01-13
- 打赏
- 举报
试这个如何：
//从并行端口读取打印机状态
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) //打印机缺纸
or ((temp and $10)=0) //打印机未联机
or ((temp and $08)=0) ); //打印机出错;
end;
//从并行端口读取打印机状态
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) //打印机缺纸
or ((temp and $10)=0) //打印机未联机
or ((temp and $08)=0) ); //打印机出错;
end;
yang_jl 2003-01-03
- 打赏
- 举报
帮忙UP的都有分啦！！！！！！！！！！！！！！！！！！！！！
yang_jl 2003-01-03
- 打赏
- 举报
难道真的没有解吗？？？？
顶一下………………
顶一下………………
xiufengy 2003-01-02
- 打赏
- 举报
同意楼上的
Billy_Chen28 2003-01-02
- 打赏
- 举报
估计不能在NT上做到
cgh1970 2003-01-02
- 打赏
- 举报
up
