エクセルのマクロで、印刷設定をしたいのですが可能でしょうか？

質問

エクセルのマクロで、印刷設定をしたいのですが可能でしょうか？

お世話になっています。
会社での作業を少しでも効率よく出来ないものかと、以下のようなことを考えています。
エクセル２００３を使用していますが、下記のような動作をするマクロを組むことは可能でしょうか？
よろしくご教授ください。

Sheet1は、入力用のシートとして使っています。
Sheet2は、Sheet1に入力された商品データなどから、必要な箇所のみ反映されるように設定しています。
このシートは、罫線などが存在し表形式になっており、全てを印刷するとＡ４用紙６枚分になります。

そこで、Sheet1（入力用のシート）のJ18セルに文字が入力された場合は、Sheet2（印刷用のシート）の１ページだけを印刷したく、Sheet1のj27セルに文字が入力された場合は、Sheet2の２ページまで・・・
Sheet1のJ36に文字が入力された場合は、Sheet2の3ページまでという風に印刷範囲を設定しなくても印刷出来るようにしたいのです。

よろしくお願いします。

回答No.1

hige_082 · ベストアンサー

可能です
マクロの記録を活用しましょう
今回の最終処理は印刷なので、印刷のマクロから考えてみましょう
ただし、１枚から６枚まで印刷枚数を変化する必要があるので考慮します
まずは、１ページのみ、２ページまで、３ページまでの印刷をマクロの記録で記録します
結果は
'------------------------------------------------------------
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2008/11/12 ユーザー名 :
'
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
End Sub

Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2008/11/12 ユーザー名 :
'
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate:=True
End Sub

Sub Macro3()
'
' Macro3 Macro
' マクロ記録日 : 2008/11/12 ユーザー名 :
'
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate:=True
End Sub
'------------------------------------------------------------
のようになるかと思います
以上の結果から印刷枚数は To:= の値を変化させれば良いことが分かると思います
あとは、どうやって印刷枚数を求めるかです
手順としてはSheet1のJ18に値があるか、あれば１ページ
J27に値があるか、あれば２ページまで
　　　　　　・
　　　　　　・
J63に値があるか、あれば６ページまで
Sheet2に移動し、印刷ページ数を設定、印刷実行
これを何も考えず、マクロ化すると次のように成るかと思います
'------------------------------------------------------
Sub test()
Dim 印刷枚数 As Integer
印刷枚数 = 0
Sheets("Sheet1").Select
If Range("j18").Value <> "" Then 印刷枚数 = 1
If Range("j27").Value <> "" Then 印刷枚数 = 2
If Range("j36").Value <> "" Then 印刷枚数 = 3
If Range("j45").Value <> "" Then 印刷枚数 = 4
If Range("j54").Value <> "" Then 印刷枚数 = 5
If Range("j63").Value <> "" Then 印刷枚数 = 6
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=印刷枚数, Copies:=1, Collate:=True
End Sub
'------------------------------------------------------

回答No.2

hige_082

NO.1です
すみません
書き込み内容を確認し戻るつもりが投稿ボタンを押してしまいました
もう少しお付き合いください

ただし、エラー処理は一切していません
対象セルがすべて空白の場合などエラーが出ます
会社等で使用するには、この辺も考慮する必要があります

以上参考になれば幸いです

お礼

こんばんは。
こんなに丁重に教えていただきありがとうございます。
初心者の私にも分かりやすく、大変助かりました。
対象となるセルが全て空白になることはないので、教えていただいたとおり実行してみようと思います。
また自分なりに勉強しても分からないときは、ぜひ助けてくださいね。
本当にありがとうございました。