UF in A4 & Querformat ausdrucken
17.07.2015 19:40:03
Heinz
Mit unteren Code kann ich eine UF ausdrucken.
Nun möchte ich automatisch Querformat und auf A4 Zoomen beim drucken.
Könnte mir dazu bitte jemand helfen?
Gruß Heinz
Private Sub CommandButton1_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 = 360
Me.Width = 275
Zoom = 85
Me.PrintForm 'UF ausdrucken
'Form- Größe wieder zurücksetllen
Me.Height = sngHeight
Me.Width = sngWidth
Zoom = 100
End Sub