水晶报表打印答案

【问题标题】：Crystal report printing水晶报表打印
【发布时间】：2011-01-07 02:44:21
【问题描述】：

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

谢谢你

【问题讨论】：

标签： vb.net crystal-reports crystal-reports-2008

【解决方案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

【讨论】：