Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

affichage & mise en page du résultat d'un tbc

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

pancaspremium

XLDnaute Occasionnel
bjr
j'ai créé un tableau croisé dynamique qui en double cliquant dans une donnée souhaitée ouvre
une nouvelle feuille et j'essaie de trouver moyen que si l'on veut IMPRIMER cette
feuille, la mise en page soit à PAYSAGE + AJUSTER sur 1 page ..??

est-ce possible ?
merci pour votre aide
paulo
 
Trier par date Trier par votes
Re : affichage & mise en page du résultat d'un tbc

Bonjour à tous,

Peux-tu essayer avec ceci dans le module ThiWorkBook accessible par Alt F11 :

VB: 
Option Explicit


Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.393700787401575)
        .RightMargin = Application.InchesToPoints(0.393700787401575)
        .TopMargin = Application.InchesToPoints(0.393700787401575)
        .BottomMargin = Application.InchesToPoints(0.393700787401575)
        .HeaderMargin = Application.InchesToPoints(0.393700787401575)
        .FooterMargin = Application.InchesToPoints(0.393700787401575)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With
End Sub

A + à tous
 
Vote positif 0 Vote négatif
Re : affichage & mise en page du résultat d'un tbc

bjr JCGL

déjà un grand merci pour ton retour RAPIDE

ta proposition marche mais...j'ai le sablier qui tourne pendant au moins 20 secondes avant de pouvoir
visionner la mise en page...càd en cliquant sur la loupe après avoir sélectionné des données à imprimer
dans le tbc suis sous w7
 
Vote positif 0 Vote négatif
Re : affichage & mise en page du résultat d'un tbc

Bonjour à tous,

Ceci devrait être plus rapide et correspond strictement à ta demande :

VB: 
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape    
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
End Sub

A + à tous
 
Vote positif 0 Vote négatif
Re : affichage & mise en page du résultat d'un tbc

merci JCGL

je crois que je vais garder la version 20 secondes , car l'affichage ne bouge pas alors que j'ai l'ai remplacé par ta deuxième proposition

merci pour ton aide
paulo
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
703
job75
S
  • Question Question
Autres Basculer l'affichage d'un calendrier Excel en mode miniature, sur bureau 'PC'
Réponses
3
Affichages
525
Slavko.R
S
L
  • Question Question
Microsoft 365 figer la mise en forme d'un graphe
Réponses
3
Affichages
782
Jean-Eric
  • Question Question
Microsoft 365 Mise en page d'un planning
Réponses
4
Affichages
996
good57
Z
  • Question Question
XL 2019 Rapatriement de donnée d'un onglet vers un autre onglet en fonction d'une valeur identique
Réponses
2
Affichages
2 K
Zlataa21
Z
L
  • Question Question
XL 2013 Impression en page figée
Réponses
2
Affichages
1 K
Lucie61
L
N
  • Résolu(e)
XL pour MAC Refonte complete d'un fichier, besoin d'idées
8 9 10
Réponses
147
Affichages
14 K
Staple1600
N
  • Question Question
XL 2016 Automatiser la mise en page d'un planning de travail sous excel (par VBA ?)
2
Réponses
17
Affichages
2 K
Pounet95
P
S
  • Question Question
Autres [Excel 2007] Imprimer 2 feuilles de calcul sur une même page
Réponses
0
Affichages
1 K
Steph@ne
S
  • Question Question
XL 2013 Mise en page et choix colonnes à imprimer
Réponses
4
Affichages
904
Dudesson
M
  • Question Question
Perte du nom des séries d'un graphique créé par macro à la réouverture du fichier
Réponses
0
Affichages
814
Maxoupilami
M
  • Question Question
Verouillage de mise en page
Réponses
1
Affichages
908
djidji59430
J
  • Question Question
XL 2010 Mise en page / impression d'un tableau vers la droite
Réponses
2
Affichages
1 K
chris
S
  • Question Question
XL 2013 Faire mise en page de chiffres excel à word
Réponses
1
Affichages
838
Denis132
D
C
  • Question Question
XL 2010 Créer une numérotation à partir d'un numéro et mise en page avec les résultats
Réponses
4
Affichages
1 K
Robert
  • Question Question
XL 2013 Imprimer en couleur toutes les feuilles d'un classeur
Réponses
4
Affichages
4 K
Triflophil
E
  • Question Question
Lecture répertoire et dossiers, mise en forme en pavé et nx fichiers
Réponses
2
Affichages
1 K
erics83
E
V
  • Question Question
Mise en page automatique a partir d'une liste deroulante
Réponses
5
Affichages
1 K
Vinc44200
V
B
  • Question Question
Macro pour imprimer 3 zones mais en différent format
Réponses
8
Affichages
1 K
Beuzzzman
B
R
  • Question Question
Mise en page : Imprimer 2 pages sur une feuille
Réponses
2
Affichages
2 K
RemiP
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…