ＶＢＡでＺｏｏｍプロパティで値の取得方法を教えてください

質問

Ｗｉｎ ＸＰ エクセル２００３でＶＢＡを使用しています。１ペ－ジに収めて印刷したい為
ＰａｇｅＳｅｔｕｐで
．Ｚｏｏｍ＝Ｆａｌｓｅ
．ＦｉｔＴｏＰａｇｅｓＷｉｄｅ＝１
．ＦｉｔＴｏＰａｇｅｓＴａｌｌ＝１
． 余白の指定は、オ－ル０
の指定をしていますが「拡大／縮小」倍率が用紙サイズより常に小さく指定されます。できれば指定用紙サイズ一杯に印刷したいのです。その為に倍率の値が取得できれば得た値を何割か増やして印刷したいのですが。

回答No.1

imogasi

Zoomプロパテイは、Object.ZOOMのObjectは
（１）PageSetupオブジェクト
　　　A. Falseのとき
　　　B．True　のとき
（２）Windowオブジェクト
の場合が説明されています。本件は（１）のケースで
Falseのときはワークシートの拡大縮小に関係なく
FitToPageWideとFitToPageTallで決まる。
Trueの場合はワークシートの印刷時の拡大率を１０－４００％で設定・取得が出来るとあります。

補足

回答有難うございます。
それで
ＰａｇｅＳｅｔｕｐで
．Ｚｏｏｍ＝Ｆａｌｓｅ
．ＦｉｔＴｏＰａｇｅｓＷｉｄｅ＝１
．ＦｉｔＴｏＰａｇｅｓＴａｌｌ＝１
．余白はすべて０
と指定したのですが、
これでは用紙の余白が多過ぎます。（用紙に対して印刷されたデ－タが小さ過ぎる＝倍率が小さい）
FitToPageWideとFitToPageTallの比率を都度変動させることは難しいと思うのですが。印刷するデ－タのサイズは可変で、１度に印刷するデ－タはＮ件あります。