求助，自动批量分页打印，如下图所示，每个农户一A4纸打印出来

flyinshsky

求助，自动批量分页打印，如下图所示，每个农户一A4纸打印出来

下面有5000的农户信息，要批量自动分页

szqhb

朱老师，用代码帮他从第二个"散养户免疫登记表"起在上面一行插入分页符即可分户打印

刀羊

用辅助列+分类汇总 也可以完成分页。

szqhb

批量插入分页符，请测试
Sub 批量插入分页符()
ActiveSheet.ResetAllPageBreaks    '当前表重置所有分页符，删除当前分页符
For Each r In ActiveSheet.Range("a3:a" & [a65536].End(xlUp).Row)    '数组，A3为起始范围，以避开给首行插入分页符造成空白页
    If r.Value = "散养户免疫登记表" Then    '指定文本
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=r.Offset(0, 0) '插入分页符
    End If
Next '循环查找下一个
End Sub



注意：你文档中的“散养户免疫登记表”好像有空格，请将其复制到代码中

flyinshsky

非常好，感谢老板的分享，非常有用，抱歉这么多年才回复

babol

天哪，真是够久了。