Question

我有很多要打印的数据我想重复一些行作为标题行，但不希望它出现在首页中标题行将始终是我选择的第五行到第七行，而不是页面

所以我尝试了这段代码，但没有成功

Sub printonlyselection()
Dim lPages As Long
lPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
Selection.PrintOut From:=1, To:=1
.PrintTitleRows = Selection.Rows("5:7")
Selection.PrintOut From:=2, To:=lPages
.PrintTitleRows = ""
End With
End Sub

任何帮助都会感激

Answer 1

答案很简单，但看不清楚对代码的改动会很小我已经在文件中重复了这些行，因此我将只修复三行该代码将打印第一页，而没有任何重复的行作为标题然后将这些固定行从第2页打印到最后一页，然后再次从页眉中将其删除

Sub printonlyselection()
 Dim lPages As Long
 lPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
   With ActiveSheet.PageSetup
    Selection.PrintOut From:=1, To:=1
    .PrintTitleRows = "$5:$7"
    Selection.PrintOut From:=2, To:=lPages
    .PrintTitleRows = ""
   End With
End Sub

打印时如何从第2页重复标题行

1 个答案: