Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Shown
        Dim i As Integer
        For i = 0 To _
          System.Drawing.Printing.PrinterSettings.InstalledPrinters.Count - 1
            CBX_Drucker.Items.Add( _
            System.Drawing.Printing.PrinterSettings.InstalledPrinters.Item(i))
        Next
    End Sub
 
    Private Sub CBX_Drucker_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles CBX_Drucker.SelectedIndexChanged
        CBX_Schaechte.Items.Clear()
        Dim i As Integer
        PrintDocument1.PrinterSettings.PrinterName = CBX_Drucker.Text
        For i = 0 To PrintDocument1.PrinterSettings.PaperSources.Count - 1
            CBX_Schaechte.Items.Add( _
              PrintDocument1.PrinterSettings.PaperSources.Item(i).SourceName)
        Next
    End Sub
End Class