哪位朋友帮助一下,我想打印的时候用程序检测打印机的状态,如果可用则打印,不可用转道别的打印机上打印,我用的是网络打印机。
问:如何检测?速度快不快呀,打印过程中出错可不可以转道其他的打印机上

解决方案 »

  1.   

    //功能:  检测打印机是否连接正常 ,默认连接正常
    //参数:  无
    //返回值:连接正常返回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;我只试过本地打印机