This commit is contained in:
2024-09-27 16:02:03 +02:00
4 changed files with 78 additions and 47 deletions

View File

@@ -46,7 +46,7 @@ Public Class subRptLaufzettelZollDE_Vorpapier
picBarcodeMRN.Location = New PointF(picBarcodeMRN.Location.X - 0.5, picBarcodeMRN.Location.Y)
ATAMRN = "(" & ATAMRN & ")"
txtATAMRN.Font = New Font(txtATAMRN.Font.FontFamily, 10, FontStyle.Regular) ' kleiner schreiben
txtATAMRN.Font = New Document.Drawing.Font("Microsoft Sans Serif", 10, GrapeCity.ActiveReports.Document.Drawing.FontStyle.Regular) ' kleiner schreiben
End If
End If
Catch ex As Exception

View File

@@ -2460,7 +2460,7 @@ Public Class FormularManagerNEU
rpt.Run(False)
rpt.Document.Printer.PrinterName = printername
rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0)
rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Printing.Margin(0, 0, 0, 0)
rpt.Document.Printer.OriginAtMargins = False
rpt.Document.Print((printername = ""), False)
@@ -2514,7 +2514,7 @@ Public Class FormularManagerNEU
rptMRNDruck.Run(False)
rptMRNDruck.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0)
rptMRNDruck.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Printing.Margin(0, 0, 0, 0)
rptMRNDruck.Document.Printer.OriginAtMargins = False
rptMRNDruck.Document.Print(True, False)
rptMRNDruck.Dispose()
@@ -2929,7 +2929,7 @@ Public Class FormularManagerNEU
rpt.Run(False)
rpt.Document.Printer.PrinterName = printername
rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0)
rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Printing.Margin(0, 0, 0, 0)
rpt.Document.Printer.OriginAtMargins = False
rpt.Document.Print((printername = ""), False)
@@ -3223,7 +3223,7 @@ Public Class FormularManagerNEU
rpt.Run(False)
rpt.Document.Printer.PrinterName = printername
rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0)
rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Printing.Margin(0, 0, 0, 0)
rpt.Document.Printer.OriginAtMargins = False
rpt.Document.Print((printername = ""), False)
@@ -3545,7 +3545,7 @@ Public Class FormularManagerNEU
rpt.Run(False)
rpt.Document.Printer.PrinterName = printername
rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0)
rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Printing.Margin(0, 0, 0, 0)
rpt.Document.Printer.OriginAtMargins = False
rpt.Document.Print((printername = ""), False)