印刷範囲の設定で教えてください。

質問

再三再四で申し訳ございません。
マクロで印刷範囲設定は　ActiveSheet.PageSetup.PrintArea = "$B$1:$H65"　と範囲を固定するのが一般的と思うのですが、　印刷範囲が利用者毎に相違するため　開始セル値を　Ａ８　セルに　最終セル達を　Ａ１０　に置く形で　印刷範囲を任意変更可能にしたい場合には　セル値で印刷範囲設定する方法を　お教えくださいますよう　御願いいたします。

回答No.4

kkkkkm

蛇足ですが。

一番最初に印刷範囲を範囲選択して
Range("A8").Value = Selection.Address
を実行してもらい、A8に印刷範囲を登録しておくと入力ミスによるエラーはなくなります。

そのうえで本来のマクロ実行時には
ActiveSheet.PageSetup.PrintArea = Range("A8").Value
とする方法もあります。

お礼

幾度も御迷惑を掛けましたのに御丁寧な配慮を頂戴し本当に助かりました。
CurrentRegion.Address　方式で藻掻いておりましたが　範囲指定の記入式で無事解決致しました。
御陰様で課員各自が必要な範囲の資料を簡単に設定し自由に入手出来るようになりました。
本当にありがとうございました。
拝

回答No.3

kkkkkm

> 形＝開始位置と終了位置とを記載したセル値の形、で印刷させる範囲を確定させる

任意の値(セル番地)を該当セルA8とA10に入力してその値を基に範囲指定したいということですね。

ActiveSheet.PageSetup.PrintArea = Range("A8").Value & ":" & Range("A10").Value

でいけると思いますがいかがでしょう。上記を実行する前にA8とA10がセル番地として正しいかどうかのチェックは必要ですね。

回答No.2

kkkkkm

> 開始位置と終了位置とを固定セル（Ａ８とＡ１０）に置いて

何の開始位置と終了位置なのか不明なのですが、印刷範囲を任意の範囲ということなのですよね。回答があった後でそれはすでに試しましたというのはやめましょう。最初に何を試してダメだったのか先に書いてください。

INPUTBOX で任意の範囲を入力させるとかも試しましたか。

補足

御無礼の段　深くお詫び致します。　お許しください。
質問で印刷範囲の開始位置と終了位置とをセルに置いた値でと記載してありますので
当該印刷範囲の開始位置と終了位置と御判断できるかと思っておりました。
質問致しました形＝開始位置と終了位置とを記載したセル値の形、で印刷させる範囲を
確定させる形でのマクセル文章を御教授いただけますよう　御願いいたします。

回答No.1

kkkkkm

先に任意のセル範囲を選択してから
ActiveSheet.PageSetup.PrintArea = Selection.Address
を実行すると選択した範囲が印刷範囲になります。

補足

御指示ありがとうございます。
いただきました方法は試行済ですが、開始位置と終了位置とを固定セル（Ａ８とＡ１０）に置いて
印刷範囲を指定するマクロ文章を御教授いただけますよう　御願いいたします。