excel怎樣每頁行數一樣
發布時間: 2023-02-03 21:08:09
Ⅰ excel中,如何設置每頁列印相同的行數!
設置方法如下:
打開需要列印的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
完成上述操作後依次關閉宏對話框;
完成上述操作後單擊宏,在宏對話框中選擇上步驟中編輯好的宏「分頁」選擇「執行」;
熱點內容