玄関へお回り下さい。
プリンターの一覧を取得及び指定のプリンターで印刷 (4個)    (SNo.053)

1.コンピューターにインストールされているすべてのプリンターの名前を取得
2.指定のプリンターで印刷する
使用コントロール Button1 ComboBox1  2.のみ必要(PrintDocument1)  Button2
その他条件 WindowsXP Visual Basic .NET 2003
 
1.コンピューターにインストールされているすべてのプリンターの名前を取得

Private Sub Button1_Click(ByVal sender As System.Object, _
                         
ByVal e As System.EventArgs) Handles Button1.Click
'コンピューターにインストールされているすべてのプリンターの名前を取得
    ComboBox1.Items.Clear()
   
For Each p As String In Printing.PrinterSettings.InstalledPrinters
        ComboBox1.Items.Add(p)
      '  Debug.WriteLine(p)
   
Next

    '又は
   
For i As Integer = 0 To Printing.PrinterSettings.InstalledPrinters.Count - 1
        Debug.WriteLine(Printing.PrinterSettings.InstalledPrinters.Item(i))
   
Next
End Sub

2.指定のプリンターで印刷する
別途、[1.コンピューターにインストールされているすべてのプリンターの名前を取得]でプリンターの一覧を取得しておいて下さい。

Private Sub Button2_Click(ByVal sender As System.Object, _
                         
ByVal e As System.EventArgs) Handles Button2.Click
'指定のプリンターで印刷
  
'ComboBox より希望のプリンターを選択
    PrintDocument1.PrinterSettings.PrinterName = ComboBox1.Text
    'プリンター名を直接指定しても可
    'PrintDocument1.PrinterSettings.PrinterName = "EPSON LP-800"
    '印刷
    PrintDocument1.Print()
End Sub


Private Sub PrintDocument1_PrintPage(ByVal sender As ObjectByVal e As _
        System.Drawing.Printing.PrintPageEventArgs) 
Handles PrintDocument1.PrintPage
'テスト印刷
    e.Graphics.DrawString("指定のプリンター『" & ComboBox1.Text & "』で印刷しました。", _
               
New Font("MS Pゴシック", 12), Brushes.Black, 0, 0)
End Sub







2004/05/10
2005/09/25


VBレスキュー(花ちゃん)
VB.NET2003  VB2005