Kassenbuch, ustva, Erstattungsschreiben

SDL/kassenbuch/frmKassenbuch.vb

@@ -1,5 +1,4 @@
-Imports DocumentFormat.OpenXml.Drawing
-Imports SDL.RKSVServer
+Imports SDL.RKSVServer
 
 Public Class frmKassenbuch
     Dim SQL As New SQL
@@ -630,6 +629,8 @@ Public Class frmKassenbuch
         print.Text = "Kassenbuch"
         Dim rpt As New rptKassenbuchKontenBericht
 
+        rpt.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
+
         Dim frmVonBis As New frmKasseBerichtVonBis
         If frmVonBis.ShowDialog(Me) <> Windows.Forms.DialogResult.OK Then
             Exit Sub