Print macro werkt niet (meer)

Sub PDFbriefpapier()
'
' PDFbriefpapier Macro
' Afdrukken als .pdf op blanco papier
'

' naam huidig werkblad opslaan

Dim strCurrentWorkBook As String
strCurrentWorkBook = ActiveWorkbook.Name ' stores the current active window

Dim wbCurrent As Workbook
Set wbCurrent = ActiveWorkbook

' testfactuur openen, oude content verwijderen en weer vullen met de huidige factuur
   
    Workbooks.Open Filename:= _
        "D:\foldernaam\foldernaam\Testfactuur.xlsx"
    wbCurrent.Activate
    Range("A1:F49").Select
    Selection.Copy
    Windows("Testfactuur.xlsx").Activate
    ActiveSheet.Paste
    
' printgedeelte

Dim strCurrentPrinter As String
strCurrentPrinter = Application.ActivePrinter ' stores the current active (default) printer

Application.ActivePrinter = "Microsoft Print to PDF op Ne00:"                 ' change what is in quotes as per appropriate printer name in the Print Dialog Box
        
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False

Application.ActivePrinter = strCurrentPrinter 'Returns printer output to your default printer

    ActiveWindow.Close savechanges:=False

    Range("A1").Select 'haalt het geselecteerde gebied weer weg door naar A1 te gaan
    
End Sub

Application.ActivePrinter = "Microsoft Print to PDF op Ne00:"

Ne01:

' testfactuur openen, oude content verwijderen en weer vullen met de huidige factuur
   
    Workbooks.Open Filename:= _
        "D:\foldernaam\foldernaam\Testfactuur.xlsx"
    wbCurrent.Activate
    Range("A1:F49").Select
    Selection.Copy
    Windows("Testfactuur.xlsx").Activate
    ActiveSheet.Paste

Public Sub PDFbriefpapier()

    strActivePrinter = Application.ActivePrinter
  
    With ActiveWorkbook
        Range("A1:F49").Copy
    End With

    With Workbooks.Open("D:\foldernaam\foldernaam\Testfactuur.xlsx").ActiveSheet
        .Paste
        .PrintOut ActivePrinter:="Microsoft Print to PDF op Ne01:"
        .Parent.Close False
    End With

    Application.Goto ActiveWorkbook.ActiveSheet.Range("A1")
    
    Application.ActivePrinter = strActivePrinter

End Sub