33 lines
1.3 KiB
Plaintext
33 lines
1.3 KiB
Plaintext
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 |