Marco maken pdf

[Brian van Senten]

Goede dag, 

 

onderstaande code moet van meerde exel sheets een pdf document maken , en dat pdf doc verzenden. 

dit werkte tot aan vandaag al jaren goed (+/- 10jaar) 

 

alleen na de update van windows niet meer 

kan iemand mij helpen waarom ?

ik krijg de volgende foutmelding 

"Microsoft Add-in is not installed" & vbNewLine & _
                       "The path to Save the file in arg 2 is not correct" & vbNewLine & _
                       "You didn't want to overwrite the existing PDF if it exist"

 

hier de code 

 

 

 

Sub Mail_Every_Worksheet_With_Address_In_A1_PDF()
'Working only in 2007 and up
    Dim sh As Worksheet
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim FileName As String

    'Temporary path to save the PDF files
    'You can also use another folder like
    'TempFilePath = "C:\Users\info\MyFolder\"
    TempFilePath = "C:\Users\admistartie\Desktop"

    'Loop through every worksheet
    For Each sh In ThisWorkbook.Worksheets
        FileName = ""

        'Test A1 for a mail address
        If sh.Range("R8").Value Like "?*@?*.?*" Then

            'If there is a mail address in R8 create the file name and the PDF
           
            TempFileName = TempFilePath & "Factuur " & Range("R11") & " " _
                         & Range(" S11") _
                         & Range(" R10") _
                         & ".pdf"

            FileName = RDB_Create_PDF(sh, TempFileName, True, False)

            'If publishing is OK create the mail

            If FileName <> "" Then
           

                RDB_Mail_PDF_Outlook FileName, sh.Range("R8").Value, "[verk]Factuur", _
                                     "In de bijlage vind u onze factuur" _
                                   & vbNewLine & vbNewLine & "Met vriendelijke groet / Kind regards ," _
                                    & vbNewLine & " " _
                                  & vbNewLine & "Jan van Senten" _
                                    & vbNewLine & " " _
                                     & vbNewLine & "J.W. van Senten Aalsmeer B.V." _
                                      & vbNewLine & "Legmeerdijk 129" _
                                        & vbNewLine & "1432 KA Aalsmeer" _
                                         & vbNewLine & "info@ vansenten.nl" _
                                   & vbNewLine & "www.vansenten.nl" _
                                     & vbNewLine & "Tel: 020-6477362", False
                                 
              
 

 

 

            Else
                MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
                       "Microsoft Add-in is not installed" & vbNewLine & _
                       "The path to Save the file in arg 2 is not correct" & vbNewLine & _
                       "You didn't want to overwrite the existing PDF if it exist"
            End If

        End If
    Next sh
End Sub

 

 

 

[stegisoft]

Maar waarom schakelt je niet over naar de nieuwste office.

Je bent hopeloos achter met het systeem want uw office is helemaal niet veilig meer noch voor u noch voor uw klanten.

Ook al maak je pdf dan kan er virus in komen.

 

Bovendien krijg je geen update meer want ondersteuning is voor uw geval gestopt 10/2017

Op dit moment volgens code werk je nog met doc en dat is achterhaalt want het is nu docx

 

 

 

 

 

[Brian van Senten]

zijn bezig om na andere manier van facturatie over te stappen.

maar heeft enige tijd nodig

 

Werken met de nieuwste office. 

deze code is toen ooit gemaakt voor ons. 

 

kan je me verder helpen dat die het wel weer doet ?

 

[stegisoft]

Ik ben geen specialist.

Waarschijnlijk moet je kijken of je Visual c++ je hebt zoals onderstaande afbeelding in configuratiescherm / programma en onderdelen.

 

 

 

[stegisoft]

Kijk ook vorige bericht:

 

Als ik uw code vergelijk met deze pagina (klik) (helemaal naar beneden scrollen) valt mij een ding op:

regel: TempFilePath = "C:\Users\admistartie\Desktop"

 

Het woord admistartie is een raar woord en zelfs voor Engels.

Mogelijk moet dat C:\Users\Default\Desktop zijn of Default door een ander naam.

 

4 juni 2018 aangepast door stegisoft

[bakerman]

Er ontbreekt een backslash aan het eind van je TempFilePath..

 

En waarom gebruik je 2 externe subs om je Pdf te maken en te verzenden ?