Impression par zone
Résolu/Fermé
JCB40
Messages postés
2708
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
18 mars 2023
-
15 févr. 2019 à 14:07
JCB40 Messages postés 2708 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 18 mars 2023 - 16 févr. 2019 à 14:32
JCB40 Messages postés 2708 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 18 mars 2023 - 16 févr. 2019 à 14:32
A voir également:
- Impression par zone
- Spouleur d'impression - Guide
- Zone telechargement - Guide
- Téléchargement direct : les bonnes adresses des sites pirates en 2023 - Guide
- L'en-tête du document comporte une information qui n’apparaît pas à l'impression car elle est de couleur blanche. de quelle information s'agit-il ? ✓ - Forum Bureautique
- Cette video n'est pas disponible depuis votre zone geographique ✓ - Forum Internet / Réseaux sociaux
5 réponses
JCB40
Messages postés
2708
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
18 mars 2023
460
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
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
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
2708
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
18 mars 2023
460
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
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
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
2708
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
18 mars 2023
460
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
2708
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
18 mars 2023
460
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