Hallo Forum,
ich erstelle mit folgendem Makro aus einem Tabellenblatt heraus ein pdf File:
<pre>Sub pdf_drucken()
'
' pdf_drucken Makro
'
'---- Name aus Kopfzeile übertragen ----
With ActiveSheet.PageSetup
.RightHeader = "Ersteller: " & Sheets("log").Cells(Rows.Count, 1).End(xlUp).Offset(, 1) & Chr(10) & "Datum: &D"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\temp\TAKT_100630_Master_Waschen.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End With
End Sub</pre>
Jetzt möchte ich gerne den Pfad "C:\temp\TAKT_100630_Master_Waschen.pdf" durch den Pfad ersetzen, in dem sich die xlsm Datei befindet.
Kann mir jemand helfen?
Vielen Dank im Voraus.
Gruß
Ralf