Userform printen in liggende afdrukstand met commandoknop

[filipdiver]

Hallo

Ik heb een commandoknop om een userform uit te printen met volgende code:

Private Sub CommandButton2_Click()
Rapport.PrintForm
End Sub

Kan ik afdrukken in liggende stand instellen via VBA?

Alvast bedankt

 

[Ginger]

Waarom zou je een userform willen afdrukken? Die is toch bedoeld voor de invoer?

 

[gast0660]

Is dit voldoende?

 ActiveSheet.PageSetup.Orientation = xlLandscape

 

[edmoor]

Waarom zou je een userform willen afdrukken? Die is toch bedoeld voor de invoer?

Documentatie wellicht.

 

[filipdiver]

Het is een rapport(listbox) met filters dat ik snel via een knop wil afdrukken.

ActiveSheet.PageSetup.Orientation = xlLandscape

krijg ik hetzelfde resultaat.

 

[gast0660]

Test deze

[COLOR="#FF0000"]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)
Const VK_SNAPSHOT = 44
Const VK_LMENU = 164
Const KEYEVENTF_KEYUP = 2
Const KEYEVENTF_EXTENDEDKEY = 1[/COLOR]

Private Sub CommandButton2_Click()
    DoEvents
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
    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
    Workbooks.Add
    Application.Wait Now + TimeValue("00:00:01")
    ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, _
        DisplayAsIcon:=False
    ActiveSheet.PageSetup.Orientation = xlLandscape
   
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    ActiveWorkbook.Close False
End Sub

Rode gedeelte helemaal bovenaan uw code

 

[filipdiver]

Deze werkt!
Bedankt.

 

[gast0660]

Dank voor de terugkoppeling
Suc6