|
データ(sheet2)と出力シート(sheet1)を別個につくり、
Sub hyo()
For m = 2 To 10
Sheets("sheet1").TextBox1.Value = Sheets("sheet2").Cells(m, 3).Value
Sheets("sheet1").TextBox2.Value = Sheets("sheet2").Cells(m, 2).Value
Sheets("sheet1").TextBox3.Value = Sheets("sheet2").Cells(m, 5).Value
Sheets("sheet1").TextBox4.Value = Sheets("sheet2").Cells(m, 6).Value
・・・
これをtextbox30まで繰り返し。
Sheets("sheet1").PrintOut
Next m
End Sub
sheet2で作成したデータを、sheet1のテキストボックスに代入し→印刷
次のレコードも同じように代入→印刷・・・の流れで
mの件数分だけ連続印刷したいのですが、
印刷はされても次のレコードの内容に変わらないまま、
最初のレコードの内容が印刷されてしまいます。
申し訳ありませんが考えても原因がわからないため
教えてください。よろしくお願いします。
|
|