folgende prozedur passt die print area auf eine seite udn setzt eine fußzeile mit dem text "Prepared" und die schriftgröße der variable FontSize.
Sub test()
FontSize = 8
ActiveSheet.PageSetup.PrintArea = UsedRange.Address
With ActiveSheet.PageSetup
.LeftFooter = "&" & FontSize & "Prepared"
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
d.h. in dem fall wird das ganze runterskaliert und die eigenschaft .Zoom = False gesetzt wird.
ich würde gern die FontSize der fußzeile wieder hochskalieren, jedoch dafür müßte ich wissen mit welchem faktor runterskaliert wurde.
hier ein besipel: falls ich eine printarea habe die auf zwei A4 seiten passt und die obere prozedur laufen lasse, ergibt sich eine skalierung von 50%.
dass heisst dass um einen echten font 8 zu bekommen, muss ich fontsize = 16 einstellen, oder zoomfaktor/8 = 16.
wie kann ich aber den zoomfaktor auslesen? Über .Zoom geht nicht da sobald man FitToPagesTall nutzt, .Zoom = False ist.
any ideas?
danke.