页面设置--打印标题---顶端标题--
Sub Macro1()
n = Cells(Rows.Count, 8).End(3).Row
For i = 2 To n
If Cells(i, 8) = "CKS-005.2" Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, 8)
End If
Next
End Sub
如果每个表的表头h列都是CKS-005.2，用上面的代码可以分页
可以试试百度下飚风送货单打印软件免费版
默认带100多种模板改下抬头就可以用了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024