Print UserForm A4 size
 

I have a userForm that is A4 in size and I have tried to use the code
below to print the Active window as my userForm is the 'Active Window'
However the print outcome is 'PRINT SCREEN' with the bottom one third
of my userform not printing at all.
In a Button_Click event I have:-

DoEvents
'Copy the Activewindow to the Clipboard
keybd_event VK_MENU, 0, 0, 0
keybd_event VK_SNAPSHOT, 0, 0, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
DoEvents
'Copy the Clipboard to the Worksheet
Range(A1").select
ActiveSheet.Paste
DoEvents

Any help TIA.
SZ