ここではコマンドボタンをクリックすると、印刷プレビューが表示されるようにします。
リボンの[開発]-コントロールグループの[挿入]-ActiveXコントロールの[コマンドボタン]をクリックします。
- シート上をドラッグし、コマンドボタンを配置します。
- リボンの[プロパティ]をクリックします。
- プロパティウィンドウの[Caption]に「印刷」と入力します。
- コマンドボタンをダブルクリックします。
Private Sub CommandButton1_Click()
End Sub
と表示されるので、空白の行の間に
Worksheets("Sheet1").PrintPreview
と入力します。
- リボンの[デザインモード]をクリックすると、コマンドボタンは非選択の状態になります。
- 印刷ボタンをクリックします。
このようにコマンドボタンに機能を設定することで、作業が簡単になり、ミスも防止できます。