Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50770 / 76732

←次へ　｜　前へ→


	【30846】Re:印刷について

kori - 05/11/5(土) 22:42 -


	引用なし

	パスワード

とまとさんへ
この質問の記事をマルチポストしたことを謝ります。
申し訳ありませんでした。
>Sub test()
>Dim m As Long
>With ActiveSheet.PageSetup
>　.FitToPagesWide = 1
>　.FitToPagesTall = 1
>End With
>m = 100
>Do
>m = m + 1
>ActiveSheet.PageSetup.Zoom = m
>If Application.ExecuteExcel4Macro("Get.Document(50)") > 1 Then Exit Do
>Loop Until m = 400
>ActiveSheet.PageSetup.Zoom = m - 1
>End Sub

>とまとさんのと組み合わせると。
>
>　　'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 ="$A$1:$C$4"
>　　　　　　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
上記２つのコードを実行しました。
とまとさんのは１００％の倍率から１％増えていき、
Endさんのは４００％から５％ずつ減っていくのはわかりました。

個人的にはマクロの勉強になったのですが、
上司から拡大縮小機能を１００％のままでないと
注意されるので、どうしても仕事では使えそうにないです。
結局ＶＢＡでも拡大縮小機能を１００％のまま固定して、入力されたデータの分だけ画面に表示させるのは難しいんですか？

6 hits

▼

【30611】印刷について kori 05/10/31(月) 23:22