[說明]
因為某些因素需關閉活頁簿或某工作表的列印功能
[程式碼]
Private Sub Workbook_BeforePrint(Cancel As Boolean) '列印之前所執行的動作
Cancel = True '取消目前所執行的動作，就是按下列印鈕後，在指令還沒丟到印表機時，就被這一行「取消」指令取消了。
MsgBox "列印功能已被禁止" '跳出訊息視窗
End Sub
[特別說明]
上述的程式碼，是將整個活頁簿的在執行列印功能前，都被「Cancel = True」的指令取消了列印動作，若只想某個工作表的列印功能被取消，則於「Cancel = True」的程式碼，多個「IF」的判斷式即可，程式碼如下所示
If ActiveSheetName = "測試表" Then '工作表名稱要改成自己的工作表名稱喔
Cancel = True '取消功能開
MsgBox "列印功能已被禁止" '跳出訊息視窗
ELSE
Cancel = False '取消功能關
End If
文章標籤
全站熱搜
留言列表
