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
上記2つのコードを実行しました。
とまとさんのは100%の倍率から1%増えていき、
Endさんのは400%から5%ずつ減っていくのはわかりました。

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

5 hits

【30611】印刷について kori 05/10/31(月) 23:22 質問
【30619】Re:印刷について とまと 05/11/1(火) 8:22 回答
【30795】Re:印刷について End 05/11/4(金) 20:37 発言
【30809】Re:印刷について End 05/11/4(金) 23:24 発言
【30846】Re:印刷について kori 05/11/5(土) 22:42 質問
【30847】Re:印刷について End 05/11/5(土) 22:51 発言
【30848】Re:印刷について kori 05/11/5(土) 23:04 回答
【30851】Re:印刷について End 05/11/5(土) 23:22 発言
【30854】Re:印刷について End 05/11/6(日) 0:37 発言
【30857】Re:印刷について とまと 05/11/6(日) 1:04 回答
【30859】Re:印刷について End 05/11/6(日) 1:22 発言
【30863】Re:印刷について とまと 05/11/6(日) 8:02 発言
【30866】Re:印刷について kori 05/11/6(日) 11:33 回答
【30869】Re:印刷について とまと 05/11/6(日) 13:17 回答

50770 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free