如何在报表中使用自定义尺寸的纸张（1）
将下列代码粘贴到一个新模块中，并调用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")
页:
[1]