印刷したい用紙の大きさによって、マクロの設定を変えるには???

今、Ａ４版にピッタリおさまるように設定してあるエクセルがあって、
マクロの繰り返し処理で、
Ａ１セルから始まって、Ａ１＋１＝Ｂ１，Ｂ１＋１＝Ｃ１…というように、
常に「＋１した数値」を右に９回繰り返し表示したら，
Ａ２（次の行）に「＋１した数値」を表示させなさい
というものを作成しているのですが…

Ａ１の値が１だとすると、Ｊ１が１０になりますね。
それで、右に９回繰り返し表示させたら…なので、
Ａ１が１だとした場合には、Ｊ１に１０を表示させた後、
Ａ２に１１と表示させるという設定をしてあります。

今、Ａ４版にキッチリ納めるためには、
セル幅の都合、９回がＪＵＳＴとし、印刷しているのですが、
これを今日はＢ５版で印刷したいワ！というような場合には、
どのようにマクロを設定したら良いでしょうか。

Ｂ５版のシートを作って、繰り返す回数を９回ではなく、
少なめに設定すればできることは分かるのですが、
そうではなくて、
Ｂ５版なら７回繰り返す，Ａ４版なら９回繰り返す，
Ｂ４版なら１２回繰り返す…などなど
用紙によって、パッと設定を変えるなど…そんな贅沢は無理ですか？

意味不明かな…

No.1 ベストアンサー 回答者： trytrytry 回答日時： 2001/07/15 11:50

ActiveSheet.PageSetup.PaperSize プロパティを利用すれば可能です。

例としては
Select Case ActiveSheet.PageSetup.PaperSize
Case xlPaperB5: cnt = 7
Case xlPaperB4: cnt = 12
Case xlPaperA4: cnt = 9
End Select

(cntは繰り返し回数)
ヘルプでPageSetupかPaperSizeで引けると思います。

この回答へのお礼

やってみます。。。
ありがとうございました。

お礼日時：2001/07/20 13:28