excel怎样每页行数一样

Ⅰ excel中，如何设置每页打印相同的行数！

设置方法如下：

1. 打开需要打印的Excel表格，依次单击“开始→选项”，在打开的excel选项对话框中单击左侧“自定义功能区”菜单，在右侧勾选“开发工具”选项，勾选完成后单击”确定”；

2. 完成上述设置后，依次单击“开发工具→录制宏”；

3. 在弹出的录制宏对话框保持默认选择单击“确定”；

4. 完成上述操作后，单击菜单中的“停止录制”；

   此时单击“宏”，在弹出的宏对话框中选择上步建立的宏选项单击“编辑”；在打开的宏编辑对话框中将下述代码粘贴到宏编辑对话框中；

   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

5. 完成上述操作后依次关闭宏对话框；

6. 完成上述操作后单击宏，在宏对话框中选择上步骤中编辑好的宏“分页”选择“执行”；