Ich habe eine Datei, in der Zeilen und Spalten ausgeblendet sind. Es wurde auch an der DRuckansicht rumgefummelt. Die Seite ist fixiert.
Vielleicht reicht das schon als Info.
Jetzt möchte ich nur die nicht ausgeblendeten Zellen drucken.
Ich hatte im Archiv schon den Befehl:
Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
gefunden.
Alles in eine Neue Tabelle übertragen und dann die neue Tabelle ausgedruckt und automatisch gelöscht.
Der Ausdruck zeigt aber nur einen Bruchteil an (etwas im Kopf)
Eigentlich will ich diesen Kopier-Druck-Lösch-Vorgang auch nicht.
Ich möchte nur auf der betreffenden Seite die sichtbaren Zellen drucken!
Der ganze Befehl sieht momentan so aus:
Sheets.Add
Worksheets ("Ebene2")
Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Sheets("Tabelle1").Select
ActiveSheet.Paste
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.Delete
Danke fürs Helfen