跨合并打印技术代码源码.docxVIP

跨页打印合并技术源码分享(禁止使用在商业用途的插件) Sub 重组跨页合并() 将跨页的合并单元格重新合并从而适应分页打印On Error Resume Next Dim P, MergeAddress As String, PageCell As Range, MergeValue 声明变量Application.ScreenUpdating = False 关闭屏幕刷新，加快代码执行速度ActiveWindow.View = xlPageBreakPreview 进入分页预览，才可以判断分页符位置For Each P In ActiveSheet.HPageBreaks 逐页循环 将每个