ich möchte über einen Button mehrere Worksheets ausdrucken. Wie kann ich das machen?
Mfg Thomas
Sub druck_all()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).PrintOut
Next i
End Sub
Private Sub CommandButton1_Click()
Worksheets("Tabelle1").PrintOut
End Sub