Impréssion avec zone

[denjo]

Bonjour à tous

comment alleger le code qui suit? je colle les donner sur une nvl feuille pour la mise en forme, mais doit y avoir une soluce plus simple?

merci pour le coup de mains

Private Sub CmdRepasMd_Click()
Worksheets("feuil3").Select
Range("a8:a3602,c8:c3602,d8:d3602,h8:h3602,ak8:ax3602").Select
Range("a8").Activate
Selection.Copy
Sheets("tempRp").Select
Range("a8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
Selection.Clear
End Sub


@ +

 

[Valérie]

Salut le forum et denjo,

Si j'ai bien compris ton soucis, tu ne veux pas imprimer certaines colonnes. Je te propose donc de les masquer avant de les imprimer puis les ré-afficher

Range("B:B,E:G,I:AJ").EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
Range("B:B,E:G,I:AJ").EntireColumn.Hidden = False

Si je n'ai pas compris, n'hésite pas à le faire savoir!!

@+
Valérie