水晶報表打印

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