使用自定义标题打印

Question

我有一个创建文档的宏，在文档的最后我想将打印细节设置为宏的一部分。

我想要的是将所有列适合一个页面（但不是行），并冻结前三行，这样当第二页打印时，前三行也出现在第二页上（这是部分）我有问题）。

我的代码（下方）包括（我相信的）除了冻结前三行部分之外的所有内容

With ActiveSheet.PageSetup
 .Orientation = xlLandscape
 .Zoom = False
 .FitToPagesWide = 1
 .FitToPagesTall = False
End With

Answer 1

将其添加到当前代码中使用以下内容：

With ActiveSheet.PageSetup
     .Orientation = xlLandscape
     .Zoom = False
     .FitToPagesWide = 1
     .FitToPagesTall = False
    .PrintTitleRows = "$1:$3"
End With

手动执行此操作：

这样做，你应该得到你要求的结果：

转到“页面布局”，然后转到“工作表”选项卡，并将“行”设置为在顶部重复

Answer 2

如果您在Excel中使用“页面布局”选项卡“打印标题”选项录制宏，则可以获得如下代码：

With ActiveSheet.PageSetup
    .PrintTitleRows = "$1:$3"
    .PrintTitleColumns = ""
End With

将两个重要的行与当前代码合并。