Dim frm As New PrintDialog
        With frm
 
            ' Der Druckvorschau das Dokument zuweisen.
            .Document = _pd
            .Document.DocumentName = "Vorhaben: " & _p.Name
            .Document.DefaultPageSettings.Margins = New _
              System.Drawing.Printing.Margins(78, 78, 100, 78)
            .Document.DefaultPageSettings.Landscape = True
            .Document.DefaultPageSettings.PaperSize = New _
              System.Drawing.Printing.PaperSize("A3", 1169, 1654)
            .Document.DefaultPageSettings.PrinterSettings.DefaultPageSettings.P_
            aperSize = New System.Drawing.Printing.PaperSize("A3", 1169, 1169)
            .Document.PrinterSettings.DefaultPageSettings.PaperSize.RawKind = _
            Printing.PaperKind.A3
            .PrinterSettings.DefaultPageSettings.PaperSize.RawKind = _
            System.Drawing.Printing.PaperKind.A3
            If .ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
                .Document.DefaultPageSettings.PrinterSettings.PrinterName = _
                  .Document.PrinterSettings.PrinterName
                .Document.Print()
            End If
        End With
        frm = Nothing