Compteur feuille impression

[Dennnisss]

Bonjour a tous

Je me suis creer un code pour faire l'impression d'un rapport , ce que j'essaie de faire est d'inclure une quantite de copie a faire l'impression

Alors dans mon code il ne tient pas compte du compteur il commence l'impression sans se servir de la quantite

alors j'aurais besoin de votre aide pour recoder mon erreur

merci de votre aide
dennnisss 😉 😉

 

[Guest]

Re : Compteur feuille impression

Bonjour Denis,

vois si cela te conviens,

La feuil2 est imprimée 1 fois et les suivantes imprimer 'compteur' fois.

Si tu veux que la feuil2 soit également imprimer plusieurs fois , remonte ses lignes en haut de macro:

Compteur_Impression.Show
    If compteur = 0 Then Exit Sub

Un classeur avec les bon noms de feuilles aurait été souhaitable pour les essais.

A+

 

[Pierre-Henry]

Re : Compteur feuille impression

Bonjour,
Je n'ai pas d'imprimante, et ne suis pas un as du vba, mais voici 2-3 trucs que j'ai remarqué dans ton code....

While compteur = compteur

Ca ressemble à une boucle infinie, non?

If copmteur = compteur Then
Exit Sub

J'ai l'impression que tu essaies de rattraper ta boucle infinie avec ce passage....qui ne peut pas marcher car tu as inversé 2 lettres (relis bien...coPMteur), et que si tu remets ces lettres dans l'ordre, ta condition est toujours vraie....donc tu imprimes 0 fois.

J'ai modifié rapidement ton code, avec une inputbox (je ne sais pas du tout comment fonctionnent les USF, mais à l'évidence tu n'en récupérais le résultat nulle part)

J'espère ne pas être trop à côté de la plaque....c'est la 1re fois que je réponds à une question 🙂

Cordialement

 

[Dennnisss]

Re : Compteur feuille impression

Salut Hasco et Pierre-Henry

J'ai essayer vos code et cela ne marche pas , oui il imprime la premiere page
et si j'inscrit 3 , les autres il ne fait rien

merci de votre aide messieurs
je continue de chercher

dennnisss 😉 😉

 

[Pierre-Henry]

Re : Compteur feuille impression

Re,
Bon, pour ma part, je n'ai pas été malin....l'art de faire compliqué quand on peut faire simple....si tu enlèves ma boucle for et que tu remplaces
Selection.PrintOut Copies:=1, Collate:=True
par
Selection.PrintOut Copies:=nb_copies, Collate:=True
ça ne marche toujours pas?

(désolé, je ne peux pas tester....j'espère que tu ne m'en tiendras pas rigueur)

EDIT: En fait j'ai testé en utilisant PDF Crato comme imprimante, et ça a l'air de marcher....tiens nous au courant

 

[Dennnisss]

Re : Compteur feuille impression

Salut Pierre-Henry


J'ai changer le code que tu a mentionner si bas
Selection.PrintOut Copies:=nb_copies, Collate:=True

et aussi j'ai changer le code dans le userform
clic-bouton

j'ai ajouter nb_copies = textbox1

pour avoir le compteur

IL imprime toujours la premiere page
et de ce qui est pour les autres on voit que l'imprimante enregistre un configuration mais imprime rien

salut a toi Pierre-Henry je continue ma recherche

dennnisss 😉😉

 

[Guest]

Re : Compteur feuille impression

Denis, Pierre-Henry,

Chez moi aussi cela fonctionne correctement. J'ai bien le nombre d'impression demandées dans la file d'attente.

Denis es-tu sûr d'avoir des données à imprimer dans tes selections?

A+

 

[Dennnisss]

Re : Compteur feuille impression

Salut Hasco

Je vient de revenir sur le net .
Je verifie ce que tu me dit a savoir si il y a des donnees a imprimer
je te revient

salut dennnisss 😉😉

 

[Guest]

Re : Compteur feuille impression

Denis, Pierre-Henry,

Net...ment il va raccrocher le Hasco. Alors peut-être que quelqu'un d'autre reprendra la main.

Passez tous une bonne soirée.

A+

 

[PAULUX]

Re : Compteur feuille impression

Bonjour Dennnisss, pour imprimer j'utilise ce code "a modifier pour ton utilisation" nb de feuille marche très bien!!!!!!!!

Sub imprimer_devis()
Dim nb As Integer
nb = Val(InputBox("Donner un nombre de copie : "))
If nb = 0 Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut Copies:=nb, Collate:=True
End Sub

Cdlt A+

 

[Dennnisss]

Re : Compteur feuille impression

Salut Paulux

Oui je te remercie ; avec l'aide de Hasco et beaucoup de perseverence de sa par on a reussi a le coder correctement
Alors merci a toi Paulux , J,apprecie ton intervention

dennnisss 😉😉