PDF-Ausdruck
09.08.2007 21:19:00
Ernst
ich muss mit Excel2007 vier rechteckige Bereiche aller Arbeitsblätter (in allen Arbeitsblättern an der selben Stelle) in eine PDF-Datei transportieren. Sehr schön finde ich, dass man dazu jetzt keinen externen Druckertreiber mehr ansprechen muss, sondern mit dem (nachinstallierten) PDF-Export arbeiten kann:
For x = 1 To Sheets.Count - 1
Worksheets(x).Select
Bez = ActiveSheet.Range("B18").Value
Datei = "C:\" + Bez + Str(x) + "_1.pdf"
ActiveSheet.Range("DB600:DU653").ExportAsFixedFormat xlTypePDF, Datei
Datei = "C:\" + Bez + Str(x) + "_2.pdf"
ActiveSheet.Range("DW660:ER733").ExportAsFixedFormat xlTypePDF, Datei
Datei = "C:\" + Bez + Str(x) + "_3.pdf"
ActiveSheet.Range("ET750:FI799").ExportAsFixedFormat xlTypePDF, Datei
Datei = "C:\" + Bez + Str(x) + "_4.pdf"
ActiveSheet.Range("FK810:FT846").ExportAsFixedFormat xlTypePDF, Datei
Next x
Nicht so schön ist, dass ich die vier Ausdrucke nicht direkt in eine Datei leiten kann. Ich habe versucht die Methode Union anzuwenden, diese kann aber mit ExportAsFixedFormat verwendet werden. Weiter habe ich es mit einem Bereichsnamen versucht, der alle vier Bereiche um fasst. Auch das klappt nicht.
Gibt es einen Lösungsvorschlag, der nur mit VBA umsetzbar ist, oder muss ich auf externe Lösungen mit anderen Programmen (was sehr mühselig wäre) zurück greifen?
Vielen Dank im Voraus
Ernst