如何在報表中使用自定義尺寸的紙張

將下列代碼粘貼到一個新模塊中，并調用CheckCustomPage過程檢查指定報表的自定義紙張。
    Typestr_DEVMODE
    RGBAsString*94
    EndType
    Typetype_DEVMODE
    strDeviceNameAsString*16
    intSpecVersionAsInteger
    intDriverVersionAsInteger
    intSizeAsInteger
    intDriverExtraAsInteger
    lngFieldsAsLong
    intOrientationAsInteger
    intPaperSizeAsInteger
    intPaperLengthAsInteger
    intPaperWidthAsInteger
    intScaleAsInteger
    intCopiesAsInteger
    intDefaultSourceAsInteger
    intPrintQualityAsInteger
    intColorAsInteger
    intDuplexAsInteger
    intResolutionAsInteger
    intTTOptionAsInteger
    intCollateAsInteger
    strFormNameAsString*16
    lngPadAsLong
    lngBitsAsLong
    lngPWAsLong
    lngPHAsLong
    lngDFIAsLong
    lngDFrAsLong
    EndType
    PublicSubCheckCustomPage(ByValrptNameAsString)
    '用途：檢查報表的自定義紙張
    '調用方法：CallCheckCustomPage(rptName)
    '參數(shù)說明：rptName:為檢查的報表名稱
    '調用舉例：設有名為"MyReport"的報表，
    'CallCheckCustomPage("MyReport")