Excel VBA質問箱 IV

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

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


50751 / 76732 ←次へ | 前へ→

【30866】Re:印刷について
回答  kori  - 05/11/6(日) 11:33 -

引用なし
パスワード
   Sub 代案()
  With ActiveSheet
    Application.ScreenUpdating = False
    .DisplayPageBreaks = False
    With .PageSetup・・・・1
      Application.DisplayAlerts = False
      .PrintArea = Selection.Address
      Application.DisplayAlerts = True
      .CenterHorizontally = True
      .CenterVertically = True
      .Orientation = xlPortrait
      .PaperSize = xlPaperA4
      .Zoom = 100
    End With・・・・2
    Application.ScreenUpdating = True
    .PrintPreview
  End With
End Sub
上記のEndさんのコードを試しました。
ステップ実行をおこなうと、
1から2のページ設定のコード範囲内はいいのですが
印刷プレビューで文字が小さく写ってしまいます。
やはりVBAでも
セルの大きさを変えずに、また拡大縮小機能100%のまま
プレビュー画面の用紙一杯にデータを反映させるのは難しいのでしょうか?
6 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 回答

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