fonction imprimer

[wrndid]

bonjour de quelle facon peut on modifier cette macro pour lancer l impression des 2 feuillle en meme temps
merci

Public Sub Imprimer()
With ActiveSheet.PageSetup
.PrintArea = "$B$1:$AG$34"
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
' End With
' ActiveWindow.SelectedSheets.VPageBreaks



' With ActiveSheet.PageSetup
.PrintArea = "$B$49:$M$82"
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait

.PaperSize = xlPaperA4
.Zoom = 100
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

ActiveWindow.SelectedSheets.PrintOut

End Sub

 

[YANN-56]

Re : fonction imprimer

Bonsoir wrndid, et à ceux qui passeront par là,

Tu peux faire un truc comme ceci:

Public Sub Imprimer()

Dim FEUILLE As Worksheet

   For Each FEUILLE In ThisWorkbook.Worksheets 
    With ActiveSheet.PageSetup
   ……………………. Ta mise en page.
    End with
          FEUILLE.PrintOut
   Next

End Sub

Amicalement.

Yann