AW: pdf speichern
05.03.2013 14:53:51
Klaus
Hallo Tom,
folgendes geht zumindest in die Richtung, funktioniert aber leider noch nicht ganz. Vielleicht hilft es dir, ich lasse den Beitrag offen.
Option Explicit
Sub SaveDialogSelf()
'https://www.herber.de/forum/archiv/1128to1132/1129302_SaveAs_Dialog_exakt_wie_in_Excel.html
Dim vSaveAs
On Error GoTo Fehler
' Cancel = True
Application.EnableEvents = False 'Verhindert rekursiven Aufruf von BeforePrint
'Speichernamen im Dialog abfragen/eingebn - Optionen nicht möglich
vSaveAs = Application.GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Name, _
fileFilter:="Excel(*.xls;*.xlsx;*.xlsm;*.xlsb)," _
& "*.xls;();*.xlsx;*.xlsx;*.xlsb", _
Title:="Bitte Namen der Datei für Speichern Unter wählen", _
Buttontext:="Speichern Unter")
'DAS FUNKTIONIERT LEIDER NICHT
'vSaveAs = Application.GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Name, _
fileFilter:="PDF(*.pdf)," _
& "*.pdf", _
Title:="Bitte Namen der Datei für Speichern Unter wählen", _
Buttontext:="Speichern Unter")
If vSaveAs False Then 'Dialog wurde nicht abgebrochen
ActiveWorkbook.SaveAs vSaveAs
Else
End If
Err.Clear
Fehler:
With Err
Select Case .Number
Case Is = 0 'Alles OK
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
Application.EnableEvents = True
End Sub
Grüße,
Klaus M.vdT.