• 締切済み

印刷時の空白部分の処理のしかたについて

エクセルで月末の支払い予定表を作っています。 担当者毎にフイルタをかけて表を印刷しているのですが担当者によって 支払先が、10件の方もいれば、100件の方もいます。 フイルタをかけて印刷する際に最後の頁(B4の紙)が、あまりにも空白が 多すぎてとても無駄(見栄えが良くない?)の様に思えます。 そこで、VBAの機能を使用して最後の頁の空白部分に罫線を引いた行(表) を挿入したいのですが、良いマクロコードはないでしょうか。 追加、印刷後空白の行は、削除する。 罫線を引いた行があれば査定する担当者もその部分に追加記入(手書き) できるので少しは作業性もいいのかな…と思っています。 どなたかご指導よろしくお願いします。

みんなの回答

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.1

VBAで帳票を印刷できるスキルがあるのでしょうね。 それであれば、何も取り立てて質問で聞くほどの事も無いのでは。 担当者ごとに改ページしているでしょうね。 改ページ、またはその担当に変わった最初行から、印刷行数(実際は印刷明細行にデータを代入した行数を、決めた変数にカウントアップし、 担当者が変わった 元データ行が終っても 所定の40行(例)に達するまで明細内容空白の罫線枠を書く(コピ ーする)ことをすればよい。 ですからそうなれば明細1行セットすつごとに左右+下罫線は1行ずつその都度セットが良いかもしれない。 ーー その大前提として、担当者別に明細はソートされているものとします。 ソートされて無い状態で、フィルタなどでやると複雑になりますが。 (1)そこで打ち切り (2)所定行数罫線だけでも印刷 は2大パターンで珍しくもない。

itasu
質問者

補足

回答ありがとうございます。 《印刷行数(実際は印刷明細行にデータを代入した行数を、決めた変数にカウントアップ...》 ↑これは、最初に印刷できる行数を決めておくのでしょうか? セルの設定によっては、行巾が変わることがあるので次の頁にはみ出ることが あるのではないでしょうか。  思い違いでしたら申し訳ありません。 上記の事を踏まえて 最後の頁に、何行追加できるか知る方法がわからないのです。 VBAに関しては、このサイトを利用して何とか簡単なマクロが組める程度なので ヒントでもいいのでコードがわかれば試行錯誤しながら考えたいと思っています。 よろしくお願いします。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • VBA 印刷について(空白ページを印刷しない)

    エクセル VBAで空白のシート及び空白ページを印刷しない方法を教えてください。 見積明細シートが明細1、明細2と9まであります。 各シート見積もりの内容によりページ数が異なり 入力の無いシートもあります(明細3以降入力無し等) 又、2行目まではタイトル行のためシートに最初から入力済みです。 縦横とも罫線を引いてあります。 A    B   C   D    E   F 1 項目  適用  単価  単位  金額   備考← タイトル行 2                        ← タイトル行 3 ここから入力 4 5 ↓ 1ページ23行 例えば、明細1 24行まで入力した場合、2ページめの最後(44行目まで) 印刷したい。 明細2以降 タイトル行以外にデーターが有れば印刷、なければ印刷しない。 様な感じです。 最終行まで印刷するところまでは自力でたどり着いたのですが、それだと最終行よりしたの罫線が印刷されなくて困っています どなたかご教示願います

  • Excelの最後の1行が印刷できない

    Windows Vistaで、Excel2007を使っています。 表を作って、最近まできちんと印刷されていたのですが、どう設定が変わったのか最後の1行が空白になってしまいました。 印刷プレビューではちゃんと見えていますし、次のページにはなっていません。 その行(セル)の罫線は印刷されているのに、中の文字や数字が空白なのです。 元のように印刷する方法を教えてください。

  • エクセル ページ全体に罫線を印刷

    エクセルについて教えてください。 ある特定の値の箇所に改行を1ページ~300ページまで追加しました。 1ページ目は5行、2ページ目は15行・・・とページによって行数が違います。 印刷プレビューしたら、1ページ目は、5行目のところまでの枠線しか表示されません。 ページ全体(空白の部分にも)に罫線を印刷するためにはどうすればよいですか? 手動で空白の行をページごとに入れるしかないのでしょうか? VB等他の方法で出来れば教えてください。 エクセルは、2003及び2007を使用しています。 うまく説明が出来ていないかもしれませんが、よろしく願い致します。

  • [エクセル]表の最後の方で見た目が空白に見えるセルを印刷しない方法あり

    [エクセル]表の最後の方で見た目が空白に見えるセルを印刷しない方法ありませんか? ★表題の通りですが、  エクセルで作成した表の最後の方に  数式が入っているものの見た目が空白に見えるセルがあり  その部分を印刷しない方法を探しています。  注意して頂きたいこと を読んでからご回答ください。 ★現在の表の説明 例:A1~A5000 全てに =IF(論理式,"数値データ","")といった感じの式を書いています   ↑の表には境目があり ある行までは真で それ以降は必ず偽になります(つまり空白)   境目となる行の位置はその時の入力データにより違います   境目の位置によっては、ヘッダー(ページ数)のみが書かれた状態の白紙が沢山印刷されます ★注意して頂きたいこと★ (1)印刷ページ数/印刷総ページ数は必ずヘッダーで使用したいので   各ページの最初になるセル部分へ式を書いて・・・というのは避けて下さい (2)その都度印刷範囲を設定したりページ数を設定すれば   余分な空白部分は印刷しなくて済む話なのですが、   PCをほとんど触らない人も使う為簡単なように   入力データ毎に代わる空白を印刷されないように設定しておきたいのです こんな方法ありませんでしょうか?よろしくお願いします。

  • Excelで表形式の文書:印刷で頁間大きく分離し空白ができるが詰めて印刷したい

    Excelで表形式の文書を、オートフィルタでフィルタかけたものを表示し印刷したとき、 フィルタの入っている行とそれ以下の行が、おおきく分離されて印刷された。 結果1頁目は4行分しか印刷されていない。2頁目以下は正常ですが1頁、2頁を分離せず印刷したいのですが。(なお今までは特に分離されて印刷はされていなかったのですが。)

  • EXCELで罫線の入った表の印刷でページのまたがり

    EXCELで罫線の入った表の印刷でページのまたがったところの整形 請求書ではないのですが、請求書のような文書をイメージされても 結構です。 印刷で1ページに収まらない時、複数のページになりますが、 例えば、1ページの最後の行、と2ページの最初の行が歯ぬけ、の感じ になります。 今、処理している方法は ・改行するところで、新たに2行、挿入する。 ・挿入した2行の罫線を消す ・1ページの最後の行にアンダーラインのような罫線を入れる ・2ページの最初の行に頭に罫線を入れる としています、が もっと効果的な方法はないのでしょうか よろしく、お願いします。

  • エクセルで作成した表の印刷について

    お世話になります。 エクセルで表を作成しました。(数種類の罫線を使用) 複数ページにまたがっているページの印刷をする際に、ページの最後に印刷される点線部分(表の途中部分)を、太い罫線で印刷させるにはどうしたら良いでしょうか? ページ数は50ページ程あります。 回答よろしくお願い致します。

  • エクセルにてページの境目の罫線が印刷されません

    エクセル2003および2007を使用しています。 何ページにもなる長い表があります。 1行ずつ罫線が設定されているのですが、 ページの境目(一番下段)の下線部分の罫線が印刷されたり、 されなかったりします。 全てに罫線は設定されているのにどうして印刷されるページとされないページがあるのでしょう。 ちゃんと印刷されるためにはどうしたらいいのでしょうか。 ちなみに、印刷プレビューにはちゃんと径線は表示されています。 よろしくお願いします。

  • エクセル 表を見栄えよく印刷したい。

    初歩的な質問ですみません。 エクセルで表を作り入力は済んだのですが、見栄えが良くありません。 印刷すると、100行の表がずらーっとそのまま印刷されます。 希望としては *1ページ目は1行目~30行目、2ページ目は31~50行まで・・と印刷したいのです。 改ページプレビューを開いてみたのですが、今ひとつ自信がありません。 手順を教えてくださると幸いです。 その他、表の見栄えを良くするやり方がありましたらお願いします。

  • ワードに空白部分ができます。

    ワードに空白部分ができます。 ワードに空白部分ができます。 ワードを縦書きで使っています。   元に戻ったりして校正しながら書いていると、 ある行の途中までいくと、その行の下数文字分が空白になって入力できなくなってしまい、 スペースキーを押してもその行の最後の文字から次の行に進むので、 そこだけ穴が開いている状態です。 穴を埋めるにはどうしたらいいのでしょうか。 ワード初心者です。教えてください<(_ _)>