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.5.29) 開始透過AI做整理

 指數變化(2026.5.29) 開始透過AI做整理 一、上周焦點: 美國消費者信心指數最新狀況 美國密西根大學消費者信心指數在 2026 年 5 月降至約 44.8,較 4 月的 49.8 再次下滑,並創下自 1950 年代統計以來的新低。 報告指出,油價上漲與生活成本壓力持續...