vb.net - 水晶报表打印

Question

我遇到了一个问题，我想打印一份尺寸为 3 x 4 厘米的收据报告。我无法调整水晶报表的大小。我正在使用visual studio.net 2008附带的水晶报告。

谢谢你

Answer 1

Crystal Reports 有时会发生这种情况。我以前也遇到过同样的问题，并且成功地尝试了这段代码。你也试试这个，告诉我发生了什么......

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