Errore di esportazione comparso dal nulla

Sub Macro2()
    'by scossa
  
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim P As String
    Dim N As String
    Dim sFile As String
    Dim j As Long
    Dim aLink As Variant
    Dim pdfjob As Object  ' PDFCreator.clsPDFCreator '
    Dim wsPdf As Worksheet
    Dim wbPdf As Workbook
    
    On Error GoTo err_exit
    Set wb = ThisWorkbook
    Set pdfjob = CreateObject("PDFCreator.clsPDFCreator") 'New PDFCreator.clsPDFCreator '
    If pdfjob Is Nothing Then
      Err.Raise Number:=vbObjectError + 513, _
        Description:="Errore stampante PDF"
    End If
    If pdfjob.cStart("/NoProcessingAtStartup") = False Then
      Err.Raise Number:=vbObjectError + 513, _
        Description:="Errore stampante PDF"
    End If
    
    Application.ScreenUpdating = False
    For j = 1 To wb.Worksheets.Count
        Set ws = wb.Worksheets(j)
        If ws.CodeName <> "Foglio1" Then
            P = wb.Path & "\"
           N = "Ordine " & ws.Name & " " & ws.Range("B22").Value
            'N = ws.Name & " " & ws.Range("B22").Value
        If j < wb.Worksheets.Count Then
          N = "" & N
        End If
          sFile = P & N
          If Dir(sFile & ".xls") <> "" Then
            If MsgBox("file " & sFile & " esiste già" & _
              vbCrLf & "sovrascrivo?", vbCritical + vbYesNo, _
                "ATTENZIONE") = vbNo Then
              Err.Raise Number:=vbObjectError + 513, _
                Description:="Esportazione abbandonata"
            Else
              'un motivo c'è per le due righe seguenti
              Application.ScreenUpdating = True
              Application.ScreenUpdating = False
            End If
          End If
          ws.Copy
          Set wbPdf = ActiveWorkbook
          Set wsPdf = wbPdf.ActiveSheet
          Application.DisplayAlerts = False
          aLink = wbPdf.LinkSources(Type:=xlLinkTypeExcelLinks)
          wbPdf.BreakLink aLink(1), xlLinkTypeExcelLinks
          wbPdf.SaveAs Filename:=sFile & ".xls"

          With pdfjob
            .cPrinterStop = False
            .cOpti0n("UseAutosave") = 1
            .cOpti0n("UseAutosaveDirectory") = 1
            .cOpti0n("AutosaveDirectory") = wb.Path
            .cOpti0n("AutosaveFilename") = N
            .cOpti0n("AutosaveFormat") = 0
            .cClearCache
                      
            Application.StatusBar = "stampa pdf: " & sFile & ".pdf"
            If wsPdf.Name = "3" Then
              Application.StatusBar = "stampa pdf: " & sFile & "a" & ".pdf"
              .cOpti0n("AutosaveFilename") = N & "a"
              wsPdf.PrintOut From:=1, To:=1, Copies:=1, ActivePrinter:="PDFCreator su Ne00:" 'modificare all'occorenza
              Do Until .cCountOfPrintjobs = 1
                DoEvents
              Loop
              .cPrinterStop = False
        
              Do Until .cCountOfPrintjobs = 0
                DoEvents
              Loop
              .cOpti0n("AutosaveFilename") = N & "b"
              Application.StatusBar = "stampa pdf: " & sFile & "b" & ".pdf"
              wsPdf.PrintOut From:=2, To:=10000, Copies:=1, ActivePrinter:="PDFCreator su Ne00:" 'modificare all'occorenza
            Else
              wsPdf.PrintOut Copies:=1, ActivePrinter:="PDFCreator su Ne00:" 'modificare all'occorenza
            End If
            
            Do Until .cCountOfPrintjobs = 1
              DoEvents
            Loop
            .cPrinterStop = False
      
            Do Until .cCountOfPrintjobs = 0
              DoEvents
            Loop
            Set wsPdf = Nothing
            ActiveWorkbook.Close
            Application.DisplayAlerts = True
          End With
        End If
      Next
  
err_exit:
    Application.StatusBar = False
    pdfjob.cClose
    Set wb = Nothing
    Set ws = Nothing
    Set pdfjob = Nothing
   
    Application.ScreenUpdating = True
    If Err.Number <> 0 Then
      MsgBox Err.Description, vbCritical, "ERRORE"
    Else
      MsgBox "Creazione file .xls e .pdf eseguita", vbInformation, "OK"
    End If
  
  End Sub

wsPdf.PrintOut From:=1, To:=1, Copies:=1, ActivePrinter:="PDFCreator su Ne00:" 'modificare all'occorenza

  If ActivePrinter <> s Then
        'stampo
    End If

    'ripristino la vecchia stampante
    ActivePrinter = s

 If ActivePrinter <> s Then
         'stampo
         ActiveSheet.PrintOut '<<====
    End If