印刷範囲を設定するvbaコード

質問

エクセルシートの印刷範囲を設定するvbaコードで

Sub Macro1()

With ActiveSheet.PageSetup
.PrintArea = "$A$1:$c$10"
End With
End Sub

としてるのですが、
"$A$1:$c$10"の部分を
Range(Cells(1, 1), Cells(10,3))
形式でやりたいのですが、
うまくできません。

Sub Macro1()

With ActiveSheet.PageSetup
.PrintArea = Range(Cells(1, 1), Cells(10,3))
End With

End Sub

としても、全部が印刷範囲として選択されてしまいます。
というか、印刷範囲が設定されません。

回答No.1

keithin · ベストアンサー

sub macro1()
activesheet.pagesetup.printarea = range(range("A1"), cells(10, 3)).address
end sub

＃参考
Excel 開発者用リファレンス
PageSetup.PrintArea プロパティ
印刷するセル範囲を、コード記述時の言語の A1 形式の文字列で設定します。値の取得および設定が可能です。文字列型 (String) の値を使用します。

「＄Ａ＄１：＄Ｃ＄１０」のような形式の「文字列」を与えなさいとヘルプに書いてある、その通りにマクロを作成しなきゃダメです。

ということは言い換えると
…pagesetup = "A1:C" & 10　’あるいは１０を与える変数とか諸々
とかでも大丈夫ということが見えてきます。

お礼

ご回答ありがとうございます。