如何在报表中使用自定义尺寸的纸张计算机等级考试
文章作者 100test 发表时间 2010:01:02 07:13:17
来源 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")