|
Hallo zusammen,
ich habe in Excel ein Gantt-Chart erstellt, welches in seiner Größe varriiert. In Abhängigkeit der Größe, möchte ich das Gantt-Chart in einer PDF drucken: Einmal den kompletten Bereich und dann jeweils Teilbereiche. Die Druckbereiche, hier zu Verinfachung lediglich zwei, habe ich in den Zellen J1 (Tabelle1!G1:CF19) und K1 (Tabelle1!N1:BK19) hinterlegt. Dehnt sich um bis zu 10 weitere aus. Unproblematisch wäre es, einzelne Druckbereiche verschiedener Tabellenblätter in iner PDF zusammenzufassen:
Sheets(Array("Status", "PDF")).Select
Doch mehrere Druckbereiche eines Tabellenblattes in einer PDF zusammenzufassen, scheint äußerst kompliziert zu sein. Ich habe deshalb versucht, den Druckbereich, in einer Zelle zusammenzufassen: J1 = "Tabelle1!G1:CF19, Tabelle1!N1:BK19"
Option Explicit
Sub drucken()
Application.ScreenUpdating = False
With ActiveWorkbook.Sheets("BZP").PageSetup
.Zoom = False
.PrintArea = Sheets("BZP").Range("J1").Text
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveSheet.ExportAsFixedFormat xlTypePDF, _
Filename:="D:\scanned data" & "\Test" & Format(Date, "_yymmdd") & ".pdf", _
OpenAfterPublish:=True
Range("C4").Select
Application.CutCopyMode = False
End Sub
--> Leider erhalte ich nur ein Blatt in der tabelle, mit dem Bereich: Tabelle1!G1:CF19
Eine Idee, was ich anpassen könnte?
Beste Grüße
Christine
|