Sub 批量打印(代码)

Sub 批量打印()

Dim lLastrow As Long

Dim arr, i As Long

Dim rg As Range

Dim objDic As Object

lLastrow = Range("a1").End(xlDown).Row

Set rg = Range("a2:h" & lLastrow)

Set objDic = CreateObject("scripting.dictionary") arr = Range("c3:d" & lLastrow).Value

For i = LBound(arr) To UBound(arr)

objDic(arr(i, 1)) = ""

Next

arr = objDic.keys

rg.AutoFilter

rg.AutoFilter field:=3

For i = LBound(arr) To UBound(arr)

rg.AutoFilter field:=3, Criteria1:=arr(i)

ActiveSheet.PrintOut

Next

End Sub

Private Sub CommandButton1_Click() End Sub