Dim i As Integer
        Dim pkInstalledPrinters As String
 
        For i = 0 To printAngebot.PrinterSettings.InstalledPrinters.Count - 1
            pkInstalledPrinters = _
              printAngebot.PrinterSettings.InstalledPrinters.Item(i)
            druckercbo.Items.Add(pkInstalledPrinters)
        Next
 
        Me.druckercbo.SelectedIndex = 0