PDF erzeugen
Sophie
folgendes ist mein Problem. Habe eine Excel-Datei die 2 Diagrammblätter und 6 normale Tabellenblätter enthält. Die normalen Tabellenblätter werden je nachdem über ein Makro befüllt, es kann vorkommen, dass manchmal alle 6 Blätter Inhalte aufweisen aber auch der Fall, dass nur ein Blatt befüllt ist.
Nun habe ich mir eben für die Ausgabe "Speichern unter PDF" ein Makro erstellt, dass zuerst die Gruppen zusammenfasst (wird überprüft wieviele der 6 Blätter Daten enthalten), danach eben die PDF erzeugt. Soweit so gut, nur das PDF weist Fehler auf, die Diagramme werden nicht sauber dargestellt, sieht aus, als wären es zwei Diagramme übereinander, diese leicht versetzt.
Hier der Code für den Fall, dass 3 Tabellenblätter mitgedruckt werden sollen.
Wie gesagt die Tabellenblätter werden richtig dargestellt, nur die Diagramme nicht.
Sheets(Array(Ges, Einz, z(1), z(2), z(3))).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:= _
"F:\Abteilungen\FB\P1\P1-7614\Werkstatt\Qualität in VFS\ " & Tabdruck, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Bin für jede Hilfe / Anregung dankbar.
Danke.
Gruss
Sophie