修改代码

施学明

Sub 打印数据()

   Dim ws As Worksheet

   Dim printArea As Range

   Dim lastRow As Long

   Dim startRow As Long

   Dim endRow As Long

   Dim i As Long

   

    '设置要打印的工作表

   Set ws = ThisWorkbook.Worksheets("打印模版")

   

    '设置要打印的区域

    Set printArea = ws.Range("A1:e200")' 修改为你的实际区域

   

    '获取区域的最后一行

   lastRow = printArea.Rows.Count

   

    '设置起始行为第一行

   startRow = 1

   

    '循环打印每一页

   Do While startRow <= lastRow

       ' 计算结束行

       endRow = startRow + 13

      

        ' 确保结束行不超过最后一行

       If endRow > lastRow Then

           endRow = lastRow

       End If

      

       ' 设置打印区域为起始行到结束行

       Set printArea = ws.Range(ws.Cells(startRow, 1), ws.Cells(endRow,printArea.Columns.Count))

      

       ' 打印区域

       printArea.PrintOut

      

       ' 更新起始行为下一页的起始行

       startRow = endRow + 1

   Loop

endsub()

要将e200设置为动态有数据的e列的最后一行,如何改？

发哥76

"A1:E" & ws.cells(ws.rows.count,"e")).end(3).row

quqiyuan

供参考。。。

quqiyuan

代码如下。。
Sub 打印数据()
    Dim ws As Worksheet
    Dim printArea As Range
    Dim lastRow As Long
    Dim startRow As Long
    Dim endRow As Long
    Dim i As Long
   
    ' 设置要打印的工作表
    Set ws = ThisWorkbook.Worksheets("打印模版")
   
    ' 获取区域的最后一行
    lastRow = ws.Cells(Rows.Count, 1).End(3).Row

    ' 设置要打印的区域
    Set printArea = ws.Range("A1:e" & lastRow) ' 修改为你的实际区域
   
   
    ' 设置起始行为第一行
    startRow = 1
   
    ' 循环打印每一页
    Do While startRow <= lastRow
        ' 计算结束行
        endRow = startRow + 13
        
        ' 确保结束行不超过最后一行
        If endRow > lastRow Then
            endRow = lastRow
        End If
        
        ' 设置打印区域为起始行到结束行
        Set printArea = ws.Range(ws.Cells(startRow, 1), ws.Cells(endRow, printArea.Columns.Count))
        
        ' 打印区域
        printArea.PrintOut
        
        ' 更新起始行为下一页的起始行
        startRow = endRow + 1
    Loop
End Sub

施学明

谢谢各位相助，已满足我需求