|
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%のまま
プレビュー画面の用紙一杯にデータを反映させるのは難しいのでしょうか?
|
|