excellマクロで表の「印刷範囲」を設定したい

質問

表の一部を印刷したいので、下のマクロをつくりました。これにつづけて「ページレイアウト」の「印刷範囲」→「印刷範囲の設定」を使ってやりたいのですが、あとの記述がわかりませんのでおしえてください。

回答No.3

tsubu-yuki · ベストアンサー

えーと。
ご提示の例を最大限に活かすなら、
添付図の最後の行（Loopのあと）を

　　ActiveSheet.PageSetup.PrintArea = Range("A1", "G" & (GyoNO -1)).Address

こうします。Select　は不要です。
.Address　がミソです。
ActiveSheet.PageSetup.PrintArea　にはセル番地を文字列で与えます。
なので、.Address　が必要、ということですね。
省略すると、.Value　を拾ってきますから、おかしなことになりますよ。

Select　も活かしたいなら、ご提示のモノのあとに
　　ActiveSheet.PageSetup.PrintArea = Selection.Address
を追加します。

お礼

ありがとうございました、address　を入れたら一発でできました。

回答No.5

TOMONARI SEIJI（@seijiadb07）

すみません。次いでに、印刷範囲は手動で指定またはクリア→マクロ3の様なものを再生。おかしいですか？

勉強不足だ。以上です。

回答No.4

TOMONARI SEIJI（@seijiadb07）

すみません。途中設定はこうでした。

お礼

ご丁寧にありがとうございました

回答No.2

TOMONARI SEIJI（@seijiadb07）

教科書通りだと、マクロ記録すると、プリントアウトのは記録されます。

少し修正すればできませんか？

回答No.1

skp026

ご質問とズレるかもしれないですが、
Excelで印刷範囲用に用意されているものは、
Worksheets.PageSetup.PrintAreaです。

以下のサンプルが参考になるかもしれないです。
https://excwlvba.blogspot.jp/2013/12/printarea.html

お礼

ありがとうございました。いい参考になりました。