如何用控件设置打印区域

阳光暖洋洋

3190496160 发表于 2022-12-28 15:13
呵呵，兄弟啊，宏的名称，结束标志都没有，肯定是无效的过程了

大神，我又加了红色的两行，但是打印出来的划斜线区域有些内容不是我想要的，能否只打印方框里的内容呢？
Private Sub CommandButton1_Click()
With ActiveSheet
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    y = .Cells(6, Columns.Count).End(xlToLeft).Column
    .PageSetup.PrintArea = Range(.Cells(2, 1), .Cells(r, y)).Address  ' "
    .PrintOut
End With
End Sub

阳光暖洋洋

3190496160 发表于 2022-12-28 15:13
呵呵，兄弟啊，宏的名称，结束标志都没有，肯定是无效的过程了

我重新添加了红字的两行，但是打印出来的有无关内容，想把划斜线的部分去掉，求大神再帮我想想


Private Sub CommandButton1_Click()
With ActiveSheet
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    y = .Cells(6, Columns.Count).End(xlToLeft).Column
    .PageSetup.PrintArea = Range(.Cells(2, 1), .Cells(r, y)).Address  ' "
    .PrintOut
End With
End Sub

3190496160

阳光暖洋洋 发表于 2022-12-28 15:42
我重新添加了红字的两行，但是打印出来的有无关内容，想把划斜线的部分去掉，求大神再帮我想想

Private Sub CommandButton1_Click()
With ActiveSheet
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    .PageSetup.PrintArea = Range(.Cells(2, 1), .Cells(r, 13)).Address  ' "
    .PrintOut
End With
End Sub