problème d'impression

noviceAG

XLDnaute Impliqué

• 9 Mars 2010

• #2

Re : problème d'impression

Bonjour wainso et bienvenu sur ce Forum,
adapte et ssaye :

Sub ImprimNotesEleves()
Dim c As Range
Sheets("Graph").Select
If Cells(4, 4).Value = "" Then 'Cells(4, 4) correspond à ta cellule de validation a adapter
Exit Sub
End If
For Each c In Range("Eleves")
Range("Noms").Value = c.Value
Sheets("Graph").PrintOut
Next c
End Sub

 

Vote positif 0 Vote négatif

W

wainso

XLDnaute Occasionnel

• 9 Mars 2010

• #3

Re : problème d'impression

t'est génial merci pour le Conseil ça marche à merveille

 

Vote positif 0 Vote négatif

W

wainso

XLDnaute Occasionnel

• 9 Mars 2010

• #4

Re : problème d'impression

comme on dit l'appétit vient en mangeant alors deux autres questions
en exécutant la macro peut on au paravant par code laisser le choix à l'utilisateur le choix de l'imprimante si jamais +eurs sont installées
ensuite si le le nombre de page du tableau généré peut varier peut on réduire l'impression aux pages qui contiennent des informations uniquement
merci en tout cas pour le premier code

 

Vote positif 0 Vote négatif

W

wainso

XLDnaute Occasionnel

• 9 Mars 2010

• #5

Re : problème d'impression

j'ai solutionné ma deuxième question reste la première merci

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 9 Mars 2010

• #6

Re : problème d'impression

Bonjour à tous,

Pour le choix de l'imprimante :

Code:

       Application.Dialogs(xlDialogPrint).Show

A+ à tous

 

Vote positif 0 Vote négatif