Impression

[BRUNO62]

Bonsoir,

Je souhaite imprimer une feuille en deux exemplaires et cela ne fonctionne pas.
Sub imprim()
Sheets("A").Visible = True
Sheets("A").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
Sheets("A").Visible = False
End Sub
Avez vous une idée, merci d'avance
a+

 

[kjin]

Re : Impression

Bonsoir,

Avez vous une idée, merci d'avance

Allume l'imprimante ! 🙂
Y a t-il qq chose à imprimer ! 🙂

Sub imprim()
With Sheets("A")
    .Visible = True
    .Activate
    .PrintOut Copies:=2, Collate:=True
    .Visible = False
End With
End Sub

A+
kjin

 

[BRUNO62]

Re : Impression

Bonsoir kjin,
Merci, à toi.
A+