Cod vba pour impression

jo -  
onesdf Messages postés 375 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

onesdf Messages postés 375 Date d'inscription   Statut Membre Dernière intervention   120
 
Salut,

Avec l'enregistreur de macro ca donne :

Range("A1:D20").select
Selection.PrintOut
0
Jo
 
Désolé mais ça marche pas !

Mais merci quand même.
0
onesdf Messages postés 375 Date d'inscription   Statut Membre Dernière intervention   120 > Jo
 
Celà 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.
0