Tabellen markieren und Seitenvorschau
jens
Sub DruckenTabellen()
Dim i As Integer
Dim wks As Worksheet
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
.Calculation = xlCalculationManual
With ThisWorkbook
For i = .Sheets.Count To 1 Step -1
'Ist Tabellenname eine Zahl?
If IsNumeric(.Sheets(i).Name) Then
'Tabelle ausdrucken
Sheets(i).PrintOut
'kurz warten, damit Druckauftrag verarbeitet werden kann
'eventuell Zeit anpassen
Application.Wait Now + TimeSerial(0, 0, 2)
DoEvents
'Tabelle löschen
' .Sheets(i).Delete
End If
Next i
End With
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.DisplayAlerts = True
.ScreenUpdating = True
End With
On Error Resume Next
Set wks = Worksheets("(Leer)")
On Error GoTo 0
If Not wks Is Nothing Then
Sheets("(Leer)").PrintOut
Else
Sheets("Eingabe").Select
End If
End Sub
Eigentlich ist alles toll aber meine Kollegen hätten gerne die Seitenvorschau gesehen bevor sie das drucken.
Die Frage also:
Kann man das Makro so ändern, dass es die Numerischen Tabellenblätter selektiert und dann in die Druckvorschau geht?
Wahrscheinlich muß man die Blattnamen in einem Ausdruck sammeln die numerische Blattnamen haben - und dann diesen so ähnlich:
Sheets(Array("(Leer)", "702", "70", "69", "68", "67", "66", "65", "63", "62", "64", "61", _
"60", "59", "58", "57", "56", "55", "54", "53", "52", "51")).Select
zusammenführen?
Weiß jemand einen Weg?
Vielen Dank und viele Grüße Jens