VBAパーツ(印刷)
----------------------
ActiveSheet.HPageBreaks.Add Before:=Cells(i, 1) '垂直な改ページを挿入したい左側のセルを指定
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$2"
.PrintArea = "A1:D" & er
.TopMargin = Application.CentimetersToPoints(3)
.RightFooter = "&P/&N"
.PaperSize = xlPaperA4
.Orientation = xlPortrait
.Zoom = 120
End With
ActiveSheet.PrintPreview '印刷プレビュー