将下列代码粘贴到一个新模块中，并调用CheckCustomPage过程检查指定报表的自定义纸张。. R5 k1 q% v7 z' [' F
Typestr_DEVMODE! D) _3 J) p& `0 M* s. W6 R* p! _8 j9 T0 c
RGBAsString*94
! K2 m7 U% l1 J* Z' [" ^* } EndType
2 P( t F: }, t5 v" Y6 C Typetype_DEVMODE4 R: ?1 b; y7 Z% U+ H, l
strDeviceNameAsString*163 @* d" A' E( H% K4 f6 Y0 A) z
intSpecVersionAsInteger, `6 a6 r3 A$ v9 n" ^
intDriverVersionAsInteger
) x7 V. p# h( v intSizeAsInteger; A/ K( E, }6 F
intDriverExtraAsInteger
" r! @" Q7 ~& a `9 {% E; o lngFieldsAsLong
& ]7 t+ ~4 ?9 @/ X# d( s: \ intOrientationAsInteger3 b/ f5 [ |* r' Q, V3 `+ l
intPaperSizeAsInteger0 a6 c9 E/ B7 B: H. ~ T
intPaperLengthAsInteger6 B' [+ a5 O! B, L- }
intPaperWidthAsInteger
* c+ W; p2 A) Z& Y8 I: L: _1 v3 s intScaleAsInteger& X6 b% [! [5 Y- n. ^- _' L
intCopiesAsInteger$ i4 M6 j: n [8 l, u
intDefaultSourceAsInteger
* a7 _/ b) ^$ _+ P G intPrintQualityAsInteger
' m1 @/ I" E8 l, g* ~$ x0 G, R intColorAsInteger
* C8 b+ Y4 M% Y intDuplexAsInteger% |! V7 C; |8 U
intResolutionAsInteger
- j" U, c0 m n' d intTTOptionAsInteger8 h& C8 i" M5 c" K
intCollateAsInteger( r' C n+ @) u0 B% Q; `
strFormNameAsString*16
5 x" m% I3 Q* h- d lngPadAsLong4 R* T8 \# q& k" u2 U
lngBitsAsLong' `! z. ~! u5 S1 E9 u
lngPWAsLong
' g2 ]; V. h1 I3 S4 F( G" L lngPHAsLong2 U/ d/ x1 F/ w8 d
lngDFIAsLong+ ] `8 a+ z6 v* Q% M
lngDFrAsLong
0 D2 e9 {8 T& C! T; F EndType
" w m3 w& l" J+ Z( I PublicSubCheckCustomPage(ByValrptNameAsString)5 A; ~+ I4 z# l6 h
'用途：检查报表的自定义纸张
0 m: L9 S7 A! q, {& [# R( {" P( D' o '调用方法：CallCheckCustomPage(rptName)
# v3 f0 r; X* V% d* y '参数说明：rptName:为检查的报表名称0 e8 y1 F, G. U6 ]/ G
'调用举例：设有名为"MyReport"的报表，
# Y7 j2 ^0 N$ W; X2 q# x6 P% A 'CallCheckCustomPage("MyReport") |
发表于 2012-7-31 22:10:12
