Macro inprimer
Résolu
Dandy_danbe
Messages postés
108
Date d'inscription
Statut
Membre
Dernière intervention
-
Dandy_danbe Messages postés 108 Date d'inscription Statut Membre Dernière intervention -
Dandy_danbe Messages postés 108 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
A voir également:
- Macro inprimer
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
4 réponses
Bonjour,
il imprime 3 page donc 2 page de trop Quelle valeur a [R2] ou r5 suivant ce que vous ecrivez ???????
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,
[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
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