如题所述
第1个回答 推荐于2017-12-16
在“打印预览”中查看效果,如果合并的行内容被分页,那么可在合并的行前插入“分页符号”,强制将合并行列到下一行打印。本回答被网友采纳
第2个回答 2016-06-14
Sub 合并单元格不分页()
Dim i%, sht As Object
On Error Resume Next
Set sht = ActiveSheet
For i = 1 To sht.HPageBreaks.Count
ActiveSheet.HPageBreaks(i).Delete
Cells(sht.HPageBreaks(i).Location.Row, 1).Select
If Selection.MergeCells = True Then ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Next i
End Sub
Dim i%, sht As Object
On Error Resume Next
Set sht = ActiveSheet
For i = 1 To sht.HPageBreaks.Count
ActiveSheet.HPageBreaks(i).Delete
Cells(sht.HPageBreaks(i).Location.Row, 1).Select
If Selection.MergeCells = True Then ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Next i
End Sub