Public Sub printManifest()
        ' Das Dokument erstellen und um den Ereignisbehandler ergänzen.
        Dim MyDoc As New PrintDocument
        AddHandler MyDoc.PrintPage, AddressOf MyDoc_PrintPage
        ' Den Anzeigenamen im Dialog bestimmen.
        MyDoc.DocumentName = "UPS Manifest"
 
        MyDoc.PrinterSettings.PrinterName = UPSManifestPrinter
        MyDoc.PrinterSettings.Copies = 2
 
        '' Dem Benutzer erlauben, Drucker und weitere Einstellungen _
          einzustellen.
        'Dim dlgSettings As New PrintDialog
 
        'dlgSettings.Document = MyDoc
        'Dim Result As DialogResult = dlgSettings.ShowDialog()
 
 
        '' Wenn der Benutzer auf OK geklickt hat, Dokument drucken.
        'If Result = DialogResult.OK Then
        '    ' Diese Methode wird sofort beendet, nachdem sie aufgerufen wurde.
        '    ' Die PrintPage-Ereignisse werden asynchron ausgelöst.
        'End If
        Try
            MyDoc.Print()
        Catch ex As Exception
            Dim pd As New PrintDialog
            If pd.ShowDialog = DialogResult.OK Then
                UPSManifestPrinter = pd.PrinterSettings.PrinterName
                MyDoc.PrinterSettings.PrinterName = UPSManifestPrinter
                MyDoc.Print()
                Dim ini As New IniReader(iniFile)
                ini.Write("Printer", "ManifestPrinter", UPSManifestPrinter)
            End If
        End Try
 
    End Sub