ページ設定

とりま最近使ったヤツ

With ThisWorkbook.Worksheets(1).PageSetup
    .PrintTitleRows = "$1:$2" 'タイトル行
    .CenterFooter = "&P / &N" 'ページ番号
    .Zoom = 80 '拡大率
End With

以上