[[20060323081133]]　『マクロで印刷（グラフのみは省く）』（てつ）　ページの最後に飛ぶ

『マクロで印刷（グラフのみは省く）』（てつ）

 グラフを含んだシートが20枚ほどあります。
 以下のマクロで印刷したのですが、グラフのみ印刷されるプリントも出てきます。
 グラフのみの印刷は行わないで、常にシート（グラフを含んだまま）表示されているものを
 90%縮小で印刷するにはどうしたらいいでしょうか。
 よろしくお願いします。

page = 4

 pages = Worksheets.Count
 For n = page To pages
  Sheets(n).Select
   With ActiveSheet.PageSetup
        .PaperSize = xlPaperA3
        .Zoom = 90
    End With
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Preview _
        :=False, Collate:=True
Next n
Exit Sub
DoCancel:
End Sub

 グラフエリアの書式設定＞プロパティ＞オブジェクトを印刷する
のチェックをはずしておけばよいのではないでしょうか。
（あるいは、その設定の操作をマクロ記録してみてください）
(みやほりん)(-_∂)b

 早速の回答ありがとうございます。
 やってみたところ、グラフのみのページは出なくなったのですが、
 印刷した場合、シートのグラフも消えてしまいました。

 各シートで、文字の箇所とグラフを一緒に印刷したいのですが、
 現状では、併せてグラフのみの用紙も印刷されてしまうのです。
 グラフのみの用紙は印刷しないようにしたいのですが、、、
 よろしくお願いします。　　（てつ）

 「グラフを全て印刷しない」のつもりで回答差し上げたのですが、
「グラフだけが表示されているページは印刷しない」ということなんでしょうか。
　　
＞グラフのみのページは出なくなったのですが、
＞印刷した場合、シートのグラフも消えてしまいました。
印刷したいグラフのチェックははずさなければ良いと思うのですが･･･。
　　
＞グラフのみの用紙は印刷しないように
印刷したい範囲が飛び地になっている場合は、
第一の範囲を範囲選択後、Ctrlキーを押しながら第二の範囲を範囲選択・・・。
などとして印刷したい範囲だけを範囲選択して、
　
ファイル＞印刷範囲の設定　？
(みやほりん)(-_∂)b

 説明の仕方が悪くてすいませんでした。
 グラフと文字がシートにあるのですが、先ほどのマクロで「プレビュー＝しない」
 に設定して実行すると、なぜか　思っているプリントだけでなく、グラフのみが
 抽出されて印刷されるページが出てくるのです。
 プレビューをする に設定して、１枚１枚確認しながら進めるとなぜかグラフのみの
 ページは出てこなくて、最後まで印刷できました。
 みやほりんさん お手数をおかけしました。
 グラフを印刷しない　方法は知りませんでしたので、今後活用したいと思います。
 ありがとうございました。　　　　　　　　（てつ）

コメント返信：

[ 一覧(最新更新順) ]

[[20060323081133]] 『マクロで印刷（グラフのみは省く）』（てつ） ページの最後に飛ぶ

[[20060323081133]]　『マクロで印刷（グラフのみは省く）』（てつ）　ページの最後に飛ぶ