Disable Print Facility

[atmospheric]

I have a spreadsheet with a print button which allows the user to print only the parts I want them to see. I have removed the Printer icon on the toolbar, but does anyone know how to remove the Print option on the File menu? (File/Print)

Thanks in advance

 

[atmospheric]

Thanks Tom, I'll try it now

 

[smods]

Sorry to bring this back to life after soooooooo long but need help with this!

When I do what is advised I get runtime error 1004 "cannot run the macro "enablefilechoices". The macro may not be available in this workbook or all macros may be disabled.

 

[smods]

I have used the following code now in the workbook code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
    MsgBox "Preview and Print are not allowed.  Please use the Print Paperwork buttton.", vbCritical, "PRINT DISABLED"
End Sub

However this is now interferring with my command button which has this code:

Private Sub CommandButton1_Click()

    If Sheets("BANKING DEPOSIT").Range("O2") <> "" _
        And Sheets("BANKING DEPOSIT").Range("B7") <> "" _
        And Sheets("BANKING DEPOSIT").Range("B9") <> "" Then
        ActiveWorkbook.PrintOut
    Else
        MsgBox "Select a date and enter the bag numbers before printing, Thanks!"
    End If
End Sub

Can I add anything to the above code so it allows the workbook to print of the command button? Thanks guys

 

[smods]

*bump*

 

[smods]

Anybody?

 

[Jaafar Tribak]

"Untested" but see if adding a Public boolean flag can do what you want as follows :

In the workbook module:

Public bFlag as boolean
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
    if  Not bFlag then 
       Cancel = True
       MsgBox "Preview and Print are not allowed.  Please use the Print         Paperwork buttton.", vbCritical, "PRINT DISABLED"
   end if
 
End Sub

Private Sub CommandButton1_Click()
 
If Sheets("BANKING DEPOSIT").Range("O2") <> "" _
    And Sheets("BANKING DEPOSIT").Range("B7") <> "" _
    And Sheets("BANKING DEPOSIT").Range("B9") <> "" Then
    bFlag =True
    ActiveWorkbook.PrintOut
    bFlag=False
Else
    MsgBox "Select a date and enter the bag numbers before printing, Thanks!"
End If
 
End Sub

Regards.

 

[smods]

I get the same error when trying to print using the command button as I do when trying from the file menu, any ideas?