中央に印刷させる : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク






Excel VBAで、PageSetupのCenterHorizontally = Trueにすると水平方向を中央に印刷させることができます。

PageSetupでCenterVertically = Trueにすると垂直方向を中央に印刷させることができます。

Excelシート画面

■実行フォーム
「中央に印刷」ボタンをクリックすると水平・垂直方向で中央寄せにします。
「解除」ボタンをクリックすると通常の印刷になります。
中央に印刷シート

・通常に印刷すると左上に印刷されます。
通常印刷

・中央寄せでの印刷結果
中央印刷プレビュー

スポンサーリンク



Excel VBA実行コード

Option Explicit

'解除ボタン
Private Sub CommandButton1_Click()
    '水平方向を解除
    Worksheets("Sheet1").PageSetup.CenterHorizontally = False
    '垂直方向を解除
    Worksheets("Sheet1").PageSetup.CenterVertically = False
   
    '印刷プレビュー
    Worksheets("Sheet1").PrintPreview
End Sub

'中央に印刷ボタン
Private Sub CommandButton2_Click()
    '水平方向を中央に印刷
    Worksheets("Sheet1").PageSetup.CenterHorizontally = True
    '垂直方向を中央に印刷
    Worksheets("Sheet1").PageSetup.CenterVertically = True
   
    '印刷プレビュー
    Worksheets("Sheet1").PrintPreview
End Sub

Excel Tipsメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved