Private Function Druckerauswahl(ByVal PD As Printing.PrintDocument) As Boolean
        Using Dialog_Form As New Form2()
            With Dialog_Form
                .ShowInTaskbar = True
                For Each str_Drucker In _
                  Printing.PrinterSettings.InstalledPrinters
                    .ComboBox1.Items.Add(str_Drucker)
                Next
                .ComboBox1.SelectedIndex = .ComboBox1.FindString( _
                  PD.PrinterSettings.PrinterName)
                .ShowDialog(Me)
                Vorgabe_Druckername = .ComboBox1.SelectedItem.ToString
            End With
 
            Return Dialog_Form.return_wert
        End Using
    End Function

  Private Sub PrintDoc_Prefs(ByVal PD As Printing.PrintDocument, ByVal _
    Querformat As Boolean)
        Dim PageWidth, PageHeight As Decimal
 
        With PD.DefaultPageSettings
            'Druckausrichtung
            .Landscape = Querformat
 
            'Ränder setzen
            With .Margins()
                If Querformat Then
                    .Bottom = 20 : .Top = 50 : .Left = 20 : .Right = 20
                Else
                    .Bottom = 20 : .Top = 50 : .Left = 50 : .Right = 10
                End If
            End With
 
            PageWidth = .Bounds.Width - (.Margins.Left + .Margins.Right)     ' 
            ' Druckbereich Breite
            PageHeight = .Bounds.Height - (.Margins.Top + .Margins.Bottom)   ' 
            ' Druckbereich Höhe
 
            rect_Druckbereich.X = .Margins.Left ' Druckbereich Links
            rect_Druckbereich.Y = .Margins.Top ' Druckbereich Rechts
 
            rect_Druckbereich.Width = PageWidth - 50
            rect_Druckbereich.Height = PageHeight - 20
        End With
    End Sub

 'Liste drucken
    Private Sub btndrucken_Click(sender As Object, e As EventArgs) Handles _
      btndrucken.Click
        If DGV1.Rows.Count = 0 Then
            MessageBox.Show("Es sind keine Daten vorhanden.", "Abbruch")
            Return
        End If
 
        DatenAbruf = Format(Now, "dd.MM.yyyy HH:mm:ss")
        erbru_liste_drucken()
    End Sub
 
    Public Sub erbru_liste_drucken()
        If Not Druckerauswahl(PD) Then Return
        DGV = DGV1
        PPD.Document = PD
        PD.DocumentName = "erbru-Liste: " & Format(Now, "ddMMyyyy HH:mm:ss")
        PD.PrinterSettings.PrinterName = Vorgabe_Druckername
        PrintDoc_Prefs(PD, False)
        PD_OB_Zeilen_Spalten_Ermitteln()
        DirectCast(PPD, Form).WindowState = FormWindowState.Maximized
        PPD.PrintPreviewControl.StartPage = 0
        PPD.ShowDialog()
    End Sub