Hiện tại em đang muốn xin code tắt và bật chức năng ngăn chặn in này ! anh nào giúp em với. Ý là 1 nút in bằng VBA sẽ có thứ tự như sau: bật cho in ->> (code nhập liệu đã có) -->> tắt không cho in. Anh nào giúp em với
CODE:
Private Sub workbook_BeforePrint(Cancel As Boolean)
Select Case ActiveSheet.Name
Case "Sheet1", "Sheet2"
Cancel = True
MsgBox "Sorry, you cannot print this sheet from this workbook", _
vbInformation
End Select
End Sub
CODE:
Private Sub workbook_BeforePrint(Cancel As Boolean)
Select Case ActiveSheet.Name
Case "Sheet1", "Sheet2"
Cancel = True
MsgBox "Sorry, you cannot print this sheet from this workbook", _
vbInformation
End Select
End Sub
