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) "引數說明：rptName:為檢查的報表名稱 "呼叫舉例：設有名為"MyReport"的報表， "CallCheckCustomPage("MyReport")
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) "引數說明：rptName:為檢查的報表名稱 "呼叫舉例：設有名為"MyReport"的報表， "CallCheckCustomPage("MyReport")