Pdf afdrukken

[bkoppers]

Wie kan mij ff verder helpen?

Onderstaande code gebruik ik in Excel om een pdf bestand te maken van een selectieveld in excel, echter als de PDF bestandsnaam reeds bestaat dan wordt hij zonder melding overschreven, graag zou ik willen dat de verkenner wordt geopend, in uiteraard "ThisWorkbook.Path", waarbij ik dan de bestandsnaam kan wijzigen.

Sub print1()
' 1 pagina printen
    Range("A1:K30").Select
    Range("K30").Activate
    ActiveSheet.PageSetup.PrintArea = "$A$1:$K$30"
    ChDir ThisWorkbook.Path & ""
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\" & Range("Ordernummer").Value & " - Line " & Range("Line").Value & " - rapporten.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End Sub

al vast bedankt voor diegene met de oplossing.

 

[huijb]

Deze sluit ik, je mag hier verder http://www.helpmij.nl/forum/showthread.php/830147-Pdf-afdrukken?p=5332907#post5332907