Question

VBA设置页眉时动态调用单元格中的内容

如题，我要在设置页眉时动态调用单元格中的内容。比如，第一页调用A1单元格中的内容，第二页调用A2单元格中的内容，依此类推。如何实现？

Answer 1

理论上应该先在每一页之后插入分节符，然后再调用修改每一节的页眉。没具体操作，你可以先尝试下这样做做看。

Answer 2

Sub 打印()
i = 1
With ActiveSheet.PageSetup
.CenterHeader = Cells(1, i).Value
End With
ActiveSheet.PrintOut From:=i, To:=i, Copies:=1
k = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For i = 2 To k
With ActiveSheet.PageSetup
.CenterHeader = Cells(1, i).Value
End With
ActiveSheet.PrintOut From:=i, To:=i, Copies:=1
Next
End Sub

追问

谢谢您提供的答案！我还有两个问题。一是要引用的内容要改成指定工作表的单元格。二是把这个程序放到其它的模块中怎么用，也就是把这段代码作为一个模块的一部分代码时怎么用？

追答

1、把Activesheet替换成你的工作表，比如：sheets("表1")
2、如果把这个程序复制到其它模块后，可以在其它程序中调用其程序名，比如：

sub test()
'一些代码
打印
'一些代码
end sub