在打印表中设置打印按键，并按照打印样例打印

辰芭比

在打印表中设置打印按键，行的步长是11，最后一页步长小于11把小计的数值剪切到到第11的步长上，把合计数值删除。然后打印，，另外表格中的页眉页脚，是否可以使用VBA进行调取更改，请各位老师多多指点。

3190496160

表头一致，每10行数据打印一张纸，最后行加一个合计？
如果是这样的话，直接批量套打就行了吧？么有必要如你目前这样来的

3190496160

Sub 批量套打()
Application.ScreenUpdating = False
Dim ar As Variant
With Sheets("数据表")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    If r < 2 Then MsgBox "数据表为空！": End
    ar = .Range("a1:j" & r)
End With
With Sheets("打印表")
    For i = 2 To UBound(ar) Step 11
        .Range("b5:l14") = Empty
        n = 4
        For s = i To i + 9
            If s <= UBound(ar) Then
                n = n + 1
                For j = 1 To UBound(ar, 2)
                    .Cells(n, j + 1) = ar(s, j)
                Next j
            End If
        Next s
        .PrintOut
        '.PrintPreview '显示打印预览
    Next i
End With
Application.ScreenUpdating = True
MsgBox "打印完毕！", 64, "提醒！"
End Sub

3190496160

3190496160

样例表.rar (22.25 KB, 下载次数: 6)

2023-4-6 10:17 上传

点击文件名下载附件

辰芭比

3190496160 发表于 2023-4-6 10:01
表头一致，每10行数据打印一张纸，最后行加一个合计？
如果是这样的话，直接批量套打就行了吧？么有必要如 ...

非常感谢，茅塞顿开，按照你的方法可以快速打印。。我这个数据因为是每一页都需要显示并留存，附带页数显示，所以是需要排版打印。正常数据表中的每10行小计，是没有的，也是之前请教的老师然后自己改写一下。