Macro inprimer
Résolu
Dandy_danbe
Messages postés
109
Date d'inscription
Statut
Membre
Dernière intervention
-
Dandy_danbe Messages postés 109 Date d'inscription Statut Membre Dernière intervention -
Dandy_danbe Messages postés 109 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je repose ma question car pb.
je voudrais imprimer une page un nombre de fois par a port d' une valeur dans une cellule (r5)/2+1
mais seulement la premier page et pas le reste car avec la formule
Sub imprimer()
ActiveSheet.PrintOut Copies:=[R2] / 2 + 1
End Sub
il imprime 3 page donc 2 page de trop
perte de papier et d' encre
merci d' avance
je repose ma question car pb.
je voudrais imprimer une page un nombre de fois par a port d' une valeur dans une cellule (r5)/2+1
mais seulement la premier page et pas le reste car avec la formule
Sub imprimer()
ActiveSheet.PrintOut Copies:=[R2] / 2 + 1
End Sub
il imprime 3 page donc 2 page de trop
perte de papier et d' encre
merci d' avance
4 réponses
-
Bonjour,
il imprime 3 page donc 2 page de trop Quelle valeur a [R2] ou r5 suivant ce que vous ecrivez ??????? -
Bonojur;
[R5] = nombre de membres /2+1 dans le cas présent (r5=8) donc 8/2+1=5
il faut donc imprimer 5 feuilles identique le pb, avec la formules de la macro il imprime 5 * 3 feuilles (pages 1, 2 et 3 )il ne faut pas imprime la page 2 et 3
en fait il me faut imprime sélection de a1 à m37 fois r5/2+1
j'ai remplacer r5 par r8 avec une valeur de 4 pour faire des essais
J'espère que je suis acer clair dans ma description
ps desole pour les fautes
merci, -
Re,
essayez ceci: impression d'une plage de cellules (zone d'impression), rien a voir avec votre formule
Sub test()
With ActiveSheet.PageSetup
.PrintArea = "A1:M37"
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveSheet.PrintOut Copies:=[R2] / 2 + 1, Collate:=True
End Sub -
Bonsoir;
C'est parfait un grand, grand merci
