Excel2003で複数のページを印刷する際、途中の空白ページをとばして印刷をする事は可能でしょうか?

月に一度、30ページ~50ページ程度の印刷を行い、しかも空白ページの数・場所が毎月変化するので、自動で出来るようにするのが理想です。詳しくは無いのですがマクロ等を使用すれば出来るのでしょうか…。
現在は手動で印刷範囲を複数選択しております。

ちなみにExcel2002(使用経験はありません…)の製品ガイドページには、強化された印刷機能として「空白のページを印刷しない」が追加され、しかも自動的に実行されるとあります。2003ではその機能は引き継がれていないのでしょうか…。

また蛇足ですが、同じマイクロソフトのソフトで「Project 2003」では空白のページが印刷されないようにする方法として[ページ設定]→[データを含まないページを印刷する]のチェックボックス(!?)をオフにする、ともあります…。

この事について、もしどなたかご存知の方がいらっしゃいましたらお教え頂ければ幸いです。宜しくお願い致します。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

ページ = シート? 空白ページ・・ フォームに未入力のシート?




とりあえず 印刷不要なシートを 非表示にする。

判定基準  フォームの設定された シート の
 空白判定領域 に 式、数、文字 の 入力の無いものを 空白ページと判定し 非表示にする。


・非表示を 全て 表示 するマクロで復活


↓マクロ 標準モジュール ↓

Sub フォーム未記入シートを非表示()

空白判定領域 = "B2:D3,B5:D6" '範囲指定
'フォームの初期設定 行,列を除外 "B3:D10"
'フォームの入力項目 複数設定 "B2:D5,B10:D10"

For Each シート In ActiveWorkbook.Worksheets
On Error Resume Next
With シート.Range(空白判定領域)
入力数 = 0
入力数 = .SpecialCells(xlCellTypeFormulas).Count
入力数 = 入力数 + .SpecialCells(xlCellTypeConstants).Count

If 0 = 入力数 Then シート.Visible = False

End With
Next

End Sub




Sub 非表示のシートを全部表示()
For Each シート In ActiveWorkbook.Worksheets

If シート.Visible = False Then
シート.Visible = True
End If

Next

End Sub

この回答への補足

at121様、ご回答頂きありがとうございます。分かりづらい書き方で申し訳ありませんでした…。

1枚のシートに複数頁に渡るデータを入力し印刷しております。例えば3頁にわたる文書の2頁目が空白の場合、その頁をとばして1頁目と3頁目だけを自動で印刷したいのです…。

上の条件で試しに印刷した場合、2頁目に文字・書式・数式が全く無い場合でも白紙で印刷されてしまいます。この状態を解消するには、やはり手動で複数の印刷範囲を設定するしかないのでしょうか…。

補足日時:2005/04/08 15:09
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセルで空白ページが印刷されてししまう

 エクセルで印刷する場合に余分な空白ページが印刷されてしまい困っています。印刷プレビューで見ても空白ページがあります。改ページプレビューで見ても文字等が次のページにはみ出ていることはありません。ただし最初のページ(文字等が書かれている印刷したいページ)の改ページのラインの下に印刷範囲外として色が濃い部分があり、そこにはセルがあり文字を入れることもできます(見た目には文字等はありません)。この部分のセル全部を選択して削除しても空白ページはなくなりませんでした。エクセルは2003を使用しwindows XPを使用しています。是非空白ページの除去の仕方を教えてください。よろしくお願いします。

Aベストアンサー

NO2です。
1枚のシートなら 改ページの表示が出ないはずです。
改ページがどのような状態になっているか分かりませんが とりあえずはずしてみてください。
 全てのシートをアクティブ( シートの左上(行列番号の交点)をクリック)して 挿入→全ての改ページを解除 

それでも 直らなければ 印刷プレビュー 設定 拡大縮小印刷 次のページ数にあわせて印刷 横:1縦:1 

試してみてください

Q白紙部分まで印刷対象に!(エクセルについて)

エクセルのことですが、印刷する時に、何も記入されていない2ページ目も印刷対象になってしまいます。(もちろん、白紙のまま出てくるのですが)
ワードの場合の対処方法は以前、お聞きしたのですが、エクセルの場合が分かりません。
初歩的な事ですみませんが教えてください。お願いします。

Aベストアンサー

印刷のプレビューをしたときに、上に並んでいるボタンに「改ページプレビュー」と
いうのがあるので、それを押して下さい。

そのモードのときには、シートにページの単位で、青い線でセルが括られます。

この青い線は、マウスでドラッグできるので、何も記入されていない2ページ目の
枠を縮めて1ページだけにしてしまいましょう。

ちなみに、このモードから抜ける為には、もう一度プレビューを表示して、
さっきの「改ページプレビュー」があった場所に「標準」というボタンが
でているので、これを押します。

Qエクセルシートの一部を印刷しない方法

教えてください。
エクセルの画面の一部分(一行)を印刷しない方法を教えてください。
コントロールキーを使い、印刷したくない部分を飛ばし印刷設定をしてもうまくいかず、断念です。
どなたかご存知の方教えてください。

なんとか明日の朝までにと思ってるんですが・・・

Aベストアンサー

図のリンク貼り付けを使ったらどうでしょう。

リンク貼り付けは連続した範囲でしか出来ないので、
連続しない場合複数回処理することになります

手順
1.印刷用にsheetを追加
2.印刷したい範囲を選択(コピー)。
3.印刷用のsheetにリンク貼り付け
 貼り付け方法は、Shiftを押しながら「編集」をクリックし、
 「図のリンク貼り付け」を実行
4. 3~4を印刷したい範囲すべてに行う。

図のリンク貼り付けなので、
リンク元が変更されるたびに変更が掛かりますし、
印刷したいsheetの表も自由に動かせます。
百聞は一見にしかずというか、実際に実行してみると分かります。
http://arena.nikkeibp.co.jp/qa/other/20020926/102067/

参考URL:http://arena.nikkeibp.co.jp/qa/other/20020926/102067/


人気Q&Aランキング