Office: (Office 2016) Export Dialog aufrufen

Liebe Excel-Spezialisten

Ich möchte per VBA ein PDF erstellen. Per Makro konnte ich den Command aufzeichnen:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "\\unc-pfad\Datei.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=False

Mein Problem: Ich möchte den Speicherort und den Dateinamen im Dialog festlegen können. Der "Speichern unter" Dialog kenne ich und er genügt unseren Anforderungen nicht vollständig.
Meine Frage: Wie kann der Dialog geöffnet werden?

Besten Dank für die Rückmeldungen

Herzliche Grüsse
Compili

 

Hi,

was verstehst du unter: "Der "Speichern unter" Dialog kenne ich und er genügt unseren Anforderungen nicht vollständig." Was für einen Dialog willst du denn dann?

Bis später,
Karin

 

Hi, kannst das hier bei dir einbauen. Läuft 1A

Sub PDF()

Dim SpeicherName As String

Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)

.Orientation = xlPortrait

.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.PrintCommunication = True

SpeicherName = Application.GetSaveAsFilename( _
InitialFileName:="", _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Select Path and FileName to save")


ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=SpeicherName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=True, _
OpenAfterPublish:=True

End Sub



das mit .FitToPagesWide = 1 und .FitToPagesTall = 1 ist kein Muss - ist nur damit alles auf ein Blatt passt
und OpenAfterPublish:=True nur wenn es direkt aufgehen soll nachm Speichern
das mit "Margin" ist wahrscheinlich auch klar.

Viel Spass damit
Gruss

 

Hallo zusammen,

Bitte entschuldigt meine längere Abwesenheit. Heute konnte ich das Makro von YYY2019 testen und es läuft absolut nach meinen Vorstellungen. Herzlichen Dank und einen schönen Tag wünscht

Compili