定义Excel VBA宏以打印可变大小的多页

Sub PrintVariableSizePages()
    Dim ws As Worksheet
    Dim rng As Range
    Dim printArea As Range
    Dim pageCount As Integer
    Dim i As Integer
    
    ' 设置要打印的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置要打印的区域
    Set rng = ws.Range("A1:F20")
    
    ' 计算打印区域的页数
    pageCount = rng.Rows.Count / ActiveSheet.PageSetup.Zoom
    
    ' 循环打印每一页
    For i = 1 To pageCount
        ' 设置要打印的区域
        Set printArea = rng.Offset((i - 1) * ActiveSheet.PageSetup.Zoom).Resize(ActiveSheet.PageSetup.Zoom)
        
        ' 打印当前页
        printArea.PrintOut
    Next i
End Sub