Ich möchte ein Datensheet und die zugehörige Legende (anderes Sheet, Datenherkunft aus anderer Datei via Verknüpfungen) auf ein Blatt Drucken.
Irgendwie finde ich nichts Brauchbares und mit UNION gehts irgendwie nicht richtig(Laufzeitfehler 1004: "Die Methode 'Union' für das Objekt '_Application' ist fehlgeschlagen):
Sub printAll()
Dim rng1 As Range, rng2 As Range, rngU As Range
Set rng1 = ThisWorkbook.Sheets("Matrix").Range("A1:EO22")
Set rng2 = ThisWorkbook.Sheets("Legende").Range("A1:AJ10")
Set rngU = Application.Union(rng1, rng2)
rngU.PrintPreview
End Sub
Wie gehts?
Gruß&Dank
Peter