環境:Excel2002です
印刷する行数は毎回異なります
改ページの条件は
(1)行1から10は表題などが設定されているが6から10行を行タイトルに設定する
(2)データ30行毎に改ページする
例:データ数100、行1から10に表題があるので 最終行は110
ページ設定 1ページ:行1から40
行1から10の表題 プラス データ数30(行11~40)
2ページ:行6から10の行タイトル プラス データ数30(行41~70)
3ページ:行6から10の行タイトル プラス データ数30(行71~100)
4ページ:行6から10の行タイトル プラス データ数10(行101~110)
印刷範囲の設定はネット上に多数紹介されていますが
私の設定したい方法は見つけることができませんでした
思考錯誤してみましたが、私のスキルでは無理でした
よろしくご教示願います
No.1ベストアンサー
- 回答日時:
ご相談に書かれていることを手順を追って行うと
1.印刷する行数(最終行)を調べる
2.タイトル行を設定する
3.所定の行に改ページを打つ
4.印刷範囲を設定する
5.印刷する
というだけの作業です。
実際には
事前準備:タイトル行を設定する
事前準備:所定の30行ごとに、データの有無に関係なしに改ページを埋めておく
→挿入メニューの改ページ
マクロの仕事:最終行を調べ、印刷範囲を設定して印刷する
だけで十分です。
作成例:
sub macro1()
dim LastRow as long
’仮にA列で最終行を調べられるとして
lastrow = range("A65536").end(xlup).row
’仮にA:G列を印刷するとして
activesheet.pagesetup.printarea = "$A$1:$G$" & lastrow
activesheet.printout
end sub
もしも手抜きで何も手を動かして準備とかしたくないというなら
sub macro2()
dim LastRow as long
dim r as long
lastrow = range("A65536").end(xlup).row
activesheet.resetallpagebreaks
for r = 41 to lastrow + 1 step 30
activesheet.hpagebreaks.add before:=cells(r, "A")
next r
activesheet.pagesetup.printtitlerows = "$6:$10"
activesheet.pagesetup.printarea = "$A$1:$G$" & lastrow
activesheet.printout
end sub
といった具合に、丁寧に書いていけば出来ます。
2通りも回答いただきありがとうございました
無事動作確認できました
それにしても、これだけエクセルを使っていながら
『挿入メニューの改ページ』の機能は知りませんでした
日々の探求が足りないんですね。反省します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロについて教えてください。 3 2023/06/09 17:37
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Excel(エクセル) Excel ドロップダウンリスト(入力規則)に関してです データの入力規則で元データ79000行のド 3 2023/07/17 10:06
- Excel(エクセル) エクセルVBAで複数のシート印刷設定 1 2022/09/07 12:03
- Excel(エクセル) エクセルの印刷範囲をページ単位で可変にする方法 3 2022/05/23 13:04
- Visual Basic(VBA) VBAの改ページ設定について 7 2022/06/20 00:57
- Visual Basic(VBA) マクロについて教えてください 2 2023/06/09 16:01
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelについて教えてください
-
【マクロ】名前を保存する際に...
-
エクセル マクロ チェックボックス
-
Excel 複数列 A列B列C列一致 D...
-
エクセル vbaについて教えてく...
-
エクセルであるセルに数字を入...
-
【Excel】数字を3倍にし、なお...
-
Excel分析ツールでのポアソン回...
-
エクセルVBA、別ブックへ転記す...
-
【マクロ】顧客番号にて一致さ...
-
Excelでセルの値が同じか...
-
(マクロ)データをAブックからB...
-
エクセルを使っていて2024/5/15...
-
エクセル共有したが、アクセス...
-
エクセル②
-
エクセルのデーターが2か月前の...
-
UNIQUE関数が使えないバージョ...
-
INDIRECTを使わず excelで複数...
-
Excelで縦軸の書式を0:00形式の...
-
【マクロ】読取専用のファイル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報