|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
With Sheets("集計").PageSetup ' 範囲 .PrintArea = "A1:M" & target_row + 3 ' 余白 .LeftMargin = Application.CentimetersToPoints(1) .RightMargin = Application.CentimetersToPoints(1) .TopMargin = Application.CentimetersToPoints(1) .BottomMargin = Application.CentimetersToPoints(1) .HeaderMargin = Application.CentimetersToPoints(0) .FooterMargin = Application.CentimetersToPoints(0) ' 中央 .CenterHorizontally = True 'CenterVertically ' 向き .Orientation = xlLandscape ' xlPortrait ' ズーム(すべての列を1ページ) .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = False End With |