dieses Makro druckt mir automatisch die "wahren" Mappen
In Spalte A stehen ab A1 alle Namen der Mappen,
in Spalte B steht entsprechend wahr oder falsch.
Leider aber druckt es mir immer nur die erste "wahre" Mappe aus.
Manuelles drucken hingegen funktioniert, auch sind die Seitenränder alle gleich.
Wer kann sich das mal angucken
Danke
gio
Sub selektieren()
Const ja = "wahr"
Const nein = "falsch"
Dim i As Integer
Dim AnzSelekt As Integer
i = 1
AnzSelekt = 0
Do While Not IsEmpty(Worksheets("Tabelle").Cells(i, 1))
If Worksheets("Daten").Cells(i, 2).Value = True Then
If AnzSelekt = 0 Then
Worksheets(Worksheets("Tabelle").Cells(i, 1).Value).Select
AnzSelekt = AnzSelekt + 1
Else
Worksheets(Worksheets("Tabelle").Cells(i, 1).Value).Select False
AnzSelekt = AnzSelekt + 1
End If
End If
i = i + 1
Loop
Application.ActivePrinter = "CutePDF Printer auf Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Printer auf Ne02:", Collate:=True
End Sub