印刷プレビュー(旧)を表示する

印刷プレビュー(旧)を表示します。

 

Sub 印刷プレビュー()
    On Error Resume Next
    '従来の印刷プレビュー
    ActiveSheet.PrintPreview
End Sub
タイトルとURLをコピーしました