bestimmte Tabelleblätter drucken, wenn B1=100
12.04.2013 13:11:14
Trudi
Ich versuche seit Tagen es zu lösen, alles abgesucht,
mein Chef meckert schon:
Excel 2010 und FreePDF Drucker
ca. 50 Tabellenblätter:
Hoch und Querformat unterschiedlich
Seitenansicht eingestellt
folgendes x mal versucht, finde keine Lösung:
Sub DruckenSeiten()
Dim i As Long
Dim x As Boolean
x = True
For i = 1 To ActiveWorkbook.Worksheets.Count
If Worksheets(i).Cells(1, 2).Value > 0 Then
Worksheets(i).Select x .........HIER IST IMMER EIN DEBUGGEN?
x = False
End If
Next
ActiveWindow.SelectedSheets.PrintOut
End Sub
oder das:
Sub DruckenAusgewählteSeiten()
For Each wks In ActiveWorkbook.Worksheets
If Len(Trim(wks.Cells(1, 2).Text)) > 0 Then
wks.PrintOut
End If
Next
End Sub
Wer hat ein Lösung, vielen Dank.
Anzeige