印刷関連の面倒な操作もVBAで自動化しましょう。ここで紹介するのは、表内のデータに応じて、ページを分けて印刷するVBAです。
図1のような店舗別の売上の表があり、B列には東京、千葉、埼玉、神奈川といったエリアのデータが入力されており、エリアごとに並んでいるとします。Subプロシージャ「エリア別印刷」を実行すると、この表をエリアごとにページを分けて印刷します。その際、印刷プレビューを表示することとします。
図1●エリアごとに別ページで印刷。印刷プレビューで［次 のページ］をクリックすると、次のエリアの印刷プレビューが 表示される。表タイトルと列見出しは常に含まれる。画面 の印刷プレビューはズームしている
[画像のクリックで拡大表示]
なお、あらかじめ表全体を印刷範囲に設定し、印刷タイトルを1～3行目に設定しておきます。印刷タイトルとは、印刷時に必ず表示される行のこと。設定は［ページレイアウト］タブの［印刷タイトル］から行います。