XL 2016 Imprimer deux zones d'impression sur une seule feuille

Bidexcel · 10 Juin 2020

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.

Je travaillais sur le code ci dessous

VB:

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

Phil69970 · 16 Juin 2020

Bonjour Bidexcel, Sylvanu, Patricktoulon, Kiki29, le forum

Un essai :

Code:

Sub BoutonPrintPDF()

Application.ScreenUpdating = False
'Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Dim Sh3 As Worksheet

'Set Sh1 = Feuil1                'Codename de la feuille "Menu"
Set Sh2 = Feuil1                'A adapter en fonction du codename de la feuille "Meteo"
Set Sh3 = Feuil2                'A adapter en fonction du codename de la feuille "Analyse"

With Sh2.PageSetup
    .PrintArea = "A4:X50"       'Zone d'impression à adapter de la feuille Meteo
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    'Réglage des marges
    .LeftMargin = Application.InchesToPoints(0.1)   'Marge gauche
    .RightMargin =...

sylvanu · 13 Juin 2020

Bonjour BidExcel,
Au vu du nombre de réponses il ne doit guère y avoir de solution à votre problème.
Comme vous avez l'air de bien manier le VBA, une autre solution :
1- Créer une feuille
2- Importer les données, les mettre en forme
3- Imprimer cette feuille en pdf
4- Supprimer cette feuille.
L'avantage est que vous avez tout loisir de mettre sous la forme que vous voulez et importer que les données utiles donc dans une taille lisible.

kiki29 · 13 Juin 2020

Salut, à voir/tester
Impression de plusieurs plages non contiguës dans un PDF
Une autre approche avec une fusion via PDFCreator 1.7.3
Impression de plusieurs plages non contiguës dans un PDF (2)

sylvanu · 13 Juin 2020

Bonjour,
Mais est il possible d'imprimer une zone en mode portrait et une zone en mode paysage ?

patricktoulon · 13 Juin 2020

sylvanu à dit:
Bonjour,
Mais est il possible d'imprimer une zone en mode portrait et une zone en mode paysage ?

bonsoir sylvanu non je crois pas en tout cas pas sur la même feuille

sylvanu · 13 Juin 2020

Re,
D'où l'idée de créer de toute pièce une feuille et y importer les données, c'est ce qui se rapprochera le plus du but visé.

Bidexcel · 16 Juin 2020

kiki29 à dit:
Salut, à voir/tester
Impression de plusieurs plages non contiguës dans un PDF
Une autre approche avec une fusion via PDFCreator 1.7.3
Impression de plusieurs plages non contiguës dans un PDF (2)

Bonjour kiki29 merci bien pour ta solution
Jai testé le code en replacer les noms et cellules du fichier mais mon problème est qu'il imprime toute les pages dans la même feuilles alors que je veux l'impression page par page

kiki29 · 16 Juin 2020

Salut, avec des demandes construites à la Ribéry, difficile de te comprendre, surtout que ça a évolué ...

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.

Jai testé le code en replacer les noms et cellules du fichier mais mon problème est qu'il imprime toute les pages dans la même feuilles alors que je veux l'impression page par page

Un échantillon ( sans données confidentielles ) de ton fichier pdf serait utile. Sinon comme je dis toujours : pas de bras pas de chocolat ...

Phil69970 · 16 Juin 2020

Bonjour Bidexcel, Sylvanu, Patricktoulon, Kiki29, le forum

Un essai :

Code:

Sub BoutonPrintPDF()

Application.ScreenUpdating = False
'Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Dim Sh3 As Worksheet

'Set Sh1 = Feuil1                'Codename de la feuille "Menu"
Set Sh2 = Feuil1                'A adapter en fonction du codename de la feuille "Meteo"
Set Sh3 = Feuil2                'A adapter en fonction du codename de la feuille "Analyse"

With Sh2.PageSetup
    .PrintArea = "A4:X50"       'Zone d'impression à adapter de la feuille Meteo
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    'Réglage des marges
    .LeftMargin = Application.InchesToPoints(0.1)   'Marge gauche
    .RightMargin = Application.InchesToPoints(0.1)  'Marge droite
    .TopMargin = Application.InchesToPoints(0.1)    'Marge haut de page
    .BottomMargin = Application.InchesToPoints(0.1) 'Marge bas de page
'    .Orientation = xlLandscape                      'Paysage
    .Orientation = xlPortrait                       'Portrait
End With

With Sh3.PageSetup
    .PrintArea = "A2:M30"       'Zone d'impression à adapter de la feuille Analyse
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    'Réglage des marges
    .LeftMargin = Application.InchesToPoints(0.1)   'Marge gauche
    .RightMargin = Application.InchesToPoints(0.1)  'Marge droite
    .TopMargin = Application.InchesToPoints(0.1)    'Marge haut de page
    .BottomMargin = Application.InchesToPoints(0.1) 'Marge bas de page
    .Orientation = xlLandscape                      'Paysage
    '.Orientation = xlPortrait                       'Portrait
End With

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Meteo_Analyse.pdf"

Set Sh2 = Nothing               'Decharge la feuille 2
Set Sh3 = Nothing               'Decharge la feuille 3

Application.ScreenUpdating = True

End Sub

Cordialement

Bidexcel · 17 Juin 2020

Bonjour Phil69970
merci beaucoup pour ton code ça marche

XL 2016 Imprimer deux zones d'impression sur une seule feuille

Bidexcel

XLDnaute Nouveau

Phil69970

sylvanu

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Bidexcel

XLDnaute Nouveau

kiki29

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Bidexcel

XLDnaute Nouveau

Discussions similaires