|
▼ひまこ さん:
こんばんは
印刷の件。
1ページ目(たぶん、コピペした最初のブロック、つまり44行目からということですよね)
というのは、シートの印刷上は2ページ目ですよね。
で、1月なら2ページ目、3月なら4ページ目と考えましょう。
たとえばできあがったシートで5ページ目を印刷する操作をマクロ記録しますと
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveWindow.SelectedSheets.PrintOut From:=5, To:=5, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
End Sub
こんなコードが生成されます。
このコードのFrom:=5, To:=5 の 5 がページ番号。
ですから、まずInputBox関数やInputBoxメソッド(後者がおすすめです)で、月の数字を
入力させます。で、その入力された月の+1 が印刷すべきページということになります。
この入力結果を変数で受けておいて
From:=その変数, To:=その変数 としてやれば、目的のページが印刷されます。
ご自分でトライできそうですね。
がんばってください。もし、壁にぶつかったらSOSを出してください。
|
|