Nhờ Anh Em Viết Code CẤM "CTRL+P"

[paxnguyen]

Em có file gởi kèm, Xin nhờ các anh viết code theo ý em như sau:
- Không cho sử dụng Print cũng như CTRL+P trong sheet " invoice"
- Sheet " invoice" vẫn in được khi sử dụng Macro. Macro đã viết sẵn rồi.

Xin cảm ơn nhiều

 

[giaiphap]

Em có file gởi kèm, Xin nhờ các anh viết code theo ý em như sau:
- Không cho sử dụng Print cũng như CTRL+P trong sheet " invoice"
- Sheet " invoice" vẫn in được khi sử dụng Macro. Macro đã viết sẵn rồi.

Xin cảm ơn nhiều

Bạn xem thử file đúng yêu cầu của mình chưa.

 

[♫ђöล♥ßล†♥†µ♫]

Em có file gởi kèm, Xin nhờ các anh viết code theo ý em như sau:
- Không cho sử dụng Print cũng như CTRL+P trong sheet " invoice"
- Sheet " invoice" vẫn in được khi sử dụng Macro. Macro đã viết sẵn rồi.

Xin cảm ơn nhiều

Bạn liên hệ với anh @befaint. Anh ấy có mấy chiêu hay lắm

 

[paxnguyen]

Bạn xem thử file đúng yêu cầu của mình chưa.

Chào bạn,
Vẫn chưa đúng bạn à,
Chưa đúng vì Sheet "invoice" vẫn in được.
Đều mình cần là Không cho In, Nhưng vẫn có thể " Save as to PDF"

 

[hhoang_56]

Xem cái này :
https://stackoverflow.com/questions...-workbook-except-when-using-a-print-to-pdf-ma

 

[Hau151978]

Em có file gởi kèm, Xin nhờ các anh viết code theo ý em như sau:
- Không cho sử dụng Print cũng như CTRL+P trong sheet " invoice"
- Sheet " invoice" vẫn in được khi sử dụng Macro. Macro đã viết sẵn rồi.

Xin cảm ơn nhiều

Bạn có thể tạo 1 sub trong module như sau

Sub xxx()
If ActiveSheet.Name = "Invoice" Then MsgBox "Printing is  not allowed!" Else Application.Dialogs(8).Show
End Sub

Trong sheet bấm Alt-F8 để hiện cửa sổ macro, chọn sub xxx rồi gán phím tắt Ctrl-P.

 

[paxnguyen]

Thấy code này hình như đúng ý mình,
Nhưng code chưa chạy được, hình như sai ở đâu đó
Anh em chỉnh giùm với

Sub FactSheetSaveToPDF()
Application.EnableEvents = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\" & Range("P1") & " - " & Month(Date) & "." & Day(Date) & "." & Year(Date) & "." _
& Hour(Time) & Minute(Time) & Second(Time) & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Application.EnableEvents = True
End Sub

@giaiphapexcel1711 @GiaiPhapExcelDHT @giaiphap

 

[paxnguyen]

Anh em giúp mình với

 

[batman1]

Thấy code này hình như đúng ý mình,
Nhưng code chưa chạy được, hình như sai ở đâu đó

Đừng bao giờ viết "Nhưng code chưa chạy được, hình như sai ở đâu đó". Khi có lỗi thì có báo lỗi gì. Hãy cung cấp nội dung của lỗi đó thay vì viết 1 câu chả có chút thông tin cụ thể nào.

Nhìn code của bạn tôi chỉ thấy có 1 chỗ duy nhất là khả nghi

OpenAfterPublish:=True

nói là sau khi xuất ra tập tin PDF thì mở nó.

Nếu bạn không có trình mở PDF thì ... bó tay

Thôi thì sửa thành

OpenAfterPublish:=False