Public Class Form2
    Public return_wert As Boolean
    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles _
      btnOK.Click
        return_wert = True : Me.Close()
    End Sub
 
    Private Sub btnAbbrechen_Click(sender As Object, e As EventArgs) Handles _
      btnAbbrechen.Click
        return_wert = False : Me.Close()
    End Sub
    End Class

Imports System.Drawing.Printing

'Druck Variablen
    Private WithEvents PD As New Printing.PrintDocument
    Private PV As New PrintPreviewDialog
    '---
    Private PPD As New PrintPreviewDialog
    Private DGV As DataGridView
 
    Private Vorgabe_Druckername As String
 
    Private SpaltenBreiten As New List(Of Single)   'Auflistung mit der Breite 
    ' der einzelnen Spalten
    Private ZeilenHoehen As New List(Of Integer)    'Auflistung mit der Höhe 
    ' der einzelnen Zeilen
 
    Private xSpaltenBreiten As New List(Of Double)   'Auflistung mit der Breite 
    ' der einzelnen Spalten
    Private xZeilenHoehen As New List(Of Double)    'Auflistung mit der Höhe 
    ' der einzelnen Zeilen
 
    Private DruckSeite As Integer
    Private DruckSpalte As Integer
    Private DruckZeile As Integer
    Private DGVSpaltenIndex As Integer
    Private DGVZeilenIndex As Integer
    Private rect_Druckbereich As New RectangleF
 
 
    Private DatenAbruf As String
    Dim mRow As Integer = 0
    Dim newpage As Boolean = True
    ' ---> Druckmethode testen
    Public HeaderColor As System.Drawing.Color = Color.LightGray
    Public RowColor As System.Drawing.Color = Color.White
    Public RowColorAlternate As System.Drawing.Color = Color.LightYellow
    Public HZentrieren As Boolean = True
    Public DruckeGitternetzlinien As Boolean = True
    Public SpaltenAutoSize As Boolean = False