Impression par zone
Résolu/Fermé
JCB40
Messages postés
2978
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
1 février 2025
-
15 févr. 2019 à 14:07
JCB40 Messages postés 2978 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 1 février 2025 - 16 févr. 2019 à 14:32
JCB40 Messages postés 2978 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 1 février 2025 - 16 févr. 2019 à 14:32
A voir également:
- Impression par zone
- Spouleur d'impression - Guide
- Zone telechargement - Accueil - Outils
- Impression livret a5 - Guide
- Appel data zone franche ✓ - Forum Vos droits sur internet
- Que veut dire l'appelation "data"? est-ce que je peux effacer? - Forum Enregistrement / Traitement audio
5 réponses
JCB40
Messages postés
2978
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
1 février 2025
464
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
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
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
2978
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
1 février 2025
464
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
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
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
2978
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
1 février 2025
464
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
2978
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
1 février 2025
464
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