宏设置打印区域后，添加行如何自动更新打印区域

阳光暖洋洋

各位大神，我设置了打印区域"$A$2:$J$26"，但是添加行之后就不能完整打印出来，我的要求是最大行数到  A 列“填表日期”那一行，麻烦高手帮我修改一下我的代码！

Private Sub 打印评估报告附表_Click()
    ' 设置打印区域
    Worksheets("应收账款").PageSetup.PrintArea = "$A$2:$J$26"
   
    ' 打印标题
    Worksheets("应收账款").PageSetup.PrintTitleRows = "$2:$7"
   
    ' 页面设置
    With Worksheets("应收账款").PageSetup
        .LeftMargin = Application.InchesToPoints(0.5)
        .RightMargin = Application.InchesToPoints(0.5)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
        .Zoom = 100
        .FitToPagesWide = 1
        .FitToPagesTall = False
        .PrintGridlines = False
        .PrintHeadings = False
    End With
   
    ' 设置列宽
    Worksheets("应收账款").Columns("A:A").ColumnWidth = 5
    Worksheets("应收账款").Columns("B:B").ColumnWidth = 18
    Worksheets("应收账款").Columns("C:C").ColumnWidth = 10
    Worksheets("应收账款").Columns("D:D").ColumnWidth = 10
    Worksheets("应收账款").Columns("E:E").ColumnWidth = 8
    Worksheets("应收账款").Columns("F:F").ColumnWidth = 15
    Worksheets("应收账款").Columns("G:G").ColumnWidth = 15
    Range("H:H,I:I,J:J").ColumnWidth = 13

   
    ' 设置行距
    With Range("A2:J26").Rows(2)
        .RowHeight = 30
        .Font.Size = 10
        .Font.Bold = True
    End With
    Range("A3:J26").Rows.RowHeight = 15          （除了第2行，其他行距都是15）

Worksheets("应收账款").PrintPreview
End Sub

阳光暖洋洋

特意补充附上——表格附件，

3190496160

r = sheets("应收账款").Cells(Rows.Count, 1).End(xlUp).Row
sheets("应收账款").PageSetup.PrintArea = "$A$2:$J$"&r