在“文件”下有“页面设置”下有“文档网格”下面有“每页多少行”可以设置。还可以设置每行的字符个数,字符跨度什么的,可以试试。
可选定要打印的内容,之后点“打印”设置里面的“打印区域”,选择“选定区域”,就只打你选择的部分。
可以用宏解决,具体内容如下:
Sub ()
Dim i, k As Integer
k = Range("a65536").End(xlUp).Row
For i = 4 To k
If i Mod 20 = 0 Then '当20行 分页
Cells(i + 1, 1).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
Next
End Sub
注:以上为每页20行,可自行更改行数。
选中所有行,设置合适的行高.把要打印的内容设置成每页内容都为整页或者重新设置页边距.
首先选定打印区域→文件→打印区域→设置打印区域。完成