ich möchte eine Userform drucken und zwar in horizontaler Ausrichtung (Querformat).
Mit der u.s. Anweisung wird zwar das Dokument gedruckt, jedoch immer in Hochformat.
Private Sub CommandButton41_Click()
Dim sngHeight As Single, sngWidth As Single
'aktuelle Größe in Variablen merken
sngHeight = Me.Height
sngWidth = Me.Width
'eventuell an Deine benötigte Größe anpassen
Me.Height = 435
Me.Width = 850
Me.PrintForm 'UF ausdrucken
'Form- Größe wieder zurücksetllen
Me.Height = sngHeight
Me.Width = sngWidth
End Sub
Gibt es eine einfache Anweisung, welche dem Druckertreiber mitteilt, das Blatt quer zu drucken?
Viele Grüße
Johann