作成した金種表を印刷するVBA。相手先と合計別

Sub 金額計算印刷()
    Dim p, q As Long
    Dim Bcol As Long, x As Long
        Call Module2.シートset
        ASheet.Select
        Call Module2.シートクリア
        For p = 2 To 13
            For q = 1 To 3
                ASheet.Cells(p + 1, q) = SSheet.Cells(p, q + 4)
            Next q
        Next p
        With ASheet
            .Range("A:A").Columns.ColumnWidth = 18
            .Range("B:B").Columns.ColumnWidth = 15
            .Range("C:C").Columns.ColumnWidth = 21
            .Range("C4", "C14").NumberFormatLocal = "#,##0円"
            With .Cells
                .Font.Size = 13
                .Font.Bold = True
                .Font.Name = "ＭＳ Ｐ明朝"
            End With
            With .Range("A1")
                .Value = "金種表"
                .RowHeight = 33
                .Font.Size = 25
            End With
            With .Range("C2")
                .Value = Format(KSheet.Cells(1, 2), _
                                "yyyy/mm/dd hh:nn:ss AM/PM")
                .Font.Size = 10
            End With
            With .Range("A2")
                .Value = SSheet.Range("F1")
                .RowHeight = 24
                .Font.Size = 18
            End With
            With .Range("A3", "C14")
                .RowHeight = 15
                .Borders.LineStyle = xlContinuous
            End With
            With .Range("A3", "C3")
                .RowHeight = 24
                .Font.Size = 18
                .HorizontalAlignment = xlCenter
            End With
            With .Range("A14", "C14")
                .RowHeight = 24
                .Font.Size = 18
                .HorizontalAlignment = xlCenter
            End With
        End With
        ASheet.PrintOut from:=1, To:=1, Preview:=True
End Sub

Sub 相手先印刷()
    Dim Bcol, Actrow, x As Long
        Call Module2.シートset
        ASheet.Select
        Call Module2.シートクリア
        With KSheet
            Bcol = .Cells(1, Columns.Count).End(xlToLeft).Column
            Actrow = ActiveCell.Row
        End With
        For x = 4 To Bcol + 1
            With ASheet
                .Range("A" & x) = KSheet.Cells(1, x - 1)
                .Range("B" & x) = KSheet.Cells(Actrow, x - 1)
                .Range("C" & x) = .Range("A" & x) * .Range("B" & x)
            End With
        Next x
        With ASheet
            .Range("A" & x) = "合計"
            .Range("B" & x) = WorksheetFunction.Sum(Range(Cells(4, 2), Cells(x, 2)))
            .Range("C" & x) = WorksheetFunction.Sum(Range(Cells(4, 3), Cells(x, 3)))
            .Range("A:A").Columns.ColumnWidth = 18
            .Range("B:B").Columns.ColumnWidth = 15
            .Range("C:C").Columns.ColumnWidth = 21
            .Range("C4", "C" & x).NumberFormatLocal = "#,##0円"
            With Cells
                .Cells.Font.Size = 13
                .Cells.Font.Bold = True
                .Font.Name = "ＭＳ Ｐ明朝"
            End With
            With .Range("A1")
                .Value = "金種表"
                .RowHeight = 33
                .Font.Size = 25
            End With
            With .Range("B1")
                .Value = "金種数量計算"
                .Font.Size = 15
            End With
            With .Range("A2")
                .Value = KSheet.Cells(Actrow, 1)
                .RowHeight = 24
                .Font.Size = 21
            End With
            With .Range("C2")
                .Value = Format(KSheet.Cells(1, 2), "yyyy/mm/dd hh:nn:ss AM/PM")
                .RowHeight = 24
                .Font.Size = 10
            End With
            With .Range("A3", "C" & x)
                .RowHeight = 15
                .Borders.LineStyle = xlContinuous
            End With
            With .Range("A3", "C3")
                .RowHeight = 24
                .Font.Size = 18
                .HorizontalAlignment = xlCenter
            End With
            .Range("A3") = "金種"
            .Range("B3") = "数量"
            .Range("C3") = "金額"
            With .Range("A" & x, "C" & x)
                .RowHeight = 24
                .Font.Size = 18
                .HorizontalAlignment = xlCenter
                .Font.Name = "ＭＳ Ｐ明朝"
            End With
            With .PageSetup
                .TopMargin = 28.6
                .BottomMargin = 28.6
                .LeftMargin = 57.2
                .RightMargin = 28.6
                .Orientation = xlLandscape
            End With
            .PrintOut from:=1, To:=1, Preview:=True
        End With
End Sub