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