- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：excelマクロでセル値をフッターに設定＆印刷）
Excelマクロでセル値をフッターに設定 ＆ 印刷
このQ&Aのポイント
- Excelマクロを使用して、セルの値をフッターに設定し、指定のフォントサイズで印刷する方法について教えてください。
- 数百行（数十ページ）続く表において、各ページに対応した品名をフッターに設定し、フォントサイズを32に変更して印刷するマクロの作り方を教えてください。
- Excelのマクロを使って、セルの値をフッターに設定し、印刷を行う方法について詳しく教えてください。
- noname7412
- お礼率100% (3/3)
- その他MS Office製品
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こんばんは。 ＞作りたいです 淡々とプログラムするだけです。 Sub macro1() Dim i, r For i = 1 To ActiveSheet.HPageBreaks.Count r = ActiveSheet.HPageBreaks(i).Location.Row - 1 ActiveSheet.PageSetup.LeftFooter = "&32" & Cells(r, "A").Value ActiveSheet.PrintOut from:=i, to:=i, copies:=Cells(r, "B").Value Next i ActiveSheet.PageSetup.LeftFooter = "&32" & Range("A65536").End(xlUp).Value ActiveSheet.PrintOut from:=i, to:=i, copies:=Range("B65536").End(xlUp).Value End Sub
お礼
ありがとうございます。 こんなに早く解決すると思いませんでした。 大変助かりました。