VBAで印刷する行数に合わせて改ページを自動指定
- VBAを使用して、印刷する行数に合わせて改ページを自動で指定する方法を知りたいです。印刷する行数は毎回異なります。
- 使用する用紙はA4横で、印刷範囲はA~U列です。印刷タイトルとして、行タイトル"$1:$7"、列タイトル"$A:$U"が指定されています。
- 行の改ページは8行目から13行ごとに行われるようにしたいです。具体的な例として、総行数が50行の場合、1ページ目には印刷タイトルと行8~20が表示され、2ページ目には印刷タイトルと行21~33が表示されるようにしたいです。
- ベストアンサー
VBAで印刷する行数に合わせて改ページを自動指定
お世話になります。 表題の通り、VBAにて印刷する行数に合わせて改ページを自動で指定したいのですが、 どうやればよいのでしょうか? 印刷する行数は毎回異なります。用紙はA4横、印刷範囲はA~U列で列は1ページに収めたいです。 印刷タイトルとして、行タイトル"$1:$7"、列タイトル"$A:$U"が指定してあります。 行の改ページは8行目から13行毎に改ページを入れたいです。 例 総行数50行とした場合、 1ページ目:印刷タイトル+行8~行20 2ページ目:印刷タイトル+行21~行33 3ページ目:印刷タイトル+行34~行46 4ページ目:印刷タイトル+行47~行50 どなたか教えて頂けないでしょうか?
- Erin_all_right
- お礼率78% (30/38)
- Excel(エクセル)
- 回答数1
- ありがとう数6
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
>総行数50行とした場合 いま50行有ると「どこを見たら判る」のか説明不足ですが,とりあえずA列の下端で調べる事にして。 あとはそこまで淡々と,改ページを入れていくだけです。 sub macro1() dim r as long activesheet.resetallpagebreaks activesheet.pagesetup.fittopageswide = 1 activesheet.pagesetup.fittopagestall = false for r = 21 to range("A65536").end(xlup).row step 13 activesheet.hpagebreaks.add before:=cells(r, "A") next r end sub #ていうかふつーは一度改ページを設定したら,それをわざわざ付け直すと言う状況はあんまり無いと思いますけどね。
関連するQ&A
- エクセル VBA 印刷改ページ 行数設定
環境: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) 印刷範囲の設定はネット上に多数紹介されていますが 私の設定したい方法は見つけることができませんでした 思考錯誤してみましたが、私のスキルでは無理でした よろしくご教示願います
- ベストアンサー
- オフィス系ソフト
- EXCEL VBA----改ページ設定
帳票を発行し、印刷するところまでの処理で下記のような改ページ設定をしたいのですが 良い方法がありましたら、お教え下さい。 帳票の用紙→A3横 1~10行目までを印刷の行タイトルに設定 データは12行目から開始 各列にはオーダーNo.、品名等が並び 1オーダーNo.を1単位として、1単位が終われば罫線を引く。(設定済) 1単位の行数は、単位によってバラバラ。 オーダーNo.の列は、次のオーダーNo.まで空白 総行数が1ページの行数(現状65行)を超えた時、 通常のままでは単位の途中で改ページしてしまうので これをうまく改ページしたい。 総ページが3になる場合も有り得る。 とてもわかり辛いと思いますが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル印刷ページ行数指定
エクセル印刷ページ行数指定 A1:F1000程度のデータがあります。 A4サイズ縦に 1ページ37行で改ページしたいと思います。 1行目はタイトルです。 A:Aの文字データ(半角英数字)の左から2文字目もしくは3文字目が変わると改ページするようにしたいです。 その場合データが1ページ37行に満たない場合でも改ページし37行まで空白(罫線あり)で出力させたいのですが。
- ベストアンサー
- オフィス系ソフト
- エクセル 印刷 行数で
Excelについて。 印刷をする場合、印刷プレビューやページ設定で拡大縮小印刷など便利な機能・設定がありますが、 エクセルの行数を指定して印刷はできないのでしょうか? 例えば、25行ずつ紙1枚に印刷したい。 印刷したいエクセルの行数が70行であれば、紙3枚になります。 改ページプレビューで手動で行うのは、スマートではない気がしますし、非常に長い行数の場合に困ります。 お手数ですが、よろしくお願いします。 エクセル2010以上
- 締切済み
- Excel(エクセル)
- Excel 改ページのVBAうまくいかないです
助けてください。EXCEL2000を使用しています。 マクロを組んでいるのですが、改ページがうまくいきません。 マクロ実行前の状態では、ページ設定で、用紙が「A3」の「縦」で拡大縮小が「79%」、データの区切りのいいところに何箇所か改ページが設定されています。 そこで、マクロを使って、A3サイズ、用紙を横、拡大縮小92%にして、尚かつ区切りのいいところ(毎回印刷範囲、区切りたいセルの位置は決まっている)で印刷できるようにしたいです。 印刷範囲は A1:P63,A64:P126,A127:P193,A194:P237,A257:P329, A330:P357,A368:P397,A401:P462 で設定したいです。 改ページしたい行を ひたすら ActiveSheet.HPageBreaks.Add Before:=Range("セル番地") で記述したのですが、 余計なところにも改ページ線ができてしまいました。(121行目の下、 351行目の下) このいらない改ページ線は、用紙を横にして、拡大縮小を92% をした時点で、ついてしまった線のようです。 余計な改ページ線を削除したいです。 なお、マクロは自動記録しかわかっておらず、 意味がわかっていないです。 お手数ですが お分かりになる方、 わかりやすくお願いいたします。
- 締切済み
- オフィス系ソフト
- VBA:各ページの先頭セルを選択するコマンドを教えてください
VBA:各ページの先頭セルを選択するコマンドを教えてください --Page 1------ A列 | B列 1 | 4 2 | 5 3 | 6 --Page 2------ 7 | 11 8 | 12 9 | 13 10 | 14 --Page 3------ ... 元は印刷用に作ったこのような表があります。A列だけにして、数字順にずらっと並べ替えたいと思っています。 各ページの行数はバラバラで、規則性がありません。実際に入力されているデータは連番ではなく任意の文字列(ページごとにタイトルなどもなく規則性もありません)です。 作ろうとしているマクロは、各ページの末尾にそのページで使われている行数分だけ行挿入→そのページのB列をカット&ペーストでA列のお尻に付けるというものです。 各ページの先頭セル/末尾セルを指定するコマンドがわかれば実現できると思うのですが調べても見つけられませんでした。 (ページ関連となると印刷系ばかりで、、) 恐れ入りますが、お教えいただけますでしょうか。
- 締切済み
- その他(プログラミング・開発)
- Excell2003 一枚の用紙に2ページ印刷
一枚の用紙に2ページ分印刷したいので、よろしくお願いいたします。 Excellの表・・5列・約2000行、列・行の幅は一定ではない・・・ の印刷ですが、これをA4縦長に印刷しても、用紙の右側半分が空いてしまい、無駄になります。そこで、用紙の右側にもうまく印刷したいのですが、方法はあるでしょうか?1ページ目の横に2ページ目を印刷したいということです。 行の幅が一定ではないので、切り貼りして一枚の用紙に収めてから印刷するのは、不可です。
- ベストアンサー
- オフィス系ソフト
- Excelで・・・1ページあたりの行数を指定できますか?
Excelでデータを入力していますが、1ページあたりの行数を11行に固定したいと思います。 改ページだと途中にデータが増えた場合、変な所での改行されてしまうので別の方法を教えてください。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- EXCELで印刷すると同じ列が全部のページに印刷されます
エクセルで表を印刷しようとしているのですが 左側の3列が全部のページの左側に印刷されてしまいます。 例えば 1ページ目は1列~10列が印刷されるとすると 2ページ目は1列~3列、その横に11列~18列 3ページ目は1列~3列、その横に19列~27列 のようになります。 ウインドウ枠の指定はしていません。 印刷範囲を指定しても同じことになります。 改ページプレビューを使っても同じことになります。 解除の方法を教えていただきたく存じます。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- マクロ 指定行数で改ページ 不足行を追加
グループごとに連番を振ってある表があり、 マクロを活用して、指定行数で改ページ印刷をしたいのですが、 やり方がわかりません。 ご存知の方教えていただけますでしょうか。 【表】 Aグループ 1~30の連番 Bグループ 1~25の連番 【やりたいこと】 20行ごとに改ページ印刷 20行未満は空白行を挿入する 【出力イメージ】 1ページ目はAグループ1~20で印刷 2ページ目はAグループ21~30と空白行10行で印刷 3ページ目はBグループ1~20で印刷 4ベージ目はBグループ21~25と空白行15行で印刷
- 締切済み
- Excel(エクセル)
お礼
ご回答ありがとございます。 教えて頂いた方法で、うまくいきました! >#ていうかふつーは一度改ページを設定したら,それをわざわざ付け直すと言う状況はあんまり無いと思いますけどね 印刷する枚数が少ないと1~2枚なのですが、多いと20枚以上になるので、あらかじめ色々やっておくよりは、毎回指定した方が使用者からの問い合わせがすくなくなるかなぁと愚考したためです。 ともあれ、本当にありがとうございました!