Печать UserForm полностью

[Muramur]

Всем привет, и заранее спасибо.
В общем то проблема наверное известная, но так и не нашел решения. Как распечатать UserForm полностью?
Пробовал через скриншот по этой ссылке https://www.mrexcel.com/forum/excel-questions/44041-print-screen-solved.html#post203844, но у меня не работает:

Код: (vb)

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long

Указанные процедуры не удается найти.

[vikttur]

Точно, проблема известная - посетители не читают правила форумов!
Дубль темы

[Muramur]

)))) Поторопился, очень нужно решение...

[Muramur]

Решение найдено! Спасибо пользователю sokol92.

Код: (vb)

Option Explicit
#If VBA7 Then
Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr)
#Else
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
#End If
     
Private Const VK_SNAPSHOT = 44
Private Const VK_LMENU = 164
Private Const KEYEVENTF_KEYUP = 2
Private Const KEYEVENTF_EXTENDEDKEY = 1
 
Sub FormPrint()
    DoEvents
    keybd_event VK_LMENU, 0, _
        KEYEVENTF_EXTENDEDKEY, 0 ' key down
    keybd_event VK_SNAPSHOT, 0, _
        KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, _
        KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
    keybd_event VK_LMENU, 0, _
        KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
    DoEvents
    DoEvents
     
    Workbooks.Add               ' открываем новую книгу
    ActiveSheet.Paste           ' вставляем содержание буфера обмена
    With ActiveSheet.PageSetup  ' меняем параметры страницы
     .Orientation = xlLandscape
     .Zoom = False
     .FitToPagesWide = 1        ' 1 страница по ширине и высоте
     .FitToPagesTall = 1
     .LeftMargin = 0
     .RightMargin = 0
    End With
     
    ActiveSheet.PrintOut        ' печать
    ActiveWorkbook.Close False  ' закрываем книгу
End Sub

Ссылка на источник