エクセルVBA印刷改ページ行数設定
- エクセル2002での印刷範囲設定方法について教えてください。
- 行数が毎回異なる場合、改ページの条件はどのように設定すればよいですか?
- ネット上には多くの印刷範囲の設定方法がありますが、私の希望する方法が見つかりませんでした。どのように設定すれば良いでしょうか?
- ベストアンサー
エクセル 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) 印刷範囲の設定はネット上に多数紹介されていますが 私の設定したい方法は見つけることができませんでした 思考錯誤してみましたが、私のスキルでは無理でした よろしくご教示願います
- sadacchi12
- お礼率67% (35/52)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 (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 といった具合に、丁寧に書いていけば出来ます。
関連するQ&A
- 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 どなたか教えて頂けないでしょうか?
- ベストアンサー
- Excel(エクセル)
- EXCEL VBA----改ページ設定
帳票を発行し、印刷するところまでの処理で下記のような改ページ設定をしたいのですが 良い方法がありましたら、お教え下さい。 帳票の用紙→A3横 1~10行目までを印刷の行タイトルに設定 データは12行目から開始 各列にはオーダーNo.、品名等が並び 1オーダーNo.を1単位として、1単位が終われば罫線を引く。(設定済) 1単位の行数は、単位によってバラバラ。 オーダーNo.の列は、次のオーダーNo.まで空白 総行数が1ページの行数(現状65行)を超えた時、 通常のままでは単位の途中で改ページしてしまうので これをうまく改ページしたい。 総ページが3になる場合も有り得る。 とてもわかり辛いと思いますが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル 印刷 行数で
Excelについて。 印刷をする場合、印刷プレビューやページ設定で拡大縮小印刷など便利な機能・設定がありますが、 エクセルの行数を指定して印刷はできないのでしょうか? 例えば、25行ずつ紙1枚に印刷したい。 印刷したいエクセルの行数が70行であれば、紙3枚になります。 改ページプレビューで手動で行うのは、スマートではない気がしますし、非常に長い行数の場合に困ります。 お手数ですが、よろしくお願いします。 エクセル2010以上
- 締切済み
- Excel(エクセル)
- エクセル印刷ページ行数指定
エクセル印刷ページ行数指定 A1:F1000程度のデータがあります。 A4サイズ縦に 1ページ37行で改ページしたいと思います。 1行目はタイトルです。 A:Aの文字データ(半角英数字)の左から2文字目もしくは3文字目が変わると改ページするようにしたいです。 その場合データが1ページ37行に満たない場合でも改ページし37行まで空白(罫線あり)で出力させたいのですが。
- ベストアンサー
- オフィス系ソフト
- Excel 1ページに印刷される行数を増やすには?
こんばんは?掲題の通りなのですが、 Excelで1ページに印刷される行数を増やすにはどうすれば良いでしょうか?・・・といってもちょっと事情が異なり、 列幅は狭めずに行数だけを増やしたいのです・ ちょっと文章で説明するのが難しいのですが、 例を上げると、印刷設定で拡大率100パーセントで50行目まで、 1つのページに印刷される状態だとしましょう。 これを拡大率100パーセントのままで75行目まで、 1つのページに印刷させる方法はあるでしょか? 拡大率を落とすと、ある一定の率を越えると、 どうしても横幅も一緒に狭まってしまい。 書類のバランスが悪くなってしまいます。 余白を減らしたりしてみたのですが、 そこまで劇的行数は増えません。 エクセルシート上の印刷範囲を示す、 点線の範囲を広げればいいのかと思い、 ファイル→印刷範囲→印刷範囲の設定をしてみたのですが、 全く変化なしで、お手上げ状態です。 どなたか教えて頂けないでしょうか? 宜しくお願い致します。
- 締切済み
- オフィス系ソフト
- Excelで・・・1ページあたりの行数を指定できますか?
Excelでデータを入力していますが、1ページあたりの行数を11行に固定したいと思います。 改ページだと途中にデータが増えた場合、変な所での改行されてしまうので別の方法を教えてください。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- Excel 非表示 行数制限
Excel2000で、約10,000行、A4で200頁の表を作成しています。 データの内容によって、一部非表示にして印刷したい場合があります。 今回必要なのは、20頁だけなので、複数行(100~1000行単位)を非表示にして印刷プレビューを見ると、 非表示にはなっていますが空白のページができていて、ページ数は減っていません。 いろいろ実験してみましたが、小さな表なら問題なく非表示で印刷できます。 10,000行とかの表になると非表示にする際の行数制限があるのでしょうか?教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 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% をした時点で、ついてしまった線のようです。 余計な改ページ線を削除したいです。 なお、マクロは自動記録しかわかっておらず、 意味がわかっていないです。 お手数ですが お分かりになる方、 わかりやすくお願いいたします。
- 締切済み
- オフィス系ソフト
- excel 改ページの後のタイトル行の印刷
どのページにも、一ページ目の3行目をタイトルとして印字する方法。 改ページのタイミングを 25 行目を印刷したらと設定したい。 初歩的ですが、宜しくお願いします。
- ベストアンサー
- その他MS Office製品
- ページ設定で行数を追加すると
1ページ41行のページ設定(A4縦)で書類を作りました。 これを1ページ内の行数を増やそうと思い、ページ設定で行数を45行に増やすと、(グリッド線を表示して確認すると) ・2行で1行になっている。(2行の中間に文字が入っている) ・それにより1ページでおさまっていたものが、2ページになった。 これはどうすれば、1ページ45行になり、解決するでしょうか。 よろしくお願いします
- ベストアンサー
- オフィス系ソフト
お礼
2通りも回答いただきありがとうございました 無事動作確認できました それにしても、これだけエクセルを使っていながら 『挿入メニューの改ページ』の機能は知りませんでした 日々の探求が足りないんですね。反省します。