自分用メモ エクセル印刷するたび値を変更する(VBA)

Sub 印刷()
Dim i As Integer

n = Range("k1").value
For i = 1 To n
Sheets(1).Range("A1").value = Sheet1.Range("j" & i)
ActiveSheet.PrintOut
Next
End Sub

セルK1から印刷する回数を読み込む
シート１のA1にｊ列のi番目を表示する。
1回目はA1にJ1を表示
2回目はA1にJ2を表示
.
.
.
n回目はA1にJnを表示
正常に作動するかは知らん