![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
改ページごとに(異なる)セル値をフッターにセットし、フォントサイズを32に設定したい。
A列の全てのセルに「品名」が入力されている表があります。
下の表のイメージですが、1行目を印刷タイトルとし、1ページ目は2~3行まで、2ページ目は4行のみ、3ページ目は5~6行まで・・・というように品名が変わるごとに改ページが既に設定されています。
B列の印刷枚数も品名ごとに枚数が決まっており数値が入力されています。
A B
1 品名 印刷枚数
2 あ 2
3 あ 2
4 い 3
5 う 1
6 う 1
この表は数百行(数十ページ)続いているのですが、各ページに該当する品名をそれぞれフッター(左)に設定し、フォントサイズを32にし、更に各ページに該当する印刷枚数分だけまとめて印刷するマクロを作りたいです。
アドバイスのほど宜しくお願いします。
No.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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- その他(パソコン・スマホ・電化製品) Webページ印刷時にヘッダー・フッターをつけたい 1 2022/04/25 21:35
- ノートパソコン ページ番号の入れ方について 3 2023/02/16 17:11
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- PDF vbaでpdfを開いて1ページ目のみ印刷する。 1 2022/11/12 12:35
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) Excelであるシートだけ印刷できない 1 2022/04/01 09:04
- Excel(エクセル) セルによって印刷するシートを変える方法 EXCEL-VBA 2 2022/08/01 20:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ぴったり印刷するエクセルVBAを...
-
Excelの印刷:単一シートで複数...
-
エクセルで長い行を1枚に印刷し...
-
Excelで印刷!集計行をすべての...
-
エクセル表の項目部分の固定(...
-
EXCELで一覧表のデータを個別に...
-
MSワード_背景_透かし文字機能...
-
ワードからPDF作成したら文字色...
-
EXCEL印刷
-
セルに画面上色をつけて、印刷...
-
ワードに「URL」を貼り付けると...
-
Wordでこのような三角が出てく...
-
ワードで定型レイアウトを崩さ...
-
エクセルで薄く透ける文字を入...
-
改行すると一段、間が開いてし...
-
スケッチスタイルの有効化
-
XChange Viewerで文字サイズの変更
-
秀丸で余分なスペースを削除したい
-
Word差し込み印刷で2ページ以降...
-
ExcelまたはWordで 丸まったエ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで一覧表のデータを個別に...
-
エクセル 表を大きく、紙いっ...
-
エクセルで長い行を1枚に印刷し...
-
ワードからPDF作成したら文字色...
-
Excelで連番(ナンバリング)印刷
-
エクセルのページ番号印刷を3枚...
-
エクセル2013で1ページ目と2ペ...
-
EXCEL印刷
-
Excelで印刷!集計行をすべての...
-
エクセルで画面では罫線が出て...
-
WordでA3の大きさで左半分と...
-
エクセルシートのPDFでの保存
-
EXCELの改ページプレビューと印...
-
ExcelVBA 改ページの横破線を消...
-
Excel2010 VBAにて印刷設定の取得
-
セルに画面上色をつけて、印刷...
-
ぴったり印刷するエクセルVBAを...
-
Canon PIXUS MP950で奇数ページ...
-
Word作成文書をA3用紙5枚の両面...
-
ワードで「1枚あたりのページ...
おすすめ情報