印刷プレビューする構文: 関連する「ExcelからAccessレポートの印刷」も参照してください。 |
シートにデータ表と、それを元に棒グラフと円グラフを作成しました。
次にそれぞれのグラフを印刷する、コマンドボタンを配置しました。
コマンドボタンをクリックすると、イベントが発生しVBAを実行します。
「棒グラフの印刷」ボタンで右上のグラフを印刷し、「円グラフの印刷」ボタンで右下のグラフを印刷します。
棒グラフ印刷プレビュー画面
円グラフ印刷プレビュー画面
Option Explicit
Private Sub CommandButton1_Click()
'グラフ1 - 棒グラフを印刷する
Sheets("Sheet1").ChartObjects(1).Chart.PrintPreview
End Sub
Private Sub CommandButton2_Click()
'グラフ2 - 円グラフを印刷する
Sheets("Sheet1").ChartObjects(2).Chart.PrintPreview
End Sub
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します