打印自定义标题

我有一个macros创build一个文档，并在文档的末尾，我想设置打印细节作为macros的一部分。

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

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

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中录制macros ，则可以获得如下所示的代码：

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

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