dポイントプレゼントキャンペーン実施中!

Win XP エクセル2003でVBAを使用しています。1ペ-ジに収めて印刷したい為
PageSetupで
.Zoom=False
.FitToPagesWide=1
.FitToPagesTall=1
. 余白の指定は、オ-ル0
の指定をしていますが「拡大/縮小」倍率が用紙サイズより常に小さく指定されます。できれば指定用紙サイズ一杯に印刷したいのです。その為に倍率の値が取得できれば得た値を何割か増やして印刷したいのですが。

A 回答 (1件)

Zoomプロパテイは、Object.ZOOMのObjectは


(1)PageSetupオブジェクト
   A. Falseのとき
   B.True のとき
(2)Windowオブジェクト
の場合が説明されています。本件は(1)のケースで
Falseのときはワークシートの拡大縮小に関係なく
FitToPageWideとFitToPageTallで決まる。
Trueの場合はワークシートの印刷時の拡大率を10-400%で設定・取得が出来るとあります。

この回答への補足

回答有難うございます。
それで
PageSetupで
.Zoom=False
.FitToPagesWide=1
.FitToPagesTall=1
.余白はすべて0
と指定したのですが、
これでは用紙の余白が多過ぎます。(用紙に対して印刷されたデ-タが小さ過ぎる=倍率が小さい)
FitToPageWideとFitToPageTallの比率を都度変動させることは難しいと思うのですが。印刷するデ-タのサイズは可変で、1度に印刷するデ-タはN件あります。

補足日時:2004/08/14 21:44
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!