VBA: Pdf Export: Problem mit Dateinamenvorschlag
24.03.2014 17:12:13
schluk5
ich nutze folgenden Code um einen Pdf-Export durchzufuehren.
Private Sub Imprimir_PDF_Click()
Dim cotiNum As String
Dim cotiClient As String
cotiNum = Range("B4").Value & Range("C4").Value
cotiClient = Range("D20").Value
Dim varPath As Variant
varPath = Application.GetSaveAsFilename( _
InitialFileName:=ThisWorkbook.Path & "\" & ActiveSheet.Name & "_" & cotiClient & "_" & _
cotiNum, _
FileFilter:="PDF(*.pdf), *.pdf", _
Title:="Guardar como PDF")
If Not varPath = False Then
ActiveSheet.ExportAsFixedFormat 0, varPath, _
OpenAfterPublish:=True
End If
End Sub
Auf meinem PC funktiert dies wunderbar. Der Name wird enstprechend den Eintraegen in "B4" und "D20" vorgeschlagen. Speicherort ist der Selbe, in der sich die Datei befindet.Das Problem ist nun, dass genau dies auf einem Rechner meines Koellegen nicht funktioniert. Er kann zwar den Pdf-Export durchfuehren, es wird ihm aber kein Dateiname vorgeschlagen.
Er benutzt wie ich Office 2013.
Bei einem anderen Kollegen funktioniert es wiederrum.
Weiss jemand, woran das liegen kann? Vielelicht an irgendwelchen Einstellungen des jeweiligen Excel?
Vielen Dank!