☰

打印 Excel 电子表格的每一行都是单页上的列表

tag-icon • tag-icon microsoft-excel
打印 Excel 电子表格的每一行都是单页上的列表

我有一个很大的 Excel 电子表格。每行有 30 列。我想将每行打印为一页上的列表。共有 100 行，30 列。我想打印 100 页，每页包含 30 个项目的列表，每列一个项目。

我怎样才能做到这一点。

谢谢。

答案1

您可以将行高调整到 250 左右，这将强制每行打印在单独的页面上（您可能需要尝试不同的行高并不断检查打印预览，具体取决于您使用的纸张尺寸）。

如果您需要确保标题在每行上方可见，请转到“页面布局”>“打印标题”，然后在“顶部重复的行”下输入标题所在的行。

也可以通过 VBA 使用以下宏来完成：

Sub Print1RowPerPage()
Dim Rng As Range
Dim WorkRng As Range
Dim Ws As Worksheet
On Error Resume Next
TitleId = "Select Range"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", TitleId, WorkRng.Address, Type:=8)
Set Ws = WorkRng.Parent
For Each Rng In WorkRng
Ws.PageSetup.PrintArea = Rng.EntireRow.Address
Ws.PrintPreview
Next
End Sub

不过，这将要求您在 100 行的每个预览上分别单击“打印”。这不会太耗时，因为它实际上只是在同一个地方反复单击，但可能有点烦人。

相关内容