Discussion :

[verredewhisky]

Bonjour,

J'ai cherché dans la faq et sur le forum mais j'ai pas trouvé la réponse à mon problème : je souhaiterais imprimer deux feuilles sur la même page physique.

Pour l'instant mon code met seulement en page toutes les feuilles du classeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub pageImpression()
 
    Dim feuille As Worksheet
    For Each feuille In ThisWorkbook.Worksheets
        feuille.PageSetup.PrintArea = ""
           With feuille.PageSetup
               .LeftMargin = Application.InchesToPoints(5.23622047244095)
               .RightMargin = Application.InchesToPoints(0.708661417322835)
               .TopMargin = Application.InchesToPoints(0.748031496062992)
               .BottomMargin = Application.InchesToPoints(0.748031496062992)
               .HeaderMargin = Application.InchesToPoints(0.31496062992126)
               .FooterMargin = Application.InchesToPoints(0.31496062992126)
               .PrintHeadings = False
               .PrintGridlines = False
               .PrintComments = xlPrintNoComments
               .PrintQuality = 600
               .CenterHorizontally = False
               .CenterVertically = False
               .Orientation = xlLandscape
               .Draft = False
               .PaperSize = xlPaperA3
               .FirstPageNumber = xlAutomatic
               .Order = xlDownThenOver
               .BlackAndWhite = True
               .Zoom = 100
               .PrintErrors = xlPrintErrorsDisplayed
               .OddAndEvenPagesHeaderFooter = False
               .DifferentFirstPageHeaderFooter = False
               .ScaleWithDocHeaderFooter = True
               .AlignMarginsHeaderFooter = True
           End With
 
    Next feuille
 
End Sub

Merci pour votre aide.

[jfontaine]

Bonjour,

A ma connaissance, cela n'est pas possible en code.
Certaines imprimantes acceptent dans leurs propriétés l'impression de plusieurs pages sur une feuille, mais la on est hors des limites de codification VBA (A moins qu'en passsant par les API ...)

[keygen08]

Bonjour

Tu peux contourner le probleme en copiant tes deux feuilles sources sur une nouvelle les une a coté des autres et imprimer ta nouvel feuille avec le parametre qui vont bien

[verredewhisky]

@jfontaine : C'est ce que je pensais. Merci de me l'avoir confirmer.

@keygen08 :Oui c'est pas faux. Je crois que je vais faire ça.

Merci aux deux pour vos réponses