Print sheet but no command button

Folks,
I have a module that prints my worksheets.
Sub PrintSheet()
    Dim UserResponse
    UserResponse = MsgBox(Prompt:="Print Worksheet (Yes) for Print Preview", Buttons:=vbYesNoCancel, Title:="Print Worksheet")
    Select Case UserResponse
        Case vbCancel
            Exit Sub
        Case vbYes
           ' ActiveSheet.PrintOut Preview:=True
           PrintToFit
        Case Else
        PrintToFit
             ActiveSheet.PrintOut Copies:=1
    End Select

End Sub

Open in new window


The "PrintToFit" is just another called module that scales the print to fit one page.

I would like to have the function that when a worksheet is print it does not print any of the command buttons as see below:
No print command button
Frank FreeseAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Saqib Husain, SyedConnect With a Mentor EngineerCommented:
Go to the properties of each of the buttons and on the last tab there is an option to disable printing of the shape.
0
 
Frank FreeseAuthor Commented:
great but that was too easy - I'd never noticed that before
thanks - great job
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.