打印自动分页并按每页30行的格式自动填充空白行

blickcom

小書生 发表于 2024-3-13 12:20
你也真不客气，
放模块中，点运行，

非常感谢！
能否在每页添加分页符。

小書生

blickcom 发表于 2024-3-13 17:34
非常感谢！
能否在每页添加分页符。

你自己加吧 ：
ThisWorkbook.Worksheets("Sheet2").Rows(几行).pagebreak = xlpagebreakmanual

blickcom

小書生 发表于 2024-3-13 12:20
你也真不客气，
放模块中，点运行，

代码很好用。非常感谢。

blickcom

小書生 发表于 2024-3-13 18:23
你自己加吧 ：
ThisWorkbook.Worksheets("Sheet2").Rows(几行).pagebreak = xlpagebreakmanual

添加了
我在最后添加上去，只有第一页的30行添加了分页符。后边页数没有添加。
是加错地方吗？
Sub 书() '书生答题专用
    ar = [a1].CurrentRegion
    Dim br
    Set d = CreateObject("scripting.dictionary")
    For i = 2 To UBound(ar)
        d(ar(i, 1)) = d(ar(i, 1)) & "-" & i
    Next
    ReDim br(665536, UBound(ar, 2) - 1)
    dd = d.items
    k = 0
    For Each r In d.keys
        aaa = Split(Mid(d(r), 2), "-")
       If n > 0 Then k = k + (30 - n)
        n = 30
        For i = 0 To UBound(aaa)
            If n = 30 Then
                For ij = 1 To 8
                    br(k, ij - 1) = ar(1, ij)
                Next
                n = 0: k = k + 1
            End If
            For ij = 1 To 8
                br(k, ij - 1) = ar(aaa(i), ij)
            Next
            n = n + 1
            k = k + 1
        Next
    Next
    Sheets(2).[n1].Resize(k, 8) = br
    ThisWorkbook.Worksheets("Sheet1").Rows(30).PageBreak = xlPageBreakManual
End Sub