Sub pclass()
'
' 篩選班級列印巨集
'
Dim i
For i = 1 To 16
ActiveSheet.Range("$A$2:$E$200").AutoFilter Field:=2, Criteria1:=i
ActiveSheet.PrintOut
Next i
End Sub
說明:
1.建立新巨集,將以上程式碼貼上。
2.修改您的資料範圍(紅字的部份)。
3.修改要自動篩選的欄位(藍字的部份)。
4.修改要列印的數量(紫字的部份)。
5.執行巨集就可以了。
印表機記得要設定好,這樣每一張的格式都會一樣,GOOD LUCK!
沒有留言:
張貼留言