表中1個點按鈕，數據表中的列數可以相同。
私有子工作簿_BeforePrint(取消為布爾值)
申請。EnableEvents = False
ActiveSheet。打印輸出
……
申請。EnableEvents = True
Cancel = True '取消打印。
末端接頭
VBA只有打印前事件，沒有打印後事件。嘗試使用上面的語句來模擬AfterPrint。
2Sub自動過濾打印:
Dim d作為對象
Set d = CreateObject("腳本。字典》)
Dim c As範圍，& lta href="/s？鑰匙和鑰匙。TN = 44039180 _ CPR & amp；fenlei = mv 6 quakxtz n 0 izrqichckpjm 4 NH 00t 1 ylpjwhpj 01 PHT 4n 1k 9 pyry 0 zwv 5 hcvrjm 3 RH 6 spfkwumw 85 hfynjn 4 NH 6 sgvpst 6k 1 TL 0 qnfk 1 l0z 5 HD 0 ig F _ 5y 9 yiz 0 qzqlpa-bmy 8 MH 7 guzr 8mvkey & lt/a & gt；
i = 2
做
i = i + 1
集合c =細胞(I，6)
d(c .值)= " "
循環直到c = " "
& lta href="/s？鑰匙和鑰匙。TN = 44039180 _ CPR & amp；fenlei = mv 6 quakxtz n 0 izrqichckpjm 4 NH 00t 1 ylpjwhpj 01 PHT 4n 1k 9 pyry 0 zwv 5 hcvrjm 3 RH 6 spfkwumw 85 hfynjn 4 NH 6 sgvpst 6k 1 TL 0 qnfk 1 l0z 5 HD 0 ig F _ 5y 9 yiz 0 qzqlpa-bmy 8 MH 7 guzr 8mvkey & lt/a & gt；= d. & lta href="/s？鑰匙和鑰匙。TN = 44039180 _ CPR & amp；fenlei = mv 6 quakxtz n 0 izrqichckpjm 4 NH 00t 1 ylpjwhpj 01 PHT 4n 1k 9 pyry 0 zwv 5 hcvrjm 3 RH 6 spfkwumw 85 hfynjn 4 NH 6 sgvpst 6k 1 TL 0 qnfk 1 l0z 5 HD 0 ig F _ 5y 9 yiz 0 qzqlpa-bmy 8 MH 7 guzr 8mvKey & lt/a & gt；s
對於x = 0到d.Count
ActiveSheet。UsedRange .自動篩選字段:=6，條件1:=鍵(x)
ActiveSheet。打印輸出
& lta href="/s？wd = Next & ampTN = 44039180 _ CPR & amp；fenlei = mv 6 quakxtz n 0 izrqichckpjm 4 NH 00t 1 ylpjwhpj 01 PHT 4n 1k 9 pyry 0 zwv 5 hcvrjm 3 RH 6 spfkwumw 85 hfynjn 4 NH 6 sgvpst 6k 1 TL 0 qnfk 1 l0z 5 HD 0 ig F _ 5y 9 yiz 0 qzqlpa-bmy 8 MH 7 guzr 8mv下壹個& lt/a & gt；
末端接頭