本人开发单位票据打印时编写的,反复调试。
开发软件:RAD Studio XE 系统:Windows 10 企业长期服务版
函数:fGetDefaultPrinter
function fGetDefaultPrinter: String;stdcall;external 'CheckPrinter.dll'
说明:检查当前系统是否安装了打印机
-------------------------------------------------------------------------------
函数:fCheckPrinterStatus
function fCheckPrinterStatus: Integer;stdcall;external 'CheckPrinter.dll'
返回值 返回值说明
------------------
0 正常
1 暂停
2 出错
3 搁置删除
4 卡纸
5 出纸
6 手动送纸
7 纸张问题
8 脱机
9 (IO)输入/输出活跃
10 繁忙
11 打印中
12 输出仓满
13 不可用
14 等待中
15 处理中
16 初始化
17 预热
18 墨粉不足
19 缺墨粉
20 纸张有问题
21 用户干预
22 打印机内存不足
23 仓门开
24 打印服务未知
25 节能
26 未知错误(默认返回值)
27 捕获异常
28 打印机检查函数异常
1