Stop printing Command Buttons on Userform

[sspatriots]

Hi,

I'm trying to prevent the commandbuttons on my userform from printing when I select the userform commandbutton. Below is the code I use, but the buttons still print. When I select the print button I can see it disappear while it's printing and then comes back after the print is sent to the printer, however it still prints with the commandbutton on the form.

Private Sub cmdPrintJobStatus_Click()

    Me.cmdNotifyACCT4.Visible = False

    SaveImageActiveWindow

    AddTempWS

    Me.cmdNotifyACCT4.Visible = True

End Sub

 

[Keebellah]

I'm guessing if this is waht you men.
You have a userform (probably with some data and a print button to print THAT userform?
So you copy the userform as imaga and print that and before you save the image you wanht the print button invisible?

Private Sub cmdPrintJobStatus_Click()
    Me.cmdNotifyACCT4.Visible = False
    Repaint
    SaveImageActiveWindow
    AddTempWS
    Me.cmdNotifyACCT4.Visible = True
    Repaint
End Sub

What the repaint button does is exactly that 'repaints' the userform and if it works the button will not be visible

 

[sspatriots]

Thank you. I will give it a try and let you know how it goes...

 

[sspatriots]

That worked great. Only problem I found was that if I select the print command button to print the userform a second time, most of the information on that form disappears.

 

[Keebellah]

You'll have to check the code you have in the userform, all this does is repaint the form (that is not the same as refresh or initiate) so you will have to check what your pint command does more besides the action youasked for

 

[sspatriots]

I just added a "Repaint" into what you sent me the first time as the very first line of the code and it did the trick. Thanks again.

 

[Keebellah]

Glad to have able to assist you with this