arbeite viel mit FreePDF XP, Nachteil: es öffnet sich eine Maske ausserhalb von Excel zum Zusammenfügen von Excelseiten und Abspeichern als Datei.
Vor kurzem habe ich im Archiv folgenden Makro gefunden (meinerseits bereits angepasst):
Sub Makro1()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Dokumente und Einstellungen\User\Desktop\Dateiname.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
... und selbigen angepasst, um mehrere Seiten zusammenzufügen:Sub Makro1()
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
End Sub
Und jetzt meine Frage: Ich habe auch ein Tabellenblatt mit einer Pivottabelle, die ich nach mehreren Kriterien auswerte. Bisher habe ich das wie folgt gelöst:
Sub AB_Produktion()
ActiveSheet.PivotTables("piv_AB_ms_kw").PivotCache.Refresh
'Produkt1
ActiveSheet.PivotTables("piv_AB_ms_kw").PivotFields("Produkt").CurrentPage = "Produkt1"
ActiveSheet.PivotTables("piv_AB_ms_kw").PivotFields("Werk").CurrentPage = "(All)"
Calculate
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Client/Rechner/FreePDF XP auf Ne07:"",,TRUE,, _
FALSE)"
ActiveSheet.PivotTables("piv_AB_ms_kw").PivotFields("Werk").CurrentPage = "werk1"
Calculate
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Client/Rechner/FreePDF XP auf Ne07:"",,TRUE,, _
FALSE)"
ActiveSheet.PivotTables("piv_AB_ms_kw").PivotFields("Werk").CurrentPage = "werk2"
Calculate
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Client/Rechner/FreePDF XP auf Ne07:"",,TRUE,, _
FALSE)"
u.s.w.
End Sub
Dieser Makro ist wahrscheinlich von Haus aus umständlich. Unabhängig davon, kann man die Aufgabe mit dem Makro aus dem Archiv irgendwie lösen?Gruß max