Dies geschieht manchmal mit Crystal Reports. Ich habe das gleiche Problem schon einmal gesehen und diesen Code erfolgreich ausprobiert. Sie versuchen auch dies und sagen mir, was passiert ist ...
Dim doctoprint As New System.Drawing.Printing.PrintDocument()
doctoprint.PrinterSettings.PrinterName = "YourPrinterName" '(ex. "Epson SQ-1170 ESC/P 2")
For i = 0 To doctoprint.PrinterSettings.PaperSizes.Count - 1
Dim rawKind As Integer
If doctoprint.PrinterSettings.PaperSizes(i).PaperName = "MyCustomFormatName" Then
rawKind = CInt(doctoprint.PrinterSettings.PaperSizes(i).GetType().GetField("kind", Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic).GetValue(doctoprint.PrinterSettings.PaperSizes(i)))
oRpt.PrintOptions.PaperSize = rawKind
Exit For
End If
Next