Hallo allemaal,

Ik heb van dit forum al diverse oplossingen gehaald maar voor volgend probleem kan ik geen oplossing vinden.
Ik ben geen VBA expert, kom nog uit het Fortran/Basic tijdperk maar met veel zoeken op forums is het altijd nog gelukt.

Het gaat om een reserveringsbestand voor de verhuur van onze kantine. Daar zit een macro in om pdf facturen naar een file te schrijven. Het bestand wordt al een jaar zonder problemen gebruikt. Sinds kort werkt de macro niet meer en geeft de volgende foutmelding.

Fout 5 tijdens uitvoering, ongeldige procedure aanroep - ongeldig argument.

Bestanden staan op een NAS-server via een netwerkkoppeling. Probleem doet zich voor met W7-Office 2007 en W10-Office 2016.

Recent heb ik een oude printerdiver gedeïstalleerd op 2 computers. Alleen op een computer waar de oude driver nog op zit werkt de macro nog wel. Toeval?


Sub Factuur_opslaan()
Dim pad As String

If Sheets("Factuur").Range("D26") = "factuurnummer maken en invullen" Then

MsgBox "Eerst factuurnummer invullen"

Else
    pad = "y:\beheer\facturen\te maken facturen\" & Sheets("Formulieren").Range("H3").Value & "\" & Sheets("Factuur").Range("D26").Value & " Factuur Zaalhuur " & Sheets("Formulieren").Range("C3").Value & " " & Sheets("Formulieren").Range("C8").Value & ".pdf"
    ThisWorkbook.Sheets("Factuur").Copy
    ActiveSheet.ExportAsFixedFormat xlTypePDF, pad, , True, , , , True
    ActiveWorkbook.Close False
    ThisWorkbook.Save
   
    End If
   
End Sub

Met vriendelijke groet, Bert

Probleem op de Windows 10 PC is ook opgelost. Was trouwens Office 2019.
Was een opnieuw ingerichte PC. De PDF extensie was nog niet aan een programma gelinked.

Groetjes, Bert