|
http://www2.moug.net/bbs/exvba/20051104000024.htm
では追記。
とまとさんのと組み合わせると。
'Selectionに対して処理します。
Dim i As Long
Application.ScreenUpdating = False
With ActiveWindow
.Zoom = True
i = .Zoom
.Zoom = 100
End With
i = i * 1.1 '←これは係数のつもりです。環境や用紙サイズで変動すると思われます。
If i > 400 Then i = 400
With ActiveSheet
.DisplayPageBreaks = False
With .PageSetup
Application.DisplayAlerts = False
.PrintArea = Selection.Address
Application.DisplayAlerts = True
.Zoom = i
Do
If ExecuteExcel4Macro("Get.Document(50)") = 1 Then Exit Do
i = i - 5
.Zoom = i
Loop Until i < 10 '←てきとー
End With
End With
Application.ScreenUpdating = True
|
|