PDF drucken

Sub PDF_drucken()
Dim strRelPfad As String
Dim strTitel As String
Dim sFile As String
MsgBox "Bitte im nächsten Speichern unter Fenster" & Chr(13) & _
"die Datei nochmals speichern. Das PDF steht dann an der selben Stelle."
sFile = Application.GetSaveAsFilename(InitialFileName:="RR_BAH_", fileFilter:="Excel-Dateien, *. _
xls")
If sFile = "Falsch" Then Exit Sub
ActiveWorkbook.SaveAs Filename:=sFile
strTitel = InputBox("Unter welchem Titel abspeichern? (ohne .pdf)", , "RR_BAH_")
strRelPfad = "c:\" & strTitel
Sheets(Array("Title", "Overview_NS_Month", "Overview_NS_YTD", _
"Overview_OI_YTD", "World_NS_Market", "EU_NS_Market", "AM_NS_Market", _
"AAA_NS_Market", "Top10_Products", "Core_Products")).Select
Sheets("Title").Activate
'  ActiveWindow.ScrollWorkbookTabs Sheets:=1
'  ActiveWindow.ScrollWorkbookTabs Sheets:=1
Application.ActivePrinter = "Adobe PDF auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, printtofile:=True, PrToFileName:=strRelPfad, _
ActivePrinter:= _
"Abobe PDF auf Ne00:"
End Sub

Als dummer Mensch lese ich jetzt hier heraus, dass die erstellten PDFs auf C:\ stehen sollten. Stimmt das? auf C:\ kann ich nämlich keine PDFs finden.
Gruß
Michael