Changer d'imprimante

Bonjour à tous,

Je bloque sur le code suivant :

Sub IMPRIMER_ETIQUETTES_LARGE_A4()
'
' Imprimer les etiquettes "Large" sur papier au format A4
'
    Application.ScreenUpdating = False

    Sheets("ETIQUETTE COND. A4").Activate
    ActiveSheet.Visible = True

    Dim NBPAGE As Double
    NBPAGE = ActiveSheet.Range("H2")

    Dim DEFAULTPRINTER As String
    DEFAULTPRINTER = Application.ActivePrinter

    Dim NEWPRINTER As String
    NEWPRINTER = "ScanSoft PDF Create! on Ne00"
'
' IMPRIMER SUR NOUVELLE IMPRIMANTE
    Application.ActivePrinter = NEWPRINTER
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=NBPAGE, Copies:=1, Collate:=True, IgnorePrintAreas:=False
'
' REMETTRE IMPRIMANTE PAR DEFAUT
    Application.ActivePrinter = DEFAULTPRINTER

    ActiveSheet.Visible = False
    Sheets("3-FICHE COND.").Activate

    Application.ScreenUpdating = True

End Sub

A chaque fois le code bug sur la ligne :

Application.ActivePrinter = NEWPRINTER

D'avance merci pour vos contributions et collaborations.

Cordialement

J'ai trouvé, mon windows est en Français, le nom de mon imprimante est donc :

"ScanSoft PDF Create! sur Ne00:" au lieu de "ScanSoft PDF Create! on Ne00:"

Bonne journée à tous