macro imprimer

[chinel]

Salut tout le monde !

je cherche une macro pour imprimer plusieurs feuilles sans les voir

style : sheets("A").range("A1:B2").select
selection.print
sheets("B").range("A1:B2").select
selection.print
sheets("C").range("A1:B2").select
selection.print
sheets("D").range("A1:B2").select
selection.print


merci de votre aide !

 

[gfortin9]

Re : macro imprimer

Sheets("A").Range("A1:B2").PrintOut Copies:=1, Collate:=True
Sheets("B").Range("A1:B2").PrintOut Copies:=1, Collate:=True
Sheets("C").Range("A1:B2").PrintOut Copies:=1, Collate:=True
Sheets("D").Range("A1:B2").PrintOut Copies:=1, Collate:=True

Quelque chose comme cela ... 😉

.

 

[CBernardT]

Re : macro imprimer

Bonsoir Chinel et Gfortin9,

Deux macros pour le prix d'une 🙂🙂
A placer dans un module.

Option Explicit
Public Fiche As Worksheet, Zone As String
Sub Impression()
' Première feuille
Set Fiche = Sheets("A")
With Fiche
Zone = .Range("A1:B2").Address
End With
ImpressionFiche
' Seconde feuille
Set Fiche = Sheets("B")
With Fiche
Zone = .Range("A1:B2").Address
End With
ImpressionFiche

'.............. On peut ajouter autant de feuilles que souhaité
' Dernière feuille
Set Fiche = Sheets("D")
With Fiche
Zone = .Range("A1:B2").Address
End With
ImpressionFiche
End Sub

Sub ImpressionFiche()
Application.ScreenUpdating = False
' Report du nom de la feuille et de la zone d'impression
With Fiche
With .PageSetup
.PrintArea = Zone
.PrintTitleRows = ""
.PrintTitleColumns = ""
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.2)
.RightMargin = Application.InchesToPoints(0.2)
.TopMargin = Application.InchesToPoints(0.2)
.BottomMargin = Application.InchesToPoints(0.2)
.HeaderMargin = Application.InchesToPoints(0.2)
.FooterMargin = Application.InchesToPoints(0.2)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
.PrintOut Copies:=1, Collate:=True ' Impression
End With
End Sub

Cordialement

Bernard

 

[chinel]

Re : macro imprimer

Merci mais cela ne fonctionne pas car débogage au niveau de ImpressionFiche


Merci

 

[CBernardT]

Re : macro imprimer

Bonjour Chinel et le forum,

C'est certainement le changement de système d'exploitation et les caractéristiques d'impression qui bloque.

Réalise un enregistrement automatique d'une impression de feuille et corrige le code dans la macro ImpressionFiche.

Cordialement

Bernard