表格打印设置问题

lcs_2046

有谁能帮我看下我的这段代码 有什么问题，单页打印时无问题，多页时无法自动分页，所有的表格都打印在一页上，除非打印成多个文件。


With sht
        .Range("A2:O" & UBound(DataOut, 2) + 1) = Application.WorksheetFunction.Transpose(DataOut)

        .Range("A1:O1") = getTitle(sht)
        .Range("A:O").AutoFit
        lastrow = getLastRow(sht, "C")
        With .PageSetup
            .PrintArea = "A1:O" & lastrow + 1
            .Zoom = False
            .Orientation = xlLandscape
            .FitToPagesWide = 1
            .CenterHeader = "&24&B" & HeaderString & VBA.Chr(10)
            .PrintGridlines = True
            .RightHeader = VBA.Chr(10) & "打印时间：" & "&D"
            .CenterFooter = "&P"
        End With
         If Application.ActivePrinter = "HP LaserJet 1020 在 Ne03:" Then
            .PrintOut
            ''Application.PrintCommunication = True
        ElseIf Application.ActivePrinter = "Foxit PDF Reader Printer 在 Ne05:" Then
        .PrintPreview
        Else
''        MsgBox Application.ActivePrinter
        End If
    End With

wang-way

分页符不是打印控制的。

lcs_2046

wang-way 发表于 2024-7-2 17:07
分页符不是打印控制的。

那我怎样设置才能在打印自动分页呢

wang-way

看你也是新手  提醒你一下规矩。就是提问要把附件发上来。贴个代码段 ，没几个人愿意搭理你

lcs_2046

感谢您的提醒

lss001

lcs_2046 发表于 2024-7-3 11:40
感谢您的提醒

在With sht下面追加以下代码

       .ResetAllPageBreaks '重置全部分页符
       pb = 26 '指定分页行数:25+1
       For i = 1 To .UsedRange.Rows.Count \ pb + 1
           .Rows(pb).PageBreak = 1
           pb = pb + 25
       Next

sdytsxd991122

lss001 发表于 2024-7-3 12:41
在With sht下面追加以下代码

       .ResetAllPageBreaks '重置全部分页符

谢谢！学到了