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