Public Class frmPrintPreviewVertragsuebersicht

    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub

    Private Sub frmPrintPreviewVertragsuebersicht_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim fontbold As New Font("Arial", 12, FontStyle.Bold)
        Dim fontregular As New Font("Arial", 12, FontStyle.Regular)

        With Me.C1daten.PrintInfo
            .PageHeaderStyle.Font = fontbold
            .PageSettings.Margins.Bottom = 20
            .PageSettings.Margins.Top = 20
            .PageSettings.Landscape = True
            .PageFooter = "Seite \p von \P" & vbLf & "Druckdatum " & Now()
            .PageHeader = "Aktivitäten"
            .ShowProgressForm = True
            .UseGridColors = True
            .RepeatColumnHeaders = True
            .VarRowHeight = .RowHeightEnum.StretchToFit
            .WrapText = C1.Win.C1TrueDBGrid.PrintInfo.WrapTextEnum.NoWrap
            .PageBreak = .PageBreaksEnum.OnColumn
            .FillAreaWidth = .FillEmptyEnum.None
            .PrintPreview()
        End With

    End Sub
End Class