Nhờ hoàn thiện đoạn code PrintPreview

[thienthanbe]

Chào các bạn, mình có đoạn code sau đây ( ghi marco)

Sub Print_GNNV()
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=2, Collate _
        :=True
End Sub

khi chạy thì có kết quả như sau:
Các bạn cho mình hỏi có cách nào vô hiệu hóa các nút "Print", "Setup","Margins"… hay không?
Đại khái là mình không muốn người dùng phá hỏng các setup mà mình đặt ra.
Bạn nào biết chỉ giúp mình với, cám ơm các bạn trước nhé.

 

[ongtrungducmx25]

Bạn có thể chuyển file.xls sang file.xlt
xem hình minh hoạ nhé! khi bạn chọn F12 để sao lưu định dạng

 

[thienthanbe]

Mình không hiểu ý bạn lắm.
Ý mình là có cách nào viết 1 đoạn code hay gì đó để khi chạy đoạn code trên đây thì trong phần printpreview víibled hoặc enabled các button "Print", "Margins" "Setup".... chí để lại "Zoom" và "Close thôi". Thank.

 

[ongtrungducmx25]

Mình không hiểu ý bạn lắm.
Ý mình là có cách nào viết 1 đoạn code hay gì đó để khi chạy đoạn code trên đây thì trong phần printpreview víibled hoặc enabled các button "Print", "Margins" "Setup".... chí để lại "Zoom" và "Close thôi". Thank.

Vì trên mỗi máy khác nhau bạn tinh chỉnh trên máy mình rồi! nhưng bạn đem sang máy khác thì không đúng với định dạng đó nữa. Nếu bạn chỉ muốn xem và không cho người ta chỉnh sửa nội dung học tuỳ chình thêm thì bạn có thể được mật khẩu cho sheet của mình. trên diễn đàn này có rất nhiều bạn cứ seach nhé.

 

[Hai Lúa Miền Tây]

Mình không hiểu ý bạn lắm.
Ý mình là có cách nào viết 1 đoạn code hay gì đó để khi chạy đoạn code trên đây thì trong phần printpreview víibled hoặc enabled các button "Print", "Margins" "Setup".... chí để lại "Zoom" và "Close thôi". Thank.

Chép code sau vào cửa sổ code Thisworkbook:

Private Sub Workbook_Activate()
Dim oCtrl As Office.CommandBarControl
 
'Disable all print menus
     For Each oCtrl In Application.CommandBars.FindControls(ID:=109)
            oCtrl.Enabled = False
     Next oCtrl
    
'Disable all print menus
     For Each oCtrl In Application.CommandBars.FindControls(ID:=4)
            oCtrl.Enabled = False
     Next oCtrl
     
End Sub



Private Sub Workbook_Deactivate()
Dim oCtrl As Office.CommandBarControl
 
'Enable all print menus
     For Each oCtrl In Application.CommandBars.FindControls(ID:=109)
            oCtrl.Enabled = True
     Next oCtrl
    
'Enable all print menus
     For Each oCtrl In Application.CommandBars.FindControls(ID:=4)
            oCtrl.Enabled = True
     Next oCtrl


End Sub

Nguồn: Print Preview (Setup,Margins,*Page Break Preview*) Disable

 

[thienthanbe]

Cám ơn bạn đã giúp đỡ, nhưng cái code của bạn là làm mất print preview trên toolbar , ý mình là làm mất button "setup"... trong print preview screen cơ.

 

[tintam7251]

Không muốn người dùng phá hỏng các setup, bạn thử dùng code sau:

Application.Dialogs(xlDialogPrintPreview).Show False

 

[Hai Lúa Miền Tây]

Không muốn người dùng phá hỏng các setup, bạn thử dùng code sau:

Application.Dialogs(xlDialogPrintPreview).Show False

Vẫn có thể chỉnh được nếu như nhấn Ctrl+P, Review, Page setup...

 

[tintam7251]

Đúng rồi bác ạ! Dùng cách mở khác thì code trên không hiệu quả.

 

[thienthanbe]

Chà quả là gay thật , mình lùng khắp nơi mà vẫn không có kết quả nào như ý. Có bạn nào biết không nhỉ?

 

[ndu96081631]

Chà quả là gay thật , mình lùng khắp nơi mà vẫn không có kết quả nào như ý. Có bạn nào biết không nhỉ?

Làm mấy cái này quả thật chẳng đáng tí nào.
Tôi thì khác: Ai sửa gì cứ thoải mái, khi tôi in thì tôi sẽ xây dựng lại toàn bộ các setting

 

[gpelog]

không cho dùng nữa là xong chứ nhỉ !