Excel
VBA
マクロ
PERSONAL.XLS
ページ設定

私はExcelのページ設定は、大体いつも同じ設定にします。横1ページに収めて印刷し、フッタにはページ数・総ページ数を表示し、余白は極力少なくするという感じです。それを、下記のようなマクロにしてPERSONAL.XLSBに記述し、毎回使用しています。

Sub quickPageSetup()
'よく使うページ設定を素早く実行
  Application.ScreenUpdating = False '描画を省略

  With ActiveSheet.PageSetup
    .CenterFooter = "&P/&N" 'ページ数/総ページ数 →中央フッタ
    .LeftMargin = Application.InchesToPoints(0.4)   '左余白。やや広く。
    .RightMargin = Application.InchesToPoints(0.2)   '右余白。狭く。
    .TopMargin = Application.InchesToPoints(0.4)    '上余白。
    .BottomMargin = Application.InchesToPoints(0.4)  '下余白。
    .HeaderMargin = Application.InchesToPoints(0.2)  'ヘッダ。
    .FooterMargin = Application.InchesToPoints(0.2)  'フッタ。
    .Zoom = False
    .FitToPagesWide = 1 '横1ページに収める
    .FitToPagesTall = False '縦のページ数は設定しない
  End With
  
  Application.ScreenUpdating = True '描画する
End Sub