5,386
社区成员
发帖
与我相关
我的任务
分享打印机返回错误参数
哪位朋友帮助一下，我想打印的时候用程序检测打印机的状态，如果可用则打印，不可用转道别的打印机上打印，我用的是网络打印机。
问：如何检测？速度快不快呀，打印过程中出错可不可以转道其他的打印机上
问：如何检测？速度快不快呀，打印过程中出错可不可以转道其他的打印机上
...全文
请发表友善的回复…
发表回复
yanghai0437 2003-04-28
- 打赏
- 举报
//功能： 检测打印机是否连接正常 ,默认连接正常
//参数： 无
//返回值：连接正常返回true,否则返回false
//作者：杨海生
//日期：2003-04-09
function WsPrinterIsConnect : boolean;
var
myin : byte;
begin
Result := true;
if (GetVersion and $80000000) <> 0 then
begin
asm
mov dx,0
mov ah,2h
int 17h
mov myin,ah
end;
Result := not ((myin and $80)=0);
end ;
end;
我只试过本地打印机
//参数： 无
//返回值：连接正常返回true,否则返回false
//作者：杨海生
//日期：2003-04-09
function WsPrinterIsConnect : boolean;
var
myin : byte;
begin
Result := true;
if (GetVersion and $80000000) <> 0 then
begin
asm
mov dx,0
mov ah,2h
int 17h
mov myin,ah
end;
Result := not ((myin and $80)=0);
end ;
end;
我只试过本地打印机
