VBA按订单号打印

wxfwg001

求大神帮忙解决下，按A列每个订单号（订单号有时多有时少，不固定）分页打印，加标题A1:A4及页脚。谢谢！

爱疯

Sub Click()
    Dim A, d, i
    ActiveSheet.AutoFilterMode = False
    A = Range("a1").CurrentRegion
    Set d = CreateObject("scripting.dictionary")

    For i = 5 To UBound(A)
        If Not d.exists(A(i, 1)) Then
            d(A(i, 1)) = ""
            Range([a4], Cells(UBound(A), UBound(A, 2))).AutoFilter 1, A(i, 1)
            ActiveSheet.PrintOut
        End If
    Next

End Sub




这样可以吗

爱疯

是不是这样的效果？

把这5个订单都筛选一遍，并且每次筛选出一个订单，就打印一次。

wxfwg001

爱疯 发表于 2019-12-18 11:13
是不是这样的效果？

把这5个订单都筛选一遍，并且每次筛选出一个订单，就打印一次。

是的

wxfwg001

爱疯 发表于 2019-12-13 10:32
Sub Click()
    Dim A, d, i
    ActiveSheet.AutoFilterMode = False

可以，非常感谢