Sheet als PDF drucken
22.01.2007 12:30:12
Boris
folgende Sache: ich habe ein Sheet, das in Zelle "B3" eine ID enthält. Je nach ID ziehen sich diverse Zellen Informationen aus anderen Sheets/Dateien. Ausserdem habe ich dynamische Charts erstellt, d.h. die Datenbereiche sind als variable Namen definiert, so daß "0"-Reihen nicht berücksichtigt werden (hoffe, das ist verständlich). Nun möchte ich einerseits alle Sheets mit den IDs ausdrucken können, das funktioniert mit folgendem Makro (jede im Sheet "Cash Flow Overview" befindliche ID wird eingetragen und gedruckt):
Sub PrintAll()
Dim lz As Long
Dim WS As Worksheet
Set WS = Sheets("Cash Flow Overview")
lz = WS.Cells(1, 1).End(xlDown).Row
Do While WS.Cells(lz, 1).Value <> 0 And WS.Cells(lz, 1) <> ""
ActiveSheet.Cells(3, 2) = WS.Cells(lz, 1).Value
ActiveSheet.PrintOut Copies:=1, Collate:=True
lz = lz + 1
Loop
End Sub
Nun bräuchte ich das ganze noch als PDF: Das Problem: Mit diesem Code erhalte ich für jede ID ein eigenes pdf. Auch das nachträgliche Zusammenfügen der einzelnen PDFs wäre nicht unbedingt eine Lösung (es sei denn, man könnte das über VBA im gleichen "Arbeitsschritt" lösen).
Wenn es die dynamischen Charts nicht gäbe, könnte man die einzelnen Sheets in eine neue Datei hintereinander kopieren (als separate Sheets), und dann die gesamte Arbeitsmappe drucken. Das Problem sind aber die definierten Namen...
Wie löse ich nun dieses Problem. Bitte um Tipps/Anregungen.
Gruß, Boris
Anzeige