5,939
社区成员
发帖
与我相关
我的任务
分享在票据打印过程中，如果发出打印指令但打印机不工作该怎么办？
我曾经遇到过这样的问题，在程序中先将一条记录存进数据库中，然后再发出一条打印指令将刚才的数据输出到发票上；可是有时候数据虽然存进库里了，但打印机却不工作，请问有什么办法能判断打印指令发出后打印机是否工作了？
热切的希望各位能帮小弟解决这个问题！
热切的希望各位能帮小弟解决这个问题！
...全文
请发表友善的回复…
发表回复
manboo 2003-07-07
- 打赏
- 举报
先检测打印机状态啊
我真的是大海 2003-07-07
- 打赏
- 举报
先判断打印机状态，检测正常后再打印
//从并行端口读取打印机状态
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;
csdnmcq 2003-07-07
- 打赏
- 举报
神啊！救救我吧！
csdnmcq 2003-07-07
- 打赏
- 举报
怎么还是没有人帮我解决这个问题？！高手今天都放假了吗？
csdnmcq 2003-07-07
- 打赏
- 举报
谢谢了！Geranium 大哥！
Geranium 2003-07-07
- 打赏
- 举报
帮你UP下~
csdnmcq 2003-07-07
- 打赏
- 举报
在线等待中。。。
csdnmcq 2003-07-07
- 打赏
- 举报
难道各位都没有遇到过这样的问题吗？小弟可是诚心求教的！
