ヘッダの変更テキストのMicrosoft ExcelでVBAを使用して印刷

投稿日: 2020年10月22日 2020年11月12日
タグ: printing-in-vba

質問：

印刷時にヘッダーのテキストを変更する方法。

以下のコードを通常のモジュールに配置します。

Sub VariableRow()

Dim intCount As Integer, intCounter As Integer

Range("A1").Select

intCount = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(50),1)")

Sheet1.PageSetup.PrintTitleRows = "1:1"

For intCounter = 1 To intCount

Range("A1").Value = "RepetitionLine " & intCounter & ". Page"

ActiveSheet.PrintOut from:=intCounter, to:=intCounter

Next intCounter

Range("A1").Value = "RepetitionLine"

End Sub