Excel VBA質問箱 IV

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

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


50813 / 76738 ←次へ | 前へ→

【30809】Re:印刷について
発言  End  - 05/11/4(金) 23:24 -

引用なし
パスワード
   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

0 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 回答

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