用VBA自定义打印出纸张大小

bian1124

test.rar (24.22 KB, 下载次数: 56)

2010-6-18 14:02 上传

点击文件名下载附件

Sub 按钮1_单击()
序号 = Range("k6").Value
打印:
If 序号 <= Range("k7").Value Then
Range("k5").Value = 序号
If Range("k7").Value - 序号 = 0 Then
Range("a1:g13").PrintOut copies:=1
GoTo 结束
End If
序号 = 序号 + 2
Range("a1:g26").PrintOut copies:=1
GoTo 打印
End If
结束:
End Sub

我想在打印输出的时候自定义长24.1 宽为13.97 哪位朋友帮我看看。

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

yanjie

本答案我认为对你没有什么帮助：
先在打印机纸张自定义中设置大小，然后用代码
Sheet1.PageSetup.PaperSize = xlPaperUser
这样很难控制！

yanjie

一般方法：
For Each ws In Worksheets
ws.PageSetup.PaperSize = xlPaper11x17
ws.PrintOut Copies:=1, Collate:=True
Next ws
纸张大小很多选项，自己选一个：
xlPaper11x17. 11 in. x 17 in.
xlPaperA4. A4 (210 mm x 297 mm) &nbsp;
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. User-defined
xlPaper10x14. 10 in. x 14 in.
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.) &nbsp;

鱼蛋小米粉

yanjie 发表于 2010-6-20 17:03
本答案我认为对你没有什么帮助：
先在打印机纸张自定义中设置大小，然后用代码
Sheet1.PageSetup.PaperSi ...

已经自定义纸张大小为12345这个名称了，请问要怎样修改以下语句？让其可以在指定打印机上以12345这种纸张大小打印？
ActiveSheet.PageSetup.PaperSize = xlPaperA4
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="\\POWERCONNECT\Epson FX-880 在 Ne03:"

cxmgxl

鱼蛋小米粉 发表于 2012-8-13 13:14
已经自定义纸张大小为12345这个名称了，请问要怎样修改以下语句？让其可以在指定打印机上以12345这种纸张 ...

期待高手解答中

dream7115

鱼蛋小米粉 发表于 2012-8-13 13:14
已经自定义纸张大小为12345这个名称了，请问要怎样修改以下语句？让其可以在指定打印机上以12345这种纸张 ...

我现在也是碰到这种问题，若有办法可以指定就省事多了，有办法了麻烦分享下，likp86@163.com

gswycjc

VBA无此功能

li2008di

用宏录制一边你设置纸张类型的过程，查看录制宏里的“ .PaperSize = 156” 后面那个数字就是你的纸张代码，3楼 PaperSize 的值就是这个数。 毛病就是你重装系统或删除纸张类型后要重新来一遍

opiona

li2008di 发表于 2020-9-10 09:04
用宏录制一边你设置纸张类型的过程，查看录制宏里的“ .PaperSize = 156” 后面那个数字就是你的纸张代码， ...

还有一个毛病:  换台电脑  还的重新设置