求助大神如何自动选择打印区域

woshifanlei

awp57 发表于 2020-4-20 22:25

大神，我是个小白
Sub 条件选择打印区域()                                                                      '子程序 隐藏()
    Application.ScreenUpdating = False                                          '关闭屏幕刷新(可以提高运行速度)
    R = Range("n44444").End(xlUp).Row                                           'r=<单元格区域>"n44444" )的<末端>方向向上 )的行标
    Rows(3 & ":" & [44444]).EntireRow.Hidden = False                            '<行>坐标3& ":"& [44444] )的全部行的隐藏=False
    Rows(3 & ":" & [R]).EntireRow.Hidden = True                                 '<行>坐标3& ":"& [r] )的全部行的隐藏=True
    For I = 3 To R                                                              '设定变量范围为i=3到r
        If Range("N" & I) = Range("N1") Then Rows(I).EntireRow.Hidden = False   '如果 <单元格区域>"N" & i)=<单元格区域>"N1")则执行 <行>坐标i )的全部行的隐藏=False
    Next                                                                        '下一个
    Range("A1:m" & R).Select                                                    '<单元格区域>"A1:m"& r )的选定
    Selection.PrintOut Copies:=1                                                ' 被选项的PrintOutCopies=1
    Rows(3 & ":" & [44444]).EntireRow.Hidden = False                            '<行>坐标3& ":"& [44444] )的全部行的隐藏=False
    Application.ScreenUpdating = True                                           '开启屏幕刷新
End Sub                                                                         '子程序结束

看不懂

awp57

woshifanlei 发表于 2020-4-20 22:40
大神，我是个小白
Sub 条件选择打印区域()                                                           ...

写的比较着急，没有最简化
意思是 先隐藏所有行，再显示N列和N1相等的行
然后，执行打印
最后恢复原样

SCL5801

woshifanlei 发表于 2020-4-20 22:11
感谢 分享
收益良多

n列序号是混排的还是同一序号连着的？如果是混排的请用8楼代码，如是同一序号连着的，看看下边代码行不。
Sub Test()
    Application.ScreenUpdating = False
    With Sheets("泰兴")
        If MsgBox("确定打印请准备好打印机, "36") = 7 Then Exit Sub
        r = .Cells(Rows.Count, 1).End(3).Row
        arr = Range("n1:n" & r)
        For i = 3 To r
            If arr(1, 1) = arr(i, 1) Then Exit For
        Next i
        l = i
        If l = 0 Then
            MsgBox "没有要打印的序号！ 请检查。"
            Exit Sub
        End If
        For i = l + 1 To r
           If arr(1, 1) <> arr(i, 1) Then Exit For
        Next I
        .Range("a" & l & ":m" & i - 1).PrintOut
    End With
    MsgBox "", “打印完成。"
    Application.ScreenUpdating = True
End Sub