1、用分页预览,手动设置就行了,
2、固定行高,让它每页只能显示30行,
如果有顶端标题,可以把每页都要显示的设标题在页面设置里设为顶端标题。
设置方法如下:
打开需要打印的Excel表格,依次单击“开始→选项”,在打开的excel选项对话框中单击左侧“自定义功能区”菜单,在右侧勾选“开发工具”选项,勾选完成后单击”确定”;
完成上述设置后,依次单击“开发工具→录制宏”;
在d出的录制宏对话框保持默认选择单击“确定”;
完成上述 *** 作后,单击菜单中的“停止录制”;
此时单击“宏”,在d出的宏对话框中选择上步建立的宏选项单击“编辑”;在打开的宏编辑对话框中将下述代码粘贴到宏编辑对话框中;
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
完成上述 *** 作后依次关闭宏对话框;
完成上述 *** 作后单击宏,在宏对话框中选择上步骤中编辑好的宏“分页”选择“执行”;
完成上述 *** 作后依次单击“页面布局>打印标题”,在d出的“页面设置”对话框中单击“顶端标题行”后的向上箭头;
此时页面设置自动收缩,鼠标变成向右的箭头,此时选择标题行;
选择完成后单击页面设置后的向下箭头;
完成上述 *** 作后在页面设置对话框中单击“确定”;
完成上述 *** 作后即可执行Ctrl+P进行打印,结果如下每页20行并且带有表头。
1、首先选中这十行,文件--打印区域--设置打印区域。2、也可以先打印预览,编辑区域出现打印范围虚线框,然后选中这十行右键--行高--输入数据--确定,调整行高每页正好十行,下面的其他行也用这里的行高数据。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)