空白行になるまでループし、印刷するマクロを教えて下さい

シート１にデータがあり、シート２にvlookup関数を使用して、
番号に対応する登録番号・所属・氏名を表示させるようにしました。

質問なのですが、
A2に番号が1～３まであり、空白(空白行)になるまで
シート2に登録番号・所属・氏名を表示させ
番号ごとに印刷をしたいと思っています。

シート2に番号１の内容(登録番号・所属・氏名)を表示させ印刷し、
印刷後、シート2に番号2の内容を表示させシート2印刷し、
印刷後、シート2に番号3の内容を表示させシート2印刷し、
番号行が空白になったらこの処理を終了するというマクロを作りたいのですが、
どのようにしたらよいですか。
初心者でよく分からないのですが。
皆さん教えて下さい。


【シート１】
番号登録番号 氏　名 所属学科職名
100001田中　健太機械工学科教授
200201音　　 光 機械工学科講師
301525鈴木　洋　機械工学科助手

【シート２】

番号

登録番号：
所属：
氏名：

No.1 ベストアンサー 回答者： table_1969 回答日時： 2007/04/25 12:54

Dim r As Integer

r = 1
Do
Sheet2.PrintOut Copies 1
r = r + 1
Loop Until Cells(r, 1) = ""


これを応用してみて下さい。

この回答へのお礼

早急な解答有難うございました。
マクロを参考にさせて頂きました。
下記のように書き、うまく実行出来ました。
有難うございました。
Sub test()
i = 1
Do While i < 3
Worksheets("Sheet1").Range("b1").Value = i
i = i + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Loop
End Sub

お礼日時：2007/04/25 16:18