印刷範囲の変更

質問

印刷範囲の自動変更が可能かどうかお教え下さい。
　Ａ Ｂ Ｃ Ｄ Ｅ
１　　　　　　☆
２
３
４

Ａ１～Ｃ３の印刷範囲指定は
ActiveSheet.Range("A1:C3").Select
Selection.PrintOut Copies:=1　でよろしいですね？
任意のセル、仮にＥ１に数字で１を入れた場合にＡ１：Ｃ１範囲で、２を入れた場合にＡ１：Ｃ２の範囲で、３を入れた場合はＡ１：Ｃ３といったように印刷範囲をセルＥ１の数字で変更できるコマンドボタンの設定はできますでしょうか？
宜しくお教え下さい。

回答No.1

imogasi · ベストアンサー

＞コマンドボタンの設定はできますでしょうか
コマンドボタンの設定でも出来るが、使わなくても出来る。
Sub test02()
MsgBox "印刷行数をE1にセットせよ！"
x = Cells(1, "E")
Range(Cells(1, "A"), Cells(x, "D")).Select
Selection.PrintOut
End Sub
E1に３とすると３行、５とすると５行印刷しました。
コマンドボタンを使わない場合は、E1セルの値が正しいか
MsgBoxを出すのが好いかも。

お礼

早速のご返事を有難う御座います。
私はまだＶＢの勉強を始めたばかりの初心者でメッセージボックス関数については、まだよく理解していないので折角の回答でありますが申し訳ありません。

回答No.2

imogasi

＞初心者でメッセージボックス関数については、まだよく理解していないので折角の回答でありますが
MsgBox関数はなにも難しいものでなく、その後の””で括った文字を画面表示するものです。
まず１度やって見て、反応が欲しいです。
○また本件でMsgBoxを使うか使わないかは、本筋と関係ありませんから、その行を削除してもかまいません。

お礼

コマンドボタンを作成し

Private Sub CommandButton1_Click()
MsgBox "印刷行数をE1にセットせよ！"
x = Cells(1, "E")
Range(Cells(1, "A"), Cells(x, "D")).Select
Selection.PrintOut
End Sub

にて問題が解決いたしました。
本当に助かりました、どうも有難う御座いました。