選擇印表機輸出

Dim i As Integer  Private Sub Form_Load()  '利用 Printers 集合物件取得所有印表機
For i = 0 To Printers.Count - 1
    '在 Combo1 中加入印表機名稱
    Combo1.AddItem Printers(i).DeviceName  Next  '將目前的預設印表機放在 Combo1.Text 中
Combo1.Text = Printer.DeviceName
End Sub
Private Sub Combo1_Click()
'選定印表機  Set Printer = Printers(Combo1.ListIndex)  End Sub  Private Sub Command1_Click()  PrintForm  Printer.EndDoc  End Sub