problème impression sous excel

[bodegue]

Bonjour,

Quand j'imprime 2 feuiles, j'ai 2 feuilles vierges qui sortent entre chaque page.

 

[mromain]

Re : problème impression sous excel

bonjour bodegue,

essaye en remplaçant

Sub IMPRIMER()
 Q = Application.InputBox("Combien de copies ?", "IMPRESSION")
If Not IsNumeric(Q) Then Exit Sub
For i = 1 To CInt(Q)
    Application.Wait (Now + TimeValue("0:00:03"))
    Range("F36") = i & "/" & CInt(Q)
    ActiveSheet.Range("[B][COLOR=Red]A2:AC140[/COLOR][/B]").PrintOut
Next
End Sub

par

Sub IMPRIMER()
 Q = Application.InputBox("Combien de copies ?", "IMPRESSION")
If Not IsNumeric(Q) Then Exit Sub
For i = 1 To CInt(Q)
    Application.Wait (Now + TimeValue("0:00:03"))
    Range("F36") = i & "/" & CInt(Q)
    ActiveSheet.Range("[B][COLOR=Red]A2:AC40[/COLOR][/B]").PrintOut
Next
End Sub

ça a l'air de marcher chez moi.

a+