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

阳光暖洋洋

各位大神，我设置了打印区域，但是没有办法添加行，我的要求是最大行数到填表日期那一行，麻烦高手帮我修改一下我的代码！




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

取得有效数据区域的最大行的行号不就行了吗

阳光暖洋洋

怎么取呢？能帮我修改一下我的代码吗？拜托拜托

半百

把那句设置打印区域的去掉算了，设置好的打印区域会随着插入或删除行自动适应的。

阳光暖洋洋

半百 发表于 2023-3-31 12:35
把那句设置打印区域的去掉算了，设置好的打印区域会随着插入或删除行自动适应的。

这张表右边还有好多列内容，不是我想打印的，所以必须要设置一个打印区域

阳光暖洋洋

半百 发表于 2023-3-31 12:35
把那句设置打印区域的去掉算了，设置好的打印区域会随着插入或删除行自动适应的。

这张表右边还有好多列内容，不是我想打印的，所以必须要设置一个打印区域

准提部林

with Worksheets("应收账款")
       r=.cells(rows.count,1).end(3).row
      .range("a2:j" & r).name="'" & .name & "'!Print_Area"
end with

定義名稱設打印範圍, 比setup快多了~~

阳光暖洋洋

谢谢大神，完全可以。解决了我的大难题！感谢！感谢！万分感谢！

把我的代码分享给大家

Private Sub 打印评估报告附表_Click()
    ' 设置打印区域
With Worksheets("应收账款")
       r = .Cells(Rows.Count, 1).End(3).Row
      .Range("a2:j" & r).Name = "'" & .Name & "'!Print_Area"
End With
   
    ' 打印标题
    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:j" & r).Rows(2)
        .RowHeight = 30
        .Font.Size = 10
        .Font.Bold = True
    End With
    Range("a3:j" & r).Rows.RowHeight = 15

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

半百

阳光暖洋洋 发表于 2023-3-31 14:24
这张表右边还有好多列内容，不是我想打印的，所以必须要设置一个打印区域

不是叫你不设置打印区域，我是说你可以手动设置好打印区域，或前边的代码运行一次后，在已经有打印区域后，就不用那句代码了，打印区域就始终在那了，已后不论你是插入行还是删除行，它都会自动适应，不需要重新设置它的范围。

半百