object.PaperSize [= value]可以设成下面这些值vbPRPSLetter 1 Letter, 8 1/2 x 11 in. vbPRPSLetterSmall 2 Letter Small, 8 1/2 x 11 in. vbPRPSTabloid 3 Tabloid, 11 x 17 in. vbPRPSLedger 4 Ledger, 17 x 11 in. vbPRPSLegal 5 Legal, 8 1/2 x 14 in. vbPRPSStatement 6 Statement, 5 1/2 x 8 1/2 in. vbPRPSExecutive 7 Executive, 7 1/2 x 10 1/2 in. vbPRPSA3 8 A3, 297 x 420 mm vbPRPSA4 9 A4, 210 x 297 mm vbPRPSA4Small 10 A4 Small, 210 x 297 mm vbPRPSA5 11 A5, 148 x 210 mm vbPRPSB4 12 B4, 250 x 354 mm vbPRPSB5 13 B5, 182 x 257 mm vbPRPSFolio 14 Folio, 8 1/2 x 13 in. vbPRPSQuarto 15 Quarto, 215 x 275 mm vbPRPS10x14 16 10 x 14 in. vbPRPS11x17 17 11 x 17 in. vbPRPSNote 18 Note, 8 1/2 x 11 in. vbPRPSEnv9 19 Envelope #9, 3 7/8 x 8 7/8 in. vbPRPSEnv10 20 Envelope #10, 4 1/8 x 9 1/2 in. vbPRPSEnv11 21 Envelope #11, 4 1/2 x 10 3/8 in. vbPRPSEnv12 22 Envelope #12, 4 1/2 x 11 in. vbPRPSEnv14 23 Envelope #14, 5 x 11 1/2 in. vbPRPSCSheet 24 C size sheet vbPRPSDSheet 25 D size sheet vbPRPSESheet 26 E size sheet vbPRPSEnvDL 27 Envelope DL, 110 x 220 mm vbPRPSEnvC3 29 Envelope C3, 324 x 458 mm vbPRPSEnvC4 30 Envelope C4, 229 x 324 mm vbPRPSEnvC5 28 Envelope C5, 162 x 229 mm vbPRPSEnvC6 31 Envelope C6, 114 x 162 mm vbPRPSEnvC65 32 Envelope C65, 114 x 229 mm vbPRPSEnvB4 33 Envelope B4, 250 x 353 mm vbPRPSEnvB5 34 Envelope B5, 176 x 250 mm vbPRPSEnvB6 35 Envelope B6, 176 x 125 mm vbPRPSEnvItaly 36 Envelope, 110 x 230 mm vbPRPSEnvMonarch 37 Envelope Monarch, 3 7/8 x 7 1/2 in. vbPRPSEnvPersonal 38 Envelope, 3 5/8 x 6 1/2 in. vbPRPSFanfoldUS 39 U.S. Standard Fanfold, 14 7/8 x 11 in. vbPRPSFanfoldStdGerman 40 German Standard Fanfold, 8 1/2 x 12 in. vbPRPSFanfoldLglGerman 41 German Legal Fanfold, 8 1/2 x 13 in. vbPRPSUser 256 User-defined 如果设置Printer.PaperSize为vbPRPSUser，则表示使用“用户定义”纸张，此时纸张大小由打印机 Height 和 Width 属性决定。如果设置打印机 Height 和 Width 属性自动地将 PaperSize 设置为 vbPRPSUser。
object.PaperSize [= value]可以设成下面这些值vbPRPSLetter 1 Letter, 8 1/2 x 11 in.
vbPRPSLetterSmall 2 Letter Small, 8 1/2 x 11 in.
vbPRPSTabloid 3 Tabloid, 11 x 17 in.
vbPRPSLedger 4 Ledger, 17 x 11 in.
vbPRPSLegal 5 Legal, 8 1/2 x 14 in.
vbPRPSStatement 6 Statement, 5 1/2 x 8 1/2 in.
vbPRPSExecutive 7 Executive, 7 1/2 x 10 1/2 in.
vbPRPSA3 8 A3, 297 x 420 mm
vbPRPSA4 9 A4, 210 x 297 mm
vbPRPSA4Small 10 A4 Small, 210 x 297 mm
vbPRPSA5 11 A5, 148 x 210 mm
vbPRPSB4 12 B4, 250 x 354 mm
vbPRPSB5 13 B5, 182 x 257 mm
vbPRPSFolio 14 Folio, 8 1/2 x 13 in.
vbPRPSQuarto 15 Quarto, 215 x 275 mm
vbPRPS10x14 16 10 x 14 in.
vbPRPS11x17 17 11 x 17 in.
vbPRPSNote 18 Note, 8 1/2 x 11 in.
vbPRPSEnv9 19 Envelope #9, 3 7/8 x 8 7/8 in.
vbPRPSEnv10 20 Envelope #10, 4 1/8 x 9 1/2 in.
vbPRPSEnv11 21 Envelope #11, 4 1/2 x 10 3/8 in.
vbPRPSEnv12 22 Envelope #12, 4 1/2 x 11 in.
vbPRPSEnv14 23 Envelope #14, 5 x 11 1/2 in.
vbPRPSCSheet 24 C size sheet
vbPRPSDSheet 25 D size sheet
vbPRPSESheet 26 E size sheet
vbPRPSEnvDL 27 Envelope DL, 110 x 220 mm
vbPRPSEnvC3 29 Envelope C3, 324 x 458 mm
vbPRPSEnvC4 30 Envelope C4, 229 x 324 mm
vbPRPSEnvC5 28 Envelope C5, 162 x 229 mm
vbPRPSEnvC6 31 Envelope C6, 114 x 162 mm
vbPRPSEnvC65 32 Envelope C65, 114 x 229 mm
vbPRPSEnvB4 33 Envelope B4, 250 x 353 mm
vbPRPSEnvB5 34 Envelope B5, 176 x 250 mm
vbPRPSEnvB6 35 Envelope B6, 176 x 125 mm
vbPRPSEnvItaly 36 Envelope, 110 x 230 mm
vbPRPSEnvMonarch 37 Envelope Monarch, 3 7/8 x 7 1/2 in.
vbPRPSEnvPersonal 38 Envelope, 3 5/8 x 6 1/2 in.
vbPRPSFanfoldUS 39 U.S. Standard Fanfold, 14 7/8 x 11 in.
vbPRPSFanfoldStdGerman 40 German Standard Fanfold, 8 1/2 x 12 in.
vbPRPSFanfoldLglGerman 41 German Legal Fanfold, 8 1/2 x 13 in.
vbPRPSUser 256 User-defined
如果设置Printer.PaperSize为vbPRPSUser，则表示使用“用户定义”纸张，此时纸张大小由打印机 Height 和 Width 属性决定。如果设置打印机 Height 和 Width 属性自动地将 PaperSize 设置为 vbPRPSUser。
可是打印时提示我papersize属性无效！
你只能找一些api的来设置了。我目前还没找到这方面的好的程序
再找到你刚创建的纸张类型用上就行了。（不过局限性很大，要求不重作系统及改变打印机设置，否则都可能引起无效！）我这里有以前在这里的大虾给小弟的源代码，可小弟一直没有时间去分析，用了上面我简要说的那一种方法。
另外一种就是在他的代码里有添加一个新的纸张类型，他本来是要添加为18*13的，因为我的需要我给改成了，8.7*10.3的了你要改回来就行了要的发E—mail 给我
[email protected]