Sub Imprimer()
'pour lancer l'aperçu
Sheets("Fiche MOB").Range("A1:K47").PrintPreview
'pour lancer l'impression
'Sheets("Fiche MOB").Range("A1:K47").PrintOut
End Sub
Bonjour, danyphil, le Forum,
Peut-être ainsi :
Code:Sub Imprimer() 'pour lancer l'aperçu Sheets("Fiche MOB").Range("A1:K47").PrintPreview 'pour lancer l'impression 'Sheets("Fiche MOB").Range("A1:K47").PrintOut End Sub
A bientôt
...Comment faire pour que cela s'imprime sur 1 feuille?...