Imprimer erreur 400!!!

[demax]

Bonjour
J'ai un code pour imprimer mais j'ai une erreur (400) lorsque je clic sur un bouton lié à cette macro

Sub ImprimFiche()
Msg = "Voulez-vous vraiment imprimer ?"
Style = vbYesNo + vbCritical + vbDefaultButton1
Title = "Imprimer"
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
GoTo continu
Else
Exit Sub
End If
continu:
Application.ScreenUpdating = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Avez vous une idée du probleme?
merci

 

[mromain]

Re : Imprimer erreur 400!!!

bonjour demax,

question à tout hazard : as-tu une imprimante installée par défaut?
ça pourrait peut-être venir de là

 

[demax]

Re : Imprimer erreur 400!!!

exact je n'ai pas d'imprimante🙁 mais je pensais que ca ouvré au moins la boite de dialogue.😕
sinon tu pense que le code est bon?
merci

 

[mromain]

Re : Imprimer erreur 400!!!

re

a priori, ça a l'air pas mal, mais j'ai pas testé.
pour éviter que ça plante, tu peux mettre "On Error Resume Next" avant la ligne pour imprimer et "On Error Goto 0" après.
Comme ça, si il y a une imprimante, ça imprime, et si il y en a pas, ça bugge pas.

a+

 

[demax]

Re : Imprimer erreur 400!!!

merci mromain
dis donc tu as des talents de voyance (de suite l'imprimante pas installé)😱
merci pour resume next
A+😉