[[20111118124533]]　『ページ数に合わせて印刷を指定したときの拡大/縮潤x（x11euser）　ページの最後に飛ぶ

『ページ数に合わせて印刷を指定したときの拡大/縮小率を求めるには』（x11euser）

 以下のようなVBAを組んで横幅を１ページの枠内にした場合、拡大/縮小率(ZOOM)はFalseとなりますが、
 ページ設定のダイアログボックスには拡大/縮小率が表示されています。
 この拡大/縮小率をVBAで取得することは出来ないでしょうか。
ちなみに、下記プログラムで改ページプレビューを表示させてもZOOM=Falseのままでした。
 EXCEL2003、WindowsXPを使っています。

 Const xxLPaperA4 = 9
 ActiveWindow.View = xlNormalView
    With ActiveSheet.PageSetup
        .PaperSize = xxLPaperA4
        .Orientation = xlPortrait
        .FitToPagesWide = 1
        .FitToPagesTall = False
'        .Zoom = False
    End With
    ActiveWindow.View = xlPageBreakPreview
    With ActiveSheet.PageSetup
        xZoom = .Zoom
    End With
    MsgBox "Xzoom=" & xZoom

 前回の
[[20111017092901]]　『横方向のページ数を固定したときの拡大/縮小率を求x（x11euser）
 は参考になってないのでしょうか？

 Const xxLPaperA4 = 9
 ActiveWindow.View = xlNormalView
    With ActiveSheet.PageSetup
        .PaperSize = xxLPaperA4
        .Orientation = xlPortrait
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = False
    End With
    ActiveWindow.View = xlPageBreakPreview
    ExecuteExcel4Macro "Page.Setup(,,,,,,,,,,,,{#N/A,#N/A})"
    xZoom = ActiveSheet.PageSetup.Zoom
    MsgBox "Xzoom=" & xZoom

 （ｍｏｍｏ）

そうでした。つい先月のことなのに…。

 大変失礼致しました。(ｍｏｍｏ)さん、どうもありがとうございます。
(x11euser)

コメント返信：

[ 一覧(最新更新順) ]

[[20111118124533]] 『ページ数に合わせて印刷を指定したときの拡大/縮潤x（x11euser） ページの最後に飛ぶ

[[20111118124533]]　『ページ数に合わせて印刷を指定したときの拡大/縮潤x（x11euser）　ページの最後に飛ぶ