Hallo Björn,
habe momentan kein ACad bei der Hand, im Inventor würde ich das mit dem
Filedialog machen (das sollte in jeder VBA-Umgebung funktionieren).
Im Folgenden nur das Nötigste, weitere Infos findet man in der Hilfe
Code:
Dim oFileDlg As FileDialog
Call ThisApplication.CreateFileDialog(oFileDlg)
falls da eine Fehlermeldung kommt, ggf. im VB-Editor unter Extras/Verweise bei "MS Scriting runtime" und/oder "MS Forms" die Häkchen setzen.
Jetzt Filter für pdf-dateien setzen:
Code:
oFileDlg.Filter = "PDF Files (*.pdf)|*.pdf|All Files (*.*)|*.*"
Aufruf der eigentlichen Speichern-Dialogbox mit
Code:
oFileDlg.ShowSave
der gewählte Dateiname (komplett mit Pfad und Erweiterung) steht in
Code:
oFileDlg.filename
Ist der leer, wurde der Dialog abgebrochen
Gruß Boris
[Diese Nachricht wurde von bkrüger am 14. Jan. 2016 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP