SammelRechnung, cDatenserver fix, etc.

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -1401,10 +1401,10 @@ Public Class cFormularManager
                         If size.Width <= 0 OrElse size.Height <= 0 Then Continue For
                         ' --- Druckeinstellungen ---
                         doc.PrintSettings.PrinterName = printerName
-                        doc.PrintSettings.SelectSinglePageLayout(PdfSinglePageScalingMode.ActualSize, False)
-                        doc.PrintSettings.Landscape = True
-                        doc.PrintSettings.PaperSize = New System.Drawing.Printing.PaperSize("A4", 827, 1169)
-                        doc.Print()
+                    doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4
+                    doc.PageSettings.Orientation = Spire.Pdf.PdfPageOrientation.Landscape
+                    doc.PrintSettings.SelectSinglePageLayout(PdfSinglePageScalingMode.FitSize, True)
+                    doc.Print()
 
                     End Using