excel的vba如何设置在一次打印中灵活选用双面打印和单面打印？

Question

打印机支持单面打印和双面打印。
我想某些页是单面打印，某些页是双面打印，怎么写vba语句啊？谢谢

Answer 1

Sub PrintWithDifferentDuplexSettings()

On Error GoTo ErrorHandler

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为实际的工作表名称

' 打印单面页（例如第1页到第3页）
ws.PrintOut From:=1, To:=3, Copies:=1, Collate:=True, IgnorePrintAreas:=False, Duplex:=wdPrintOnePage

' 打印双面页（例如第4页到第6页）
ws.PrintOut From:=4, To:=6, Copies:=1, Collate:=True, IgnorePrintAreas:=False, Duplex:=wdPrintTwoPages

MsgBox "打印任务已发送！", vbInformation
Exit Sub

ErrorHandler:

MsgBox "打印失败，请检查打印机设置和页码范围。", vbCritical

End Sub