Macro zone d'impression sur plusieurs onglets

Bonjour la team,

J'ai un fichier Excel comprenant une vingtaine d'onglets comportant des TCD

A l'aide d'une macro, j'aimerais pouvoir définir une zone d'impression fixe pour tous ces onglets portant sur les colonnes [A-O] sur les lignes [1à100].

Merci par avance pour votre aide

Bonjour,

Il y a plusieurs solutions..., je te propose de sélectionner toi même les zones d'impressions onglet par onglet (3min max. pour 20 onglets).

Surement faisable en VBA mais je ne suis pas capable de vous répondre.

Bonjour,

Quelque chose comme ceci ...

Sub Macro1()
Dim Sh As Worksheet

For Each Sh In Worksheets
    Sh.PageSetup.PrintArea = "$A$1:$O$100"
Next Sh
End Sub

ric

Impeccable merci beaucoup !

Bonjour à tous je viens exposer mon projet un similaire au sujet

je disqpose dans mon classeur deux feuille que je voudrais imprimer en une seule. Pour ce faire j'ai nommer des zone d'impression

zone d'impression 1 nommée "METEO"

je voudrais l’imprimer en pdf en en portrait

Zone d'impression 2 nommée "Analyse"

cette zone est en effet un tableau que je voudrais imprimer à la suite de la première zone d'impression en PDF mais en "Paysage". Aussi le tableau étant petit serait t'il possible qu'il prennent tout les bord de la feuille en Paysage (c'est à dire zoomer au maximum sur la page) pour une meilleure lecture.

capture

Je travaillais sur le code ci dessous

Sub Print_Janvier()
    ActiveSheet.PageSetup.PrintArea = "METEO" 'comment ajouter la seconde zone apres la première ici?
    With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .RightFooter = "&8&P/&N" '<-- numéro de page / nombre de pages (taille 8)
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .PaperSize = xlPaperA3
        .Zoom = False
    End With
    ActiveWindow.SelectedSheets.PrintPreview
End Sub
Rechercher des sujets similaires à "macro zone impression onglets"