| |
Sub 代案()
With ActiveSheet
Application.ScreenUpdating = False
.DisplayPageBreaks = False
With .PageSetup・・・・１
Application.DisplayAlerts = False
.PrintArea = Selection.Address
Application.DisplayAlerts = True
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.Zoom = 100
End With・・・・２
Application.ScreenUpdating = True
.PrintPreview
End With
End Sub
上記のEndさんのコードを試しました。
ステップ実行をおこなうと、
１から２のページ設定のコード範囲内はいいのですが
印刷プレビューで文字が小さく写ってしまいます。
やはりＶＢＡでも
セルの大きさを変えずに、また拡大縮小機能100％のまま
プレビュー画面の用紙一杯にデータを反映させるのは難しいのでしょうか？
|
|
kori
- 05/11/6(日) 11:33 -
