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

  指數變化(2026.01.23) 開始透過AI做整理 上周焦點: 1/13消費者物價相關 美國消費者物價指數(CPI)年增率:2.7%(符合預期),月增率:0.3%。 美國核心CPI年增率:2.6%。 1/14企業庫存、房市、能源及房貸相關 美國企業庫存月增率:0.3%(10...