Export to Pdf vragen waar op te slaan

[Dedeke]

Beste,

Momenteel gebruik ik onderstaande code om een bepaalde range te exporteren als Pdf naar een bepaalde folder. C:\Test in dit geval.
Echter niet alle gebruikers beschikken over deze folder of willen hem niet aanmaken, maakt niet uit.....

Kan deze aangepast worden zodanig dat er de mogelijkheid is om gebruik te maken van een standaard venster "Save As" , zoals bij alle documenten, zodanig dat dat de gebruiker zelf kan kiezen waar en met welke naam hij de geëxporteerde file wil opslaan.

Sub Export_Test_AsPDF()

Dim saveLocation As String
Dim rng As Range

saveLocation = "C:\Test\myTestFile.pdf"
Set rng = Sheets("Testsheet").Range("B1:G37")

'Save a range as PDF
rng.ExportAsFixedFormat Type:=xlTypePDF, _Filename:=saveLocation

Alvast bedankt

 

[edmoor]

Dat kan met iets als dit stukje:

Dim PDF As Variant

PDF = Application.GetSaveAsFilename(FileFilter:= _
         "PDF Files (*.pdf), *.pdf", Title:="PDF opslaan", _
        InitialFileName:="C:\Test\myTestFile.pdf")

If PDF <> False Then
    MsgBox PDF
End If

 

[Dedeke]

@ Edmoor,

Hartelijk bedankt voor de snelle reactie. Dankzij jouw aangeboden oplossing tot onderstaande gekomen. Hoefde maar een kleine aanpassing te doen. Zo werkt het prima voor mij.

Sub KlPil_NatAsPDF()

Dim saveLocation As String
Dim rng As Range

saveLocation = Application.GetSaveAsFilename(FileFilter:= _
         "PDF Files (*.pdf), *.pdf", Title:="PDF opslaan", _
        InitialFileName:=("KlasPilNat.pdf"))
Set rng = Sheets("Klassementen").Range("B1:G37")

'Save a range as PDF
rng.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=saveLocation
End Sub

 

[wams]

Is het ook mogelijk om bovenstaande te doen maar dan met een initial filename gekozen uit een cel in het document? bijvoorbeeld

naam = Sheets("Data").Range("B35")

ik krijg het niet voor elkaar..

 

[edmoor]

Dat zou toch simpel moeten zijn:

Sub KlPil_NatAsPDF()
    Dim saveLocation As String
    Dim rng As Range
    
    saveLocation = Application.GetSaveAsFilename(FileFilter:= _
             "PDF Files (*.pdf), *.pdf", Title:="PDF opslaan", _
            InitialFileName:=Sheets("Data").Range("B35"))
            
    Set rng = Sheets("Klassementen").Range("B1:G37")
    
    'Save a range as PDF
    rng.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=saveLocation
End Sub

 

[wams]

Denk dat ik ergens overheen heb gekeken, aanhalingsteken oid vergeten.

Thanks!