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

[pancaspremium]

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

 

[JCGL]

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 :

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

 

[pancaspremium]

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

 

[JCGL]

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

Bonjour à tous,

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

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

A + à tous

 

[pancaspremium]

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