VBA code to take a screenshot of a userform

[seleseped]

Hello,
I would like a command button which would copy a 'completed' userform and save it to a clipboard for pasting into a Microsoft Word document as a permanent record of the data entered into the form. I've tried the following code . . .

Private Sub cmdCopy_Click()
UserForm1.Copy

End Sub

. . . but get a message from Word that there's a problem saving the file ("There is a problem saving the file. Usually this is because the disk or floppy disk is too small for the file or is full, RAM memory is low, or there is a permission problem with the drive the file is being saved to. If the amount of disk space for a paging file is low, save the file to another drive. If the RAM memory is low, increase available RAM. If permissions to the drive do not allow you to save to that drive, save the file to another drive or request permissions from the administrator to save files to the drive.").

As a work-around, a copied screenshot of the completed userform would also suit my purpose. Does anybody know of any VBA code which would accomplish this (that is, take a screenshot of the form, save it to a clipboard, and make the screenshot available to Word)?

Many thanks in advance for your time and expertise.

 

[netuser]

Here you go it use sendkey method as sendkey can disable the numeric lock, in that case just uncomment the 2nd line of code.


Put it inside at end of commandbutton that is used to close/finish your userform or you can put it on userform unload

Application.SendKeys "(%{1068})"
'Application.SendKeys "{NUMLock}", True  'un comment this if numeric lock key get disabled
DoEvents

 

[seleseped]

This solution works like a charm! Many thanks. (As an aside, the NumLock key does indeed get disabled; uncommenting the second line of code nicely solves that problem.)

Here you go. It uses the sendkey method. Sendkey can disable the numeric lock; in that case just uncomment the 2nd line of code.

Put the code inside at end of the command button that is used to close/finish your userform or you can put it on userform unload.

Application.SendKeys "(%{1068})"
'Application.SendKeys "{NUMLock}", True  'uncomment this if numeric lock key gets disabled
DoEvents