【エクセル】VBAで、ページ数を変更して印刷する。

質問

やり方が分かると、便利だなあと、、、分かる方がいましたら返事下さい。

特定のシートの、特定のセルに数値が入力されています。
このセルの数値の数だけ、ページを印刷してくれるボタンが欲しいです。

例）
セルに”1”と入力されている。→1ページ目のみ印刷する。
セルに”3”と入力されている。→1～3ページ目のみ印刷する。

よろしくお願いします。

回答No.1

keithin · ベストアンサー

Ａ１セルに１とか３とか記入しておき，

worksheets("印刷したいシート").printout from:=1, to:=worksheets("シート名").range("A1").value

みたいに。

お礼

できました、ありがとうございました。

回答No.2

KURUMITO

例えばシート1のA1セルにシート名のSheet2などと入力し、そのシートの1ページから3ページ目までを印刷したいとしたら次のようにマクロを組めばよいでしょう。
シート1にはコマンドボタンを配置します。
シート1で「開発」タブの「挿入」からActiveXコントロールにある「コマンドボタン」をクリックしてからシート上に四角を描きます。それを右クリックして「コードの表示」を選択します。
表示の画面には次のマクロを入力します。

Private Sub CommandButton1_Click()
Si = Range("A1").Value
Worksheets(Si).PrintOut From:=1, To:=Range("B1").Value
End Sub

最後に「開発」タブの「デザインモード」をクリックしてアクティブ状態を解除します。
その後にシート1のA1セルにシート名を、B1セルにページ数を入力してから「コマンドボタン」をクリックすればよいでしょう。

お礼

NO1さんの回答で解決しましたが、丁寧な回答ありがとうございました。