マクロで印刷ページ数を指定する方法を教えてください。

質問

教えてください！
エクセルを使い値札を作っています。
値札は、Ａ４用紙１枚分の大きさです。
商品名によって５枚必要であったり、２枚だけだったりです。
そこで、Sheet1のD6セルに1と入力した場合は、1ページだけ印刷・・・
Sheet1のD6セルに10と入力した場合は、10ページまで印刷出来るような事がしたいのですが無理でしょうか？
使用しているエクセルは2003です。
よろしくお願いします。

回答No.1

n-jun

http://www.asahi-net.or.jp/~zn3y-ngi/YNxv211.html
ご参考になるかと。

お礼

ありがとうございました。
教えていただいたサイトを参考に、以下で出来ました。
Dim 印刷枚数 As Integer
印刷枚数 = 0
Sheets("Sheet1").Select
If Sheets("Sheet1").Range("D6").Value = 1 Then 印刷枚数 = 1
If Sheets("Sheet1").Range("D6").Value = 2 Then 印刷枚数 = 2
If Sheets("Sheet1").Range("D6").Value = 3 Then 印刷枚数 = 3
・・・
・・・
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=印刷枚数, Copies:=1, Collate:=True