Printer物件

Printer物件可以實現與系統印表機的通訊

Printer物件常用的屬性有：Height,width,PaperSize,DeviceName等分別表示列印紙的長度，寬度，紙張大小，印表機名稱。

Printer物件有三個很重要的方法：EndDoc(開始列印),KillDoc(中斷列印)和NewPage(換頁).

例如：有一個“注意26日病毒！”提示要列印10份，並加頁碼，用如下程式段實現：

Private Sub command_Click()

Dim i As Integer

Dim str As String

str="注意26日病毒！"

Printer.FontName="黑體"

Printer.FontSize=26

For i=1 To 10

Printer.Print str

Printer.Print "第 " & Printer.Page & "頁"

Printer.NewPage

Next

Printer.EndDoc

End Sub