CommandButton -> PDF - kleiner nerviger Fehler
19.11.2015 14:33:15
Annett
Habe in meiner Tabelle einen Button welcher das Dokument als
PDF-Datei abspeichert.
Den Dateinamen, der sich je Bearbeitung ändert, holt er sich aus
einer Zelle. Soweit klappt alles . . .
Zu 96% fehlt immer der erste Buchstabe. Als kleine Abhilfe habe
ich bevor der richtige Dateiname ausgelesen wird den Buchstaben "x"
gesetzt ;-)
Jedoch kommt es nervig oft vor, das auch mal der zweite und dritte Buchstabe
wie von Geisterhand verschwindet :-o
Hier mal der Code
Private Sub CommandButton01_Click()
If Not SaveAsUI Then
Cancel = True
Application.SendKeys Range("B55:C55").Value
Dim FileSaveName As String
FileSaveName = Application.GetSaveAsFilename( _
fileFilter:="PDF Files (*.pdf), *.pdf")
If FileSaveName "Falsch" Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=FileSaveName, _
quality:=xlQualityStandard
End If
End If
End Sub
Anzeige