VB+EXCEL中xlPaperUser问题

Question

XlPaperSize 可为以下 XlPaperSize 常量之一。
 
xlPaper11x17. 11 in. x 17 in. 
xlPaperA4. A4 (210 mm x 297 mm)   
xlPaperA5. A5 (148 mm x 210 mm) 
xlPaperB5. A5 (148 mm x 210 mm) 
xlPaperDsheet. D size sheet 
xlPaperEnvelope11. Envelope #11 (4-1/2 in. x 10-3/8 in.) 
xlPaperEnvelope14. Envelope #14 (5 in. x 11-1/2 in.) 
xlPaperEnvelopeB4. Envelope B4 (250 mm x 353 mm) 
xlPaperEnvelopeB6. Envelope B6 (176 mm x 125 mm) 
xlPaperEnvelopeC4. Envelope C4 (229 mm x 324 mm) 
xlPaperEnvelopeC6. Envelope C6 (114 mm x 162 mm) 
xlPaperEnvelopeDL. Envelope DL (110 mm x 220 mm) 
xlPaperEnvelopeMonarch. Envelope Monarch (3-7/8 in. x 7-1/2 in.) 
xlPaperEsheet. E size sheet 
xlPaperFanfoldLegalGerman. German Legal Fanfold (8-1/2 in. x 13 in.) 
xlPaperFanfoldUS. U.S. Standard Fanfold (14-7/8 in. x 11 in.) 
xlPaperLedger. Ledger (17 in. x 11 in.) 
xlPaperLetter. Letter (8-1/2 in. x 11 in.) 
xlPaperNote. Note (8-1/2 in. x 11 in.) 
xlPaperStatement. Statement (5-1/2 in. x 8-1/2 in.) 
xlPaperUser. 用户自定义 
xlPaper10x14. 25.40 cm. x 35.56 cm. 
xlPaperA3. A3 (297 mm x 420 mm) 
xlPaperA4Small. A4 Small (210 mm x 297 mm) 
xlPaperB4. B4 (250 mm x 354 mm) 
xlPaperCsheet. C size sheet 
xlPaperEnvelope10. Envelope #10 (4-1/8 in. x 9-1/2 in.) 
xlPaperEnvelope12. Envelope #12 (4-1/2 in. x 11 in.) 
xlPaperEnvelope9. Envelope #9 (3-7/8 in. x 8-7/8 in.) 
xlPaperEnvelopeB5. Envelope B5 (176 mm x 250 mm) 
xlPaperEnvelopeC3. Envelope C3 (324 mm x 458 mm) 
xlPaperEnvelopeC5. Envelope C5 (162 mm x 229 mm) 
xlPaperEnvelopeC65. Envelope C65 (114 mm x 229 mm) 
xlPaperEnvelopeItaly. Envelope (110 mm x 230 mm) 
xlPaperEnvelopePersonal. Envelope (3-5/8 in. x 6-1/2 in.) 
xlPaperExecutive. Executive (7-1/2 in. x 10-1/2 in.) 
xlPaperFanfoldStdGerman. German Legal Fanfold (8-1/2 in. x 13 in.) 
xlPaperFolio. Folio (8-1/2 in. x 13 in.) 
xlPaperLegal. Legal (8-1/2 in. x 14 in.) 
xlPaperLetterSmall. Letter Small (8-1/2 in. x 11 in.) 
xlPaperQuarto. Quarto (215 mm x 275 mm) 
xlPaperTabloid. Tabloid (11 in. x 17 in.) 注意  上面这些纸张大小可能不为所有打印机支持。
 

Answer 1

这我知道！xlPaperUser应如何设置？

Answer 2

可以这样解决：首先确认你安装的打印机支持自定义尺寸（你可以安装一个支持自定义尺寸的打印驱动），然后定义你的自定义尺寸，并且起一个名字保存。
在Execl中，打开录制宏功能，在页面设置或打印菜单中，选中你保存的自定义尺寸，查看录制的代码，找到Papersize属性，它的值就是你要的了稍微麻烦了一点，但恐怕只有这样才能解决

Answer 3

不要忘了给你的自定义尺寸起一个名字，如“mypapersize"，然后录制时选择”mypapersize"，不要直接选择尺寸。
这是唯一的解决方法，但有局限，因为首先要确保目标机安装的是相同的打印机，并且定义了相同名字的尺寸。