Faire bonne impression

FlashVB · 4 Septembre 2003

Bonjour à tous,

Ma demande est la suivante : le code suivant me permet d'imprimer une feuille mais je souhaiterais imprimer le classeur en entier ou quelques feuilles de ce classeur. Quelqu'un peut-il m'aider à modifier ce code ?

Merci.

Sub PrintAS()

Range("A348").Select
ActiveSheet.PageSetup.PrintArea = "$A$3:$P$48"
Range("A3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

FlashVb

Jon · 4 Septembre 2003

for each sh in activeworkbook.sheets
sh.printout ..... 'je ne sais plus s'il est nécessaire de l'imprimer
next sh

for each sh in activeworkbook.sheets
if sh.name <>"toto" then sh.select replace:=false
'vous trouverez dans une conversation d'aujourd'hui une autre méthode pour vous aider à sélectionner ou ne pas sélectionner certaines feuilles
next sh
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

sheets(array("feuil1","feuil2")).printout ....

Faire bonne impression

FlashVB

Guest

Jon

Guest

Discussions similaires