如何在报表中使用自定义尺寸的纸张

文章作者 100test 发表时间 2011:03:26 20:45:08
来源 100Test.Com百考试题网

　　将下列代码粘贴到一个新模块中，并调用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)

　　参数说明：rptName:为检查的报表名称

　　调用举例：设有名为"MyReport"的报表，

　　CallCheckCustomPage("MyReport")