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