设置方法如下:
打开需要打印的Excel表格,依次单击“开始→选项”,在打开的excel选项对话框中单击左侧“自定义功能区”菜单,在右侧勾选“开发工具”选项,勾选完成后单击”确定”;
完成上述设置后,依次单击“开发工具→录制宏”;
在弹出的录制宏对话框保持默认选择单击“确定”;
完成上述操作后,单击菜单中的“停止录制”;
此时单击“宏”,在弹出的宏对话框中选择上步建立的宏选项单击“编辑”;在打开的宏编辑对话框中将下述代码粘贴到宏编辑对话框中;
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
完成上述操作后依次关闭宏对话框;
完成上述操作后单击宏,在宏对话框中选择上步骤中编辑好的宏“分页”选择“执行”;
完成上述操作后依次单击“页面布局>打印标题”,在弹出的“页面设置”对话框中单击“顶端标题行”后的向上箭头;
此时页面设置自动收缩,鼠标变成向右的箭头,此时选择标题行;
选择完成后单击页面设置后的向下箭头;
完成上述操作后在页面设置对话框中单击“确定”;
完成上述操作后即可执行Ctrl+P进行打印,结果如下每页20行并且带有表头。
方法/步骤:
1,点“预览”,再关闭,会在分页处留有虚线,调整所有的行高,让内容刚好填满虚线。
2,或者依次点击“视图“—”分页预览”,调整中间的分页线,平分打印内容即可。
excel打印时,怎么设置每页打相同行数的方法如下:
1、打开要处理的excel文档,
2、全选表格,
3、设置行高,
4、使所有行等高即可。
也可以通过编制vba程序,将需要打印的行进行处理,这样就可以了按需要打印固定的行数了。
按住Ctrl键,选择所有的Sheet,在打印设置中统一设置一下就可以了。
全选表格,设置行高,使所有行等高即可。