将下列代码粘贴到一个新模块中，并调用CheckCustomPage过程检查指定报表的自定义纸张。9 ?2 E( n1 w: B! \
Typestr_DEVMODE
: p: N7 O @, u+ A% E s* J/ V RGBAsString*94
+ W" y+ l& P/ \' V) ~ EndType
9 C/ @4 y5 H, f: B Typetype_DEVMODE3 o7 U' k/ f" }. m6 i! E1 H
strDeviceNameAsString*164 f m% r* x6 I! A. J/ J
intSpecVersionAsInteger
& z! B/ J/ P, @' l* x intDriverVersionAsInteger, _& \4 z! {" h9 i
intSizeAsInteger
& {2 S4 z: X4 x! T& N' I1 V intDriverExtraAsInteger
' I; A: S+ V" V- N lngFieldsAsLong
7 d" v% p; j$ f; z intOrientationAsInteger
5 m3 W- `1 C! m intPaperSizeAsInteger
/ p( N6 j7 ~- ?+ l5 A! M* c* H intPaperLengthAsInteger
( K' a2 n. F( Z8 y* j6 B intPaperWidthAsInteger
5 [( p9 s$ ~/ a" _ intScaleAsInteger
6 c `4 U" x- U5 O3 F intCopiesAsInteger$ s( `; q( W% `4 ?- B- ~$ t% Y
intDefaultSourceAsInteger' H1 c6 e5 v8 Q! N
intPrintQualityAsInteger# ^9 l' R* } b p+ L/ Z4 }
intColorAsInteger" z6 s; g, ~# E$ x1 M4 g: Q$ G' H
intDuplexAsInteger
, S4 g8 V' f! l$ w5 e- N intResolutionAsInteger- W* O8 N6 Q) ^" |, I
intTTOptionAsInteger# q( D# B4 Q% w. R, w8 Q
intCollateAsInteger
5 i E6 o0 l( h# x; P6 v strFormNameAsString*16 h) h* q& \( j; @8 }
lngPadAsLong. e# ~# i2 n; N# z; L$ F
lngBitsAsLong
5 b/ ~) W- g. [4 A; G1 F( m lngPWAsLong0 t t8 h/ t z$ U8 v+ t
lngPHAsLong
3 a/ i; E, Q! |/ |& {$ k1 _ lngDFIAsLong
6 L2 V5 Z, A+ n0 Z" l. E- n lngDFrAsLong
3 N- T) P: c$ b: u EndType/ ~& @: k' q/ I( D
PublicSubCheckCustomPage(ByValrptNameAsString). Y+ l h1 m' t+ [( x+ z7 Z
'用途：检查报表的自定义纸张' A/ J3 e% |/ d% {
'调用方法：CallCheckCustomPage(rptName)9 _+ F# M+ D3 T% N' g. a! K9 O# s
'参数说明：rptName:为检查的报表名称2 b/ ?9 C3 m' Z* p- V/ o) ~
'调用举例：设有名为"MyReport"的报表，9 p& {5 ^/ e' U8 R' X) l5 k. `; @
'CallCheckCustomPage("MyReport") |
发表于 2012-7-31 22:10:12
