Macro werkt niet

[Hans290875]

Weet iemand de oplossing voor onderstaande foutoplossing bij de macro 'sluiten'?

 

[peter59]

Ik heb het vermoeden dat dit iets met de printer te maken heeft.
Klopt het dat je ook deze foutmelding krijgt?

1004 - De huidige printer is niet beschikbaar. Selecteer een andere printer.

 

[edmoor]

Werkt prima hier met mijn test.
Wel de code iets vereenvoudigd.
Wat is de foutmelding die je krijgt?

Sub sluiten()
    Dim FacName As String
    'FacName = "C:\Users\DickRhetap\Rhetap\Rhetap - Documenten\Documenten\D.v.Rhee Holding\Facturen [Verzonden]\Fact " & Range("E18").Value & ".pdf"
    FacName = "C:\Users\Ed\Desktop\Facturen [Verzonden]\Fact " & Range("E18").Value & ".pdf"
 
    If Dir(FacName) <> "" Then
        MsgBox "Het bestand: " & FacName & " bestaat reeds"
    Else
        ActiveSheet.ExportAsFixedFormat 0, FacName
        Range("E18").Value = Range("E18").Value + 1
        Range("B12").Select
        ActiveWorkbook.Close savechanges:=True
    End If
End Sub