如何巧設印表機的自動聯機

2020-10-27 11:48:10

　　針式印表機在日常辦公中仍大量使用，它不像鐳射或噴墨列印機，可以自動開始列印，所以在開始列印檔案前，必須要手動聯機。常用辦公軟體不具備自動聯機功能，如何程式設計控制印表機自動聯機，免去"舉手之勞"呢?下面通過在Delphi中呼叫組合語言實現。

1、新建工程

　　在表單中新增一個按鈕控制元件Buttonl和一個標籤控制元件Labell，設定Buttonl的Caption為"自動聯機",Labell的Caption為"注意：自動聯機將清除正在打的檔案 "。

2、Button1的Click事件程式碼。

　　Procedure Tfom1.ButtonlClick(Sender.TObject);

　　Begin

　　Asm

　　//設定列印口為LPT1

　　mov dx.OH;

　　//初始化印表機

　　mov ah. O1H;

　　//功能呼叫

　　int 17H;

　　end;

　　說明：執行程式後，單擊按鈕，無論印表機當前狀態如何，都能夠保證自動聯機，同時清空印表機緩衝區，使列印頭復位