Help with code to get a Screenshot from an userform

[Sebastiandiaz]

I have been wondering the following thing:
Could it be possible to find a code to get a screenshot of any Userform?
Is this possible?

Thanks so much in advance.

 

[Belleke]

Easy way.

Userform1.PrintForm

and send it to a pdf printer.

 

[Sebastiandiaz]

Thank you. I have set the userform1.Printform, but it automatically sends to the printer and it prints the screenshot.

 

[Belleke]

Select pdf printer first.

Application.Dialogs(xlDialogPrinterSetup).Show
Userform1.PrintForm

 

[Sebastiandiaz]

Wow, that is what I call a great-amazing super fast answering service. Let me check to apply this:
Application.Dialogs(xlDialogPrinterSetup).Show
Userform1.PrintForm
I will keep you posted shortly.

 

[Sebastiandiaz]

Now it shows me Printer Setup, I chose the option that says Microsoft Print to PDF, but once again, it sends to the printer.

 

[Belleke]

You can also do the following
With Alt-Print Scrn you only capture the userform when it is active
Paste it in Paint and save it

 

[Sebastiandiaz]

yes....that is what I am going to do. Thank you so much. You´re the best.

 

[Sebastiandiaz]

Let me share this that one friend of mine taught me a while ago and it worked:

Private Sub CommandButton3_Click()
Application.SendKeys "(%{1068})"
DoEvents
Unload Me
End Sub

The only thing is that Application.SendKeys "{NUMLock}", disables the numeric lock key. I just a matter of pressing again the NUMlock key. But I don´t care about it. I can just press it NUMlock key again!

 

[Sebastiandiaz]

Is there´s a way to activate the NUMlock key again? I will be more than glad, but if it can´t be possible, no problem. Thank you so much for all your amazing help.

 

[Belleke]

It is possible.
See example.
Drag the class module in your file (VBA editor, left site)
Adjust your button code with mine.

 

[Sebastiandiaz]

WOOOOOOWWWWW YOU ARE AMAZING! I DON´T HAVE WORDS TO SAY THANK YOU SOOOOOO MUCHHH!

 

[Belleke]

Glad to help.