gezielte tabellenblätter per Makro ausdrucken
03.11.2004 14:15:20
Fritz
nun brauche ich Eure Hilfe
Dieses einfache Makro druckt mir musterhaft nur zwei ausgewählte Arbeitsblätter aus. Passt soweit.
Nun möchte ich in das Array ausgewählte Namen reintun.
Sheets(Array("Tabelle1", "Tabelle2")).Select
Hierzu habe ich in Tabelle Daten Spalte A (A1, A2, usw) die Namen aller meiner Tabellen.
In Spalte B (B1, B2 usw) steht eine entsprechende Abfrage zum Drucken, WAHR oder Falsch.
Wie kann ich verwirklichen, dass nur die "Wahren" in das Array reinkommen.
Mir würde auch reichen, wenn alle der in Spalte A angezeigten Tabellen ins Array reinkommen, die wahren könnte ich sonstwie im Vorfeld filtern.
Besten Dank
Fritz
Sub hilfe()
' hilfe Makro
' Makro am 03.11.2004 von Fritz aufgezeichnet
Sheets(Array("Tabelle1", "Tabelle2")).Select
Application.ActivePrinter = "CutePDF Printer auf Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Printer auf Ne02:", Collate:=True
End Sub