有很多验收表格 每次都要手动设置才能分别打印在a4纸内，内否vba自动设置？高手进....

mye680

就如图片 有很多验收表格 每次都要手动设置才能分别打印在a4纸内，不设置就是上一页的表位和下一页表头打印在一张纸上。高手帮帮忙啊，感谢了

3190496160

Sub 批量打印()
With Sheets("Sheet1")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To rs Step 28
        If .Cells(i, 6) <> "" Then
            .PageSetup.PrintArea = "$A$" & i & ":$T$" & i + 27
            .PrintOut
        End If
    Next i
End With
MsgBox "完毕!"
End Sub

3190496160

测试.rar (28.04 KB, 下载次数: 10)

2023-2-11 19:48 上传

点击文件名下载附件