ich weiss mir keinen Rat, wo ich das Pagesetup unterbringen soll.
Über eine Userform Listbox wähle ich ein Tabellenblatt aus um dieses anzusehen bzw. auszudrucken.
In der Listbox werden alle Tabellenblätter aufgelistet, welche vorhanden sind.
Wie und wo kann ich es erreichen, dass das jeweils ausgewählte Tabellenblatt das Pagesetup bekommt.
Der Code vom Makro für Druckvorschau anbei:
Private Sub CommandButton14_Click()
Application.ScreenUpdating = False
With UF_Gesamt.ListBox3
If .ListIndex = -1 Then
MsgBox "Bitte erst ein Tabellenblatt auswählen", vbInformation + vbOKOnly, _
"Seitenvorschau anzeigen"
Else
UF_Gesamt.Hide
Call EinBlenden
' zoom_ein
Worksheets(UF_Gesamt.ListBox3.Value).PrintPreview
' zoom_aus
UserForm_Initialize
Call AusBlenden
UF_Gesamt.Show
End If
End With
Application.ScreenUpdating = True
End Sub
Besten Dank für Eure Hilfe.Gruss Peter