Macro inprimer
Résolu/Fermé
Dandy_danbe
Messages postés
108
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
11 avril 2022
-
2 mai 2014 à 09:58
Dandy_danbe Messages postés 108 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 11 avril 2022 - 3 mai 2014 à 17:34
Dandy_danbe Messages postés 108 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 11 avril 2022 - 3 mai 2014 à 17:34
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é
- Macro word - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Logiciel macro - Télécharger - Organisation
4 réponses
f894009
Messages postés
17268
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 mars 2025
1 713
3 mai 2014 à 08:55
3 mai 2014 à 08:55
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 ???????
Dandy_danbe
Messages postés
108
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
11 avril 2022
Modifié par Dandy_danbe le 3/05/2014 à 10:14
Modifié par Dandy_danbe le 3/05/2014 à 10:14
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,
f894009
Messages postés
17268
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 mars 2025
1 713
3 mai 2014 à 17:06
3 mai 2014 à 17:06
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
Dandy_danbe
Messages postés
108
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
11 avril 2022
3 mai 2014 à 17:34
3 mai 2014 à 17:34
Bonsoir;
C'est parfait un grand, grand merci
C'est parfait un grand, grand merci