PrintOutで印刷プレビュー

 

 

Sub test()

   ’   ページのフッターを設定

 

    ActiveSheet.PrintOut Preview:=True

 

End Sub

 

 

 PrintPreviewで印刷プレビュー

 

 

Sub test2()

   ’   PrintPreviewで印刷プレビュー

 

   ActiveSheet.PrintPreview

 

End Sub

 

Sub test2B()

   ’    PrintPreviewで印刷プレビュー(余白などページ設定をさせない時

 

    ActiveSheet.PrintPreview EnableChanges:=False

 

End Sub

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事