Printen naar PDF lukt niet meer

[karel1982]

Ik gebruik onderstaande formule om PDF's af te drukken.
Na de updates van Microsoft krijg ik volgende foutmelding: 'PDF add-in Not Installed.'
Heb de add-in proberen te zoeken op de site van Microsoft, maar is niet meer beschikbaar.

Iemand die weet hoe ik dit dien op te lossen.

Sub PDF_Klikken()
    Dim FilenameStr As String

    If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
         & Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then

    [COLOR="#FF0000"]FilenameStr = "Z:\" & Range("D10") & ".2018_" & Range("R2").Text & "\" & "Offerte_" & Range("D10") & ".2018" & ".pdf"[/COLOR]


        ActiveSheet.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=FilenameStr, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
        MsgBox "De PDF werd opgeslagen in " & Range("D10") & ".2018_" & Range("R2").Text

    Else
        MsgBox "PDF add-in Not Installed. Add-in: http://www.microsoft.com/downloads/details.aspx?displaylang=nl&FamilyID=f1fc413c-6d89-4f15-991b-63b07ba5f2e5"
    End If


End Sub

 

[ExcelAmateur]

Heb je dit gelezen?
http://www.helpmij.nl/forum/announcement.php?f=5

 

[karel1982]

In bijlage het bestand.

Ik kan nu afdrukken naar PDF, maar hoe kan ik dit automatisch laten opslaan in de juiste map.

 

[edmoor]

Waar het wordt opgeslagen staat al in de variabele: FilenameStr
Dat weet je vast wel, dus wat bedoel je met automatisch?

Daarnaast dien je je code in je bericht in codetags te zetten, zoals beschreven in de link die ExcelAmateur plaatste.
Nu vallen cruiciale tekens weg.

 

[karel1982]

De formule in commentaar werkt niet meer doordat er geen update meer is voor de PDF add-in.

Als ik nu de onderste formule gebruik krijg ik een dialoogbox en moet ik zelf de map selecteren en de PDF opslaan.

Dit zou ik ook automatisch willen laten gebeuren zoals bij de bovenste formule.


P.S. Ben geen expert in programmeren. De meeste formules heb ik teruggevonden op internet en pas ik dan wat aan.

 

[edmoor]

Als je Office 2010 of hoger gebruikt is die hele controle niet nodig.
Dan kan je direct exporteren naar PDF.

Kijk ook nog even naar de code in #1 nu.
Cruciale \ tekens zijn nu weg.

NB:
Het zijn geen formules maar Routines.

 

[karel1982]

Heb de "/" in de routine boven aangepast.

Als ik exporteer als PDF wordt er gevraagd op het bestand op te slaan.
Dan staat hij altijd in de laatste map die ik gebruikte.
Zou daarom graag hebben dat dit automatisch gedaan wordt omdat de bestanden op een aparte server opgeslagen dienen te worden.

 

[edmoor]

Je bedoelt vast niet / maar \
Het bestand wordt opgeslagen volgens de gegevens in FilenameStr en zal eventueel vragen een bestand met dezelfde naam te overschrijven.
Dat kan je voorkomen door net ervoor dit op te nemen:
Application.DisplayAlerts = False

En erna dit:
Application.DisplayAlerts = True

Verder wordt er door de code niks gevraagd.

 

[karel1982]

Dit is momenteel de code die ik heb. Want de bovenstaande werkt niet meer door de PDF add-in die niet meer ondersteunt wordt door Microsoft.

Sub PDF_Klikken()
Dim STDprinter As String
    STDprinter = Application.ActivePrinter
    Application.ActivePrinter = "Microsoft Print to PDF op Ne07:"
    ActiveWindow.SelectedSheets.PrintOut
    Application.ActivePrinter = STDprinter
End Sub

Het is bij deze dat ik niet kan vinden hoe ik het bestand automatisch kan laten opslaan.

 

[karel1982]

Is opgelost.
Heb eerst een macro gemaakt van de procedure.
Daar dan onderstaande van gemaakt.

Sub TESTPDF()
'ChDir "Z:\" & Range("D10") & ".2018_" & Range("R2").Text & "\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "Z:\" & Range("D10") & ".2018_" & Range("R2").Text & "\" & "Offerte_" & Range("D10") & ".2018" & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

 

[edmoor]

Op zich niks mis mee, maar ik zou het zo doen:

Sub TESTPDF()
    PDF = "Z:\" & Range("D10") & ".2018_" & Range("R2").Text & "\" & "Offerte_" & Range("D10") & ".2018" & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDF
End Sub