应该怎样巧设打印机的自动联机

　　针式打印机在日常办公中仍大量使用，它不像激光或喷墨打印机，可以自动开始打印，所以在开始打印文档前，必须要手动联机。常用办公软件不具备自动联机功能，如何编程控制打印机自动联机，免去"举手之劳"呢?下面通过在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;

　　end;

　　说明：运行程序后，单击按钮，无论打印机当前状态如何，都能够保证自动联机，同时清空打印机缓冲区，使打印头复位