マクロで連続して印刷するには

いつもお世話になります。

OS WIN10 エクセル2013　です。

添付画像の「日別請求書(Sheet5)」をマクロで印刷したい。

マクロの記録　で下記のような構文を作成しました。

Sub 印刷()
'
' 印刷 Macro
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("日別請求書").Select
End Sub

ご指導を仰ぎたいのは上記のマクロの構文に下記の条件を入れ４件(N列の)を
連続して印刷できる構文をご指導をいただけませんでしょうか。

添付図で説明させていただきます。

マクロで
1　O3 = $A$1に　　この場合ID=0030
2 T3 = $C$10に この場合納品月=1
3 S3 = $K$3に　　この場合納品日=2015/11/21

上記の1～3が入力され印刷用コマンドボタンをクリックして印刷が始まるようにしたいです。

N列の件数は一定ではありません。但し範囲は　N3～N51 です。
マクロにて　A1 C10 K3 に値が入力されれば後は自動で表示します。
シート「日別請求書(Sheet5)」の保存は不必要です。

No.1 ベストアンサー 回答者： hallo-2007 回答日時： 2016/02/06 16:54

O列、S列、T列の３行目から最終行までの繰り返し

それぞれの列の値を　A1　C10　K3に入れる
A1～J51を印刷する
こんな感じでしょうか。
Sub 印刷()
With Sheets("日別請求書").
For i=3 to Range("O" & Range("O3").End(xlDown).Row
.Range("A1").Value=.Range("O" & i).Value
.Range("C10").Value=.Range("T" & i).Value
.Range("K3").Value=.Range("S" & i).Value
.Range(A1:J51).PrintOut
Next
End With
End Sub

こんな感じでしょうか。
動作確認はしていませんのでエラーがでたら補足してください。
ただその前に何をしているか考えてくださいね。

この回答へのお礼

大変お礼が遅くなりすみませんでした。

上手くできました。

今後共々よろしくお願いします。

お礼日時：2016/02/07 12:22

No.2 回答者： ExcelDevTool 回答日時： 2016/02/06 17:34