エクセルの関数とVBAの組み合わせによる印刷の設定を教えてください。

Question

エクセルの関数とVBAの組み合わせによる印刷の設定を教えてください。エクセルで職員のデータベースを作り、同じ様式にLOOKUP関数を使い、例えば１～５０番の人を順次表示し、印刷をかけるのですが、1人づつ番号を入力し印刷するのではなく、最初から、セル2カ所に最初の番号（１）と珊瑚の番号（５０）を入力し、自動で50人分順次印刷する方法を教えてください。

Answer 1

あるセルに職員番号を入れると帳票にその職員のデータが表示されるようにLookup関数を設定済みであるものとします。職員番号として参照するセル（あるセル）をA1とします。そしてA2が最初の番号、A3が最後の番号を入れるセルと仮定します。また、印刷のページ設定が済んでいるものとします。その場合のマクロです。A1,A2,A3をご自分の環境に合わせて変更し、ご利用ください。
念のためマクロの実行方法も記入しておきます。
①下記のコード全体をコピーします。
②EXCELの画面で、Altを押しながらF11を押してＶＢＥ画面を呼び出します。
③メニューの挿入から標準モジュールを選択します。右側の空白な場所に貼り付けます。
④右上の×で閉じます。ＶＢＥを終了します。
⑤Altを押しながらF8を押して、マクロの実行画面を呼び出します。
⑥実行したいマクロ名（下記）を選択した後、実行ボタンをクリックします。

Sub sample()
Dim i As Integer
For i = Range("A2").Value To Range("A3").Value
Range("A1").Value = i
ActiveSheet.PrintOut
Next
End Sub

Answer 2

VBAで処理するのであれば、LOOKUP関数は必要ないと思います。

シート構成が書いてないので、具体的なマクロを提示出来ませんが
Sheet1にデータ、Sheet2に印刷フォームであれば
Sheet1をデータの指定行の最初から最後まで繰り返し処理で（For～Next）印刷シートに入れて、印刷を繰り返せばいいと思います。

>セル2カ所に最初の番号（１）と珊瑚の番号（５０）を入力し
これは InputBox で出来ます。