2025年4月22日 星期二

VBA 雙面列印指定範圍

今天測試掌握了雙面列印技巧,但無奈VBA無法直接雙面列印。 Sub 雙面列印指定範圍() Dim ws1 As Worksheet, ws2 As Worksheet Set ws1 = ThisWorkbook.Sheets("工作表1") '替換為實際工作表名稱 Set ws2 = ThisWorkbook.Sheets("工作表2") '設定A4紙張大小 With ws1.PageSetup .PaperSize = xlPaperA4 .PrintArea = "A1:D20" '替換為實際列印範圍 End With With ws2.PageSetup .PaperSize = xlPaperA4 .PrintArea = "A1:F30" '替換為實際列印範圍 End With '列印設定 With ActiveWorkbook .PrintOut _ From:=1, _ To:=1, _ Copies:=1, _ Preview:=False, _ ActivePrinter:="", _ PrintToFile:=False, _ Collate:=True, _ PrToFileName:="", _ IgnorePrintAreas:=False '手動翻面後列印第二面 If MsgBox("請手動翻面後按確定", vbOKCancel) = vbOK Then .PrintOut _ From:=2, _ To:=2, _ Copies:=1, _ Preview:=False, _ ActivePrinter:="", _ PrintToFile:=False, _ Collate:=True, _ PrToFileName:="", _ IgnorePrintAreas:=False End If End With End Sub 這個方案還要手動。 最後結論,轉換成PDF,批次雙面列印效率更好。

沒有留言:

張貼留言

指數變化(2026.6.18) 開始透過AI做整理

 指數變化(2026.6.18) 開始透過AI做整理 一、上周焦點: 6/17 美國聯邦基金利率 更新:20260603 我賭最近一次FED會議後不升息:我瞎貓矇到的。 確定不升息,但作風改了,也打算針對FED過去方式作改革,也不提供前瞻指引了。 我覺得市場解讀很多層,反應時間點...