[[20120308163034]]　『４０シート分の印刷設定を一括変更について』（ﾄﾓﾄﾓ）　ページの最後に飛ぶ

『４０シート分の印刷設定を一括変更について』（ﾄﾓﾄﾓ）

 １シートＡ４サイズで１枚印刷するようにしているものが全部で
 ４０シートあるファイルがあるのですが、表を印刷しようと思ったら、
 印刷プレビューで確認したら余白部分が多くてはみ出ています。
 範囲指定して４０シートを作業グループにして、一括で印刷範囲を換えることはできますか?

 (ﾄﾓﾄﾓ)

 複数シートで設定が出来ないようなので、マクロでの対応ですが、
 先頭シートの印刷範囲を2シート目以降にコピーするものです。
 (Mook)

 Sub CopyPrintArea()
    Dim i As Long
    For i = 2 To Worksheets.Count
        Worksheets(i).PageSetup.PrintArea = Worksheets(1).PageSetup.PrintArea
    Next
 End Sub

 Mookさん

 アドバイスありがとうございます。
 教えていただいたマクロはどのようにすれば作動するようになるのでしょうか。
 マクロぜんぜん分からず、初歩的な質問でスイマセン･･･。
 Alt+F11　ですか?

 (ﾄﾓﾄﾓ)

 こんな手順です。
 ALT+F11 、挿入⇒標準モジュール、 コードをコピー、EXCEL に戻って ALT＋F8 で
 CopyPrintArea を実行。
 (Mook)

 Mookさん

 早速ためしてみました。
 Alt+F8で実行しても、変化せず、1ページに収まりませんでした。
 シート範囲をしてから、Alt+F8を実行しても変わりませんでした。

 何か他に原因があるのでしょうか。

 (ﾄﾓﾄﾓ)

 ご質問がどうも腑に落ちないので、宜しければ教えて頂きたいのですが。。。

 現状 40シートに入力されている物がA4サイズに入りきらない。
 そこで「印刷範囲を設定したい」と言う事だと思いますが
 ・はみ出た部分は印刷しない事にする
 と言う目的なのでしょうか？

 入力されている同じ範囲を印刷範囲にしても、どうせ入り切らないですよね？
 印刷範囲を設定した後、拡大縮小印刷の設定を変えるのでしょうか？

 決められた部分は印刷しない事にするなら、非表示で対応しても良さそうに思いますし
 最終的に印刷の縮小率を変更して、全て納めて印刷するので有れば
 印刷範囲を設定する必要も無さそうに思いますが。。。？

 (HANA)

 HANAさん

 >現状 40シートに入力されている物がA4サイズに入りきらない。
 >そこで「印刷範囲を設定したい」と言う事だと思いますが
 そうです。

 >・はみ出た部分は印刷しない事にする
 >と言う目的なのでしょうか？
 はみ出ないようにしたいのです。

 >入力されている同じ範囲を印刷範囲にしても、どうせ入り切らないですよね？
 >印刷範囲を設定した後、拡大縮小印刷の設定を変えるのでしょうか？
 ごめんなさい。私の理解力がないのですが、ご質問の意味が分かりません。

 今ある４０シートは、すべて同じ形式の表を作成していて、１シート～４０シート目までを選択して、一括印刷したいんです。
 そのために、１シートＡ４にすべて収めたいと思っています。

 説明がうまくできずにすいません。
 こういう場所で、説明がうまくできないのですから、アドバイスなんてもらえませんね。

 (ﾄﾓﾄﾓ)

 質問文をそのまま受け取りましたが、
 やりたいことは1ページへの縮小印刷だったようですね。
 「印刷範囲の設定」という項目があるので、そちらで回答してしまいました。

手動なら、
http://pc.nikkeibp.co.jp/pc21/tech/excel43/37/

マクロで設定するなら、

 Sub PrintSetOnePage()
    For Each ws In Worksheets
        With ws.PageSetup
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
        End With
    Next
 End Sub
 を実行してから、印刷してみてください。

 やっていることはどちらも同じ内容です。
 (Mook)

 ＞こういう場所で、説明がうまくできないのですから、アドバイスなんてもらえませんね。
 いや、そんな事は無いと思いますよ。
 諦めて説明をやめるなら　また別の話に成りますが。

 そもそも問題は
 ＞余白部分が多くてはみ出ています。
   ~~~~~~~~~~~~~~~~
 って事の様に思えますが、
 余白部分を少なくする　と言う選択は出来るのですか？
 可能なら
 　４０シートを作業グループにして、ファイル(F)→ページ設定(U)の[余白]タブで余白を変更
 をされるのが簡単に思えます。

 また、一ページに納まる様に印刷した時の大きさを変更するので良いのなら
 　ファイル(F)→ページ設定(U)の[ページ]タブに　●拡大/縮小(A) [     ]%
 が有りますので、ここの倍率を一ページに納まる様に変更しても良いと思います。

 今はMookさんのマクロを使って　印刷範囲が設定されているので、その下の
 　●次のページ数に合わせて印刷(F)
 で設定しても良いとは思いますが。。。

 縮小印刷すると、全体が小さく成ってしまいます。
 どこか列（行？）の幅を犠牲に出来る所が有るのなら
 作業グループにしてから　一枚に納まる様調整しても良いのかも知れません？

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20120308163034]] 『４０シート分の印刷設定を一括変更について』（ﾄﾓﾄﾓ） ページの最後に飛ぶ

[[20120308163034]]　『４０シート分の印刷設定を一括変更について』（ﾄﾓﾄﾓ）　ページの最後に飛ぶ