print a Userform

[still learning]

Hi
Is there a way to print a Userform?
I made one using about 25 command buttons and would like to make a hard copy
I probably would only have to do it once

mike

 

[Logit]

Option Explicit

Private Sub CommandButton1_Click()
Dim RetStat
    CommandButton1.Visible = False
    RetStat = Application.Dialogs(xlDialogPrinterSetup).Show
    If RetStat Then Me.PrintForm
    Unload Me
End Sub

 

[NdNoviceHlp]

ctrl-alt-prt sc
HTH. Dave

 

[still learning]

Hi logit
Thanks
I changed the coding for commandbutton1 and it printed out the form except that command button 1 was missing.
I also tried changing commandbutton 2 (changing your code to ...2...) and still got commandbutton1 missing

Hi DAve
I tried that after the userform was up and got nothing

I can work around missing one image on the form

Thanks

mikke

 

[Logit]

Print Form n Save As XLSX.xlsm


User Form Code :

Option Explicit

'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 PtrSafe Sub keybd_event Lib "User32" _
'    (ByVal bVk As Byte, ByVal bScan As Byte, _
'     ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr)
    
#If VBA7 Then
    Private Declare PtrSafe Sub keybd_event Lib "user32" _
        (ByVal bVk As Byte, ByVal bScan As Byte, _
         ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr)
#Else
    Private 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 KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12 '''

Private Sub AltPrintScreen()
        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
End Sub
Private Sub CommandButton1_Click()
Call AltPrintScreen
    DoEvents
    Application.Wait Now + TimeSerial(0, 0, 1)
    Worksheets("Sheet1").Range("B3").PasteSpecial
    Unload Me
End Sub

Command Button On Form :

Option Explicit

Sub shwfrm()
    UserForm1.Show
End Sub

Sub CommandButton1_Click()
Dim h1 As Object

    Set h1 = Sheets.Add
    h1.PageSetup.Orientation = xlLandscape
    Application.SendKeys "(%{1068})"
    DoEvents
    h1.Paste
    h1.PrintOut Copies:=1, Collate:=True
    Application.DisplayAlerts = False
    h1.Delete
End Sub

 

[still learning]

hi Logit,
thanks, I'll try your code, but it won't be till i have time next week.

mike