如何用控件设置打印区域，并且实现列宽自适应

阳光暖洋洋

已应收账款这张表为例

各位大神，如何设置打印控件：1、打印区域A2:J26；2、打印标题$2:$7；3、页面设置：页眉2，页脚1.5，左1.5，右1.5，水平，A4，横向，4、列宽：自适应，行距第2行30，其他行都为15.
                                          2、因为表格很多，能实现批量打印吗？并且批量打印时编页码？
求教！

mmwwdd

Sub SetPrintArea()
    ' 设置打印区域
    ActiveSheet.PageSetup.PrintArea = "$A$2:$J$26"
   
    ' 打印标题
    ActiveSheet.PageSetup.PrintTitleRows = "$2:$7"
   
    ' 页面设置
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(1.5)
        .RightMargin = Application.InchesToPoints(1.5)
        .TopMargin = Application.InchesToPoints(2)
        .BottomMargin = Application.InchesToPoints(1.5)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = False
        .PrintGridlines = True
        .PrintHeadings = False
    End With
   
    ' 设置列宽
    ActiveSheet.Cells.EntireColumn.AutoFit
   
    ' 设置行距
    With Range("A2:J26").Rows(2)
        .RowHeight = 30
        .Font.Size = 12
        .Font.Bold = True
    End With
    Range("A3:J26").Rows.RowHeight = 15
End Sub

阳光暖洋洋

mmwwdd 发表于 2023-3-14 15:58
Sub SetPrintArea()
    ' 设置打印区域
    ActiveSheet.PageSetup.PrintArea = "$A$2:$J$26"

亲爱的大神，我用了你的代码，点击控件“打印评估报告附表”没反应。麻烦您再帮我看看呗
                            还有因为每张表都需要设置这样的控件打印，代码里是不是需要写明是“应收账款”这张SHEET呢？
万分感谢！

无雨谷

只是设置，没有打印 ActiveSheet.PrintPreview

阳光暖洋洋

无雨谷 发表于 2023-3-15 14:06
只是设置，没有打印 ActiveSheet.PrintPreview

大神，我加了打印，但是控件还是没有任何反映，打印不出来