Impression par zone
Résolu/Fermé
JCB40
Messages postés
2878
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 avril 2024
-
15 févr. 2019 à 14:07
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 16 févr. 2019 à 14:32
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 16 févr. 2019 à 14:32
A voir également:
- Impression par zone
- Spouleur d'impression - Guide
- Zone telechargement - Guide
- Impression ecran windows - Guide
- Fatima a lancé l'impression de plusieurs documents, mais elle se rend compte qu'il n'y a presque plus d'encre dans l'imprimante. elle décide alors de n'imprimer que son cv, en un seul exemplaire. faites les opérations nécessaires dans le gestionnaire d'impression ci-dessous. ✓ - Forum Word
- Impression livret word - Guide
5 réponses
JCB40
Messages postés
2878
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 avril 2024
461
15 févr. 2019 à 15:43
15 févr. 2019 à 15:43
Re Bonjour
Pas de solution à me proposer?
Merci
Pas de solution à me proposer?
Merci
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
15 févr. 2019 à 17:38
15 févr. 2019 à 17:38
Bonjour,
une manière de faire en vba:
https://www.cjoint.com/c/IBpqKWlmlgQ
une manière de faire en vba:
https://www.cjoint.com/c/IBpqKWlmlgQ
JCB40
Messages postés
2878
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 avril 2024
461
15 févr. 2019 à 19:15
15 févr. 2019 à 19:15
Bonjour Le Pivert
Merci pour ta réponse
Celle ci ne correspond pas vraiment à ce que je cherche a savoir:
Il me faudrait une macro que j'affecterai à un bouton pour imprimer sur toute la largeur d'une feuille A4 au format portrait la plage B8:E50.
Ensuite je ferai de même pour les autres plages avec d'autres boutons.Une feuille par plage.
J'espère avoir été assez explicite.
Cordialement
Merci pour ta réponse
Celle ci ne correspond pas vraiment à ce que je cherche a savoir:
Il me faudrait une macro que j'affecterai à un bouton pour imprimer sur toute la largeur d'une feuille A4 au format portrait la plage B8:E50.
Ensuite je ferai de même pour les autres plages avec d'autres boutons.Une feuille par plage.
J'espère avoir été assez explicite.
Cordialement
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
15 févr. 2019 à 19:59
15 févr. 2019 à 19:59
Si j'ai bien compris, tu veux un seul PDF mais avec 4 feuilles?
JCB40
Messages postés
2878
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 avril 2024
461
15 févr. 2019 à 21:13
15 févr. 2019 à 21:13
Ce que je cherche c'est une macro affectée a un bouton pour imprimer B8:E50
mais que cette impression ce fasse sur une plein page.
Crdlt
mais que cette impression ce fasse sur une plein page.
Crdlt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
JCB40
Messages postés
2878
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 avril 2024
461
16 févr. 2019 à 14:32
16 févr. 2019 à 14:32
Bonjour
Je suis parvenu à faire ce que je voulais avec cette macro adapté à mes besoins
Sub miseEnPageAvantImpression()
With Sheets("Doublette").PageSetup
'Définit la zone d'impression pour une plage de cellules.
.PrintArea = "$B$8:$E$22"
.PaperSize = xlPaperA4
.Zoom = 300
'Mise en page: définit les marges
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
End With
With Sheets("Doublette")
.PageSetup.CenterHorizontally = True
.PageSetup.CenterVertically = True
.PrintOut
End With
Sheets("Doublette").PrintPreview
End Sub
Cordialement
Je suis parvenu à faire ce que je voulais avec cette macro adapté à mes besoins
Sub miseEnPageAvantImpression()
With Sheets("Doublette").PageSetup
'Définit la zone d'impression pour une plage de cellules.
.PrintArea = "$B$8:$E$22"
.PaperSize = xlPaperA4
.Zoom = 300
'Mise en page: définit les marges
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
End With
With Sheets("Doublette")
.PageSetup.CenterHorizontally = True
.PageSetup.CenterVertically = True
.PrintOut
End With
Sheets("Doublette").PrintPreview
End Sub
Cordialement
