如何实现自由打印

yangbin5670 · 发表于 2022-12-15 09:35

1、如何实现点击打印按钮，即可用针式打印机打印本工作表的活动页，已设置好打印区域，打印后打印机自动恢复到默认打印机
Brother MFC-7380 Printer（默认激光打印机）
Pc202010101347 上的 EPSON LQ-630K ESC/P2（网络上的针式打印机）
2、如何实现点击打印按钮，即可用针式打印机打印本工作表指定区域（A13:J22)，打印后打印机自动恢复到默认打印机
Brother MFC-7380 Printer（默认激光打印机）
Pc202010101347 上的 EPSON LQ-630K ESC/P2（网络上的针式打印机）

yangbin5670 · 发表于 2022-12-15 13:55

请大家帮忙解决，谢谢！

lss001 · 发表于 2022-12-15 16:31

本帖最后由 lss001 于 2022-12-21 14:41 编辑

https://learn.microsoft.com/zh-cn/office/vba/api/Excel.Sheets.PrintOut

Sub 打印()
'指定打印区域
ActiveSheet.PageSetup.PrintArea = "A13:J22"
'指定打印机
ActiveSheet.PrintOut ActivePrinter:="\\Pc202010101347\EPSON LQ-630K ESC-P2"
Sub End

yangbin5670 · 发表于 2022-12-15 16:46

lss001 发表于 2022-12-15 16:31
Sub 打印()
'指定打印区域
ActiveSheet.PageSetup = "A13:J22"

感谢老师，但试了未解决问题

lss001 · 发表于 2022-12-15 17:40

yangbin5670 发表于 2022-12-15 16:46
感谢老师，但试了未解决问题

请参考楼上更新代码

		自动登录	找回密码
密码			免费注册

[求助] 如何实现自由打印