Crystal Reports 支持的纸张种类

DefaultPaperSize

Paper10x14 254 x 355.6 mm

Paper11x17 279.4 x 431.8 mm

PaperA3 A3 ?，297 x 420 mm

PaperA4 A4 ?，210 x 297 mm

PaperA4Small A4 小?，210 x 297 mm

PaperA5 A5 ?，148 x 210 mm

PaperB4 B4 ?，250 x 354 mm

PaperB5 B5 ?，182 x 257 mm

PaperCsheet C Type，431.8 x 558.8 mm

PaperDsheet D Type，558.8 x 863.6 mm

PaperEnvelope10 #10 Envelope，104.8 x 241.3 mm

PaperEnvelope11 #11 Envelope，114.3 x 263.5 mm

PaperEnvelope12 #12 Envelope，120.7 x 279.4 mm

PaperEnvelope14 #14 Envelope，127 x 292.1 mm

PaperEnvelope9 #9 Envelope，98.4 x 225.4 mm

PaperEnvelopeB4 B4 Envelope，250 x 353 mm

PaperEnvelopeB5 B5 Envelope，176 x 250 mm

PaperEnvelopeB6 B6 Envelope，176 x 125 mm

PaperEnvelopeC3 C3 Envelope，324 x 458 mm

PaperEnvelopeC4 C4 Envelope, 114 x 229 mm

PaperEnvelopeC5 C5 Envelope，162 x 229 mm

PaperEnvelopeC6 C6 Envelope，114 x 162 mm

PaperEnvelopeC65 C65 Envelope，114 x 229 mm

PaperEnvelopeDL DL Envelope，110 x 220 mm

PaperEnvelopeItaly Italy Envelope，110 x 230 mm

PaperEnvelopeMonarch Monarch Envelope，98.4 x 190.5 mm

PaperEnvelopePersonal 6 3/4 Envelope，92.1 x 165.1 mm

PaperEsheet E Type，863.6 x 1117.6 mm

PaperExecutive Executive，184.1 x 266.7 mm

PaperFanfoldLegalGerman German Legal Fanfold，215.9 x 330.2 mm

PaperFanfoldStdGerman German Std Fanfold，215.9 x 304.8 mm

PaperFanfoldUS US Std Fanfold，377.8 x 279.4 mm

PaperFolio Folio，215.9 x 330.2 mm

PaperLedger Ledger，431.8 x 279.4 mm

PaperLegal Legal，215.9 x 355.6 mm

PaperLetter Letter，215.9 x 279.4 mm

PaperLetterSmall Letter Small，215.9 x 279.4 mm

PaperNote Note，215.9 x 279.4 mm

PaperQuarto Quarto，215 x 275 mm

PaperStatement Statement，139.7 x 215.9 mm

PaperTabloid Tabloid，279.4 x 431.8 mm

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