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，批次雙面列印效率更好。