Es sollen vier Userform Pages in ein PDF Dokument ausgegeben werden !
Jetzt werden jeweils vier PDF Dokument ausgegeben !
Unsere Grundlage:
Private Sub CommandButton7_Click()
Dim curPage As Long
Dim iCtr As Long
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 = 550
Me.Width = 800
Zoom = 90
curPage = Me.MultiPage1.Value
For iCtr = 0 To Me.MultiPage1.Pages.Count - 1
Me.MultiPage1.Value = iCtr
Me.PrintForm
Next iCtr
Me.MultiPage1.Value = curPage
'Form- Größe wieder zurücksetllen
Me.Height = sngHeight
Me.Width = sngWidth
Zoom = 100
End Sub