Cod vba pour impression
Bonjour,
je cherche à imprimer une série de cellules sélectionnées (et non toute la page) en cliquand sur un commandbutton.
Derrière mon commandbutton1 voici le code (qui ne marche pas!).
For Each cellules In Selection
ActiveSheet.PageSetup.PrintArea = ActiveCell
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Exit For
Merci d'avance.
Jo
je cherche à imprimer une série de cellules sélectionnées (et non toute la page) en cliquand sur un commandbutton.
Derrière mon commandbutton1 voici le code (qui ne marche pas!).
For Each cellules In Selection
ActiveSheet.PageSetup.PrintArea = ActiveCell
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Exit For
Merci d'avance.
Jo
Configuration: Windows 2000 Internet Explorer 6.0
1 réponse
-
Salut,
Avec l'enregistreur de macro ca donne :
Range("A1:D20").select
Selection.PrintOut-
-
@JoCelà dit je viens de tester et ça ne fonctionne pas non plus en le faisant à la main :
Si je sélectionne A1 et C1 et que je demande un aperçu j'ai A1 sur une première page et C1 sur une deuxième.
Une solution serait d'ajouter une feuille, y copier les cellules que tu souhaites imprimer, imprimer la nouvelle feuille puis la supprimer ensuite.
-
