VBA PDF Exportieren

[Case]

Hallo, :19:

probiere es mal so: :21:

Code:

Option Explicit
Public Sub Main()
    Dim varPath As Variant
    On Error GoTo Fin
    varPath = Application.GetSaveAsFilename( _
        InitialFileName:=ThisWorkbook.Path & "\" & Range("G6").Value & "_" & _
        Range("G10").Value & "_" & Range("G8").Value, _
        FileFilter:="PDF(*.pdf), *.pdf", _
        Title:="Speichern als PDF")
    If Not varPath = False Then
        With ThisWorkbook.Worksheets("Beispiel")
            .PageSetup.Orientation = 2
            .PageSetup.Zoom = False
            .PageSetup.FitToPagesWide = 1
            .PageSetup.FitToPagesTall = 1
            .Range("B2:X48").ExportAsFixedFormat 0, varPath, OpenAfterPublish:=True
        End With
    Else
        MsgBox "Abbrechen geklickt..."
    End If
Fin:
    If Err.Number <> 0 Then MsgBox "Error: " & _
        Err.Number & " " & Err.Description
End Sub

[kugelschreiber]

Hi Case,

habe deinen Kommentar komplett übersehen.

Scheint auf den ersten Blick zu funktionieren! Vielen Dank! :)

[schauan]

Hallöchen,

auch wenn Du schon eine Lösung hast mal noch ein paar Worte dazu. Ein fester Pfad hat dann Vorteile, wenn Du nur einen user hast oder vor allem bei mehreren Usern die im Netzwerk arbeiten und bestimmte gemeinsame Verzeichnisse nutzen sollen.

Die Angabe
Filename:="C:\Users\mustermann\Desktop\beispielordner
hätte neben dem username auch noch das Risiko des fehlenden beispielordner.

Man könnte es aber programmtechnisch lösen

Statt Mustermann nimmst Du
Application.Username
oder
Environ("Username")

das Vorhandensein des beispielordner könnte man auch prüfen und diesen ggf. anlegen.

[Case]

Scheint auf den ersten Blick zu funktionieren! Vielen Dank! :)

Hallo, :19:

Bitte, und - hoffentlich auch auf den zweiten Blick...