UF in A4 & Querformat ausdrucken

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: UF in A4 & Querformat ausdrucken
von: Heinz H
Geschrieben am: 17.07.2015 19:40:03

Hallo Leute
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

Bild

Betrifft: AW: UF in A4 & Querformat ausdrucken
von: Luschi
Geschrieben am: 17.07.2015 20:23:49
Hallo Heinz,
ich habe mal 30 Sekunden gegoogelt und diesen Lösungsansatz von Nepumuk gefunden:
https://www.herber.de/forum/archiv/752to756/t755936.htm
Gruß von Luschi
aus klein-Paris

Bild

Betrifft: AW: UF in A4 & Querformat ausdrucken
von: Heinz H
Geschrieben am: 17.07.2015 21:08:58
Hallo Luschi
Recht herzlichen Dank
gruß Heinz

 Bild

Beiträge aus den Excel-Beispielen zum Thema "UF in A4 & Querformat ausdrucken"