针式打印机在日常办公中仍大量使用它不像激光或喷墨打印机可以自动开始打印所以我们在开始打印文档前必须要手动联机常用办公软件不具备自动联机功能如何编程控制打印机自动联机免去举手之劳呢?下面通过在Delphi中调用汇编语言实现 新建工程 在窗体中添加一个按钮控件Buttonl和一个标签控件Labell设置Buttonl的Caption为自动联机Labell的Caption为注意自动联机将清除正在打的文档 Button的Click事件代码 Procedure TfomButtonlClick(SenderTObject) Begin Asm //设置打印口为LPT mov dxOH; //初始化打印机 mov ah OH //功能调用 int H end end 说明运行程序后单击按钮无论打印机当前状态如何都能够保证自动联机同时清空打印机缓沖区使打印头复位以上程序在win Delphi 中调试通过成功实现了控制我种型号针式打印机自动联机 |