UF-Listbox Auswahl Tabellenblätter drucken und voreinstellen
13.01.2020 11:21:17
Dante
ich habe eine Frage bezüglich einer UserForm in der ich mittels einer Listbox Tabellenblätter auswählen will (Tabelle1 und/oder Tabelle2). Danach möchte ich in der UF noch Blattgröße und Blattformat einstellen und als letztes den Druckbereich ggf. automatisch anpassen.
Was die Listbox angeht habe ich hier im Forum folgenden Code gefunden der, was die Auswahl der Tabellenblätter angeht, auch soweit funktioniert:
Private Sub CommandButton1_Click()
Dim i As Integer
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
Sheets(.List(i)).PrintOut
End If
Next
End With
End Sub
Blattgröße und Blattformat soll über einen OptionsButton wählbar sein (A4 oder A3).
Druckbereich automatisch anpassen über eine Checkbox.
Vielleicht kann mir wieder mal einer von Euch hier weiter helfen.
Gruß
Dante
Anzeige