Guten Tag,
folgendes Problem:
Ich möchte aus einem Tabellenblatt einen bestimmten Bereich als .pdf speichern.
Der Speicherort ist festgelegt, der Name des pdf soll aus einer Zelle ausgelesen werden (21,36)
________________
Sub DruckPDF()
'Schaltet die Seite auf Hochformat
Sheets("Einladung der Schüler pdf").PageSetup.Orientation = 1
'Wählt den Drucker pdf aus und exportiert in den Ordner "Email-Transfer", den Bereich RANGE ggf. anpassen
ActiveSheet.Range("A1:AF50").ExportAsFixedFormat xlTypePDF, Save As Filename:="\\SBS-SERVER\Daten\...Email-Transfer\" & Cells(21,36).Value, OpenAfterPublish:=False
End Sub
___
Klappt natürlich nicht, Syntaxfehler.
Kann mir jemand einen Hinweis geben?
Liebe Grüße und vielen Dank im Voraus
Matthias
|