Yldie
XLDnaute Junior
Bonsoir à tous,
DEpuis 4 jours je galère avec ma macro censée me permettre d'imprimer une zone d'impression à l'aide d'un bouton (formulaire), en fait le message d'erreur 400 apparaît à chaque fois, voici ma macro :
Sub Imp_sauf_zero()
Application.ActivePrinter = "hp psc 1300 series sur Ne02:"
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$36"
For Each cel In Range("J1:J32" & [J65000].End(xlUp).Row)
If cel <> 0 Then
[C1] = cel
ActiveSheet.PrintOut
End If
Next cel
End Sub
Or je me demandais si ça ne pouvait pas provenir de la ligne Application.ActivePrinter =".......sur Ne02:" (??)
Merci pour votre aide
DEpuis 4 jours je galère avec ma macro censée me permettre d'imprimer une zone d'impression à l'aide d'un bouton (formulaire), en fait le message d'erreur 400 apparaît à chaque fois, voici ma macro :
Sub Imp_sauf_zero()
Application.ActivePrinter = "hp psc 1300 series sur Ne02:"
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$36"
For Each cel In Range("J1:J32" & [J65000].End(xlUp).Row)
If cel <> 0 Then
[C1] = cel
ActiveSheet.PrintOut
End If
Next cel
End Sub
Or je me demandais si ça ne pouvait pas provenir de la ligne Application.ActivePrinter =".......sur Ne02:" (??)
Merci pour votre aide