Excel VBA多范围打印预览

Sub PrintPreviewMultipleRanges()
    Dim rng1 As Range
    Dim rng2 As Range
    Dim printArea As Range
    
    ' 定义要打印的范围
    Set rng1 = Worksheets("Sheet1").Range("A1:B10")
    Set rng2 = Worksheets("Sheet1").Range("C1:D10")
    
    ' 合并范围
    Set printArea = Union(rng1, rng2)
    
    ' 设置打印区域
    ActiveSheet.PageSetup.PrintArea = printArea.Address
    
    ' 打开打印预览
    ActiveWindow.SelectedSheets.PrintPreview
End Sub