Private Sub CommandButton1_Click()
Application.ActivePrinter = "\\LESCHEVALIERS\HP Officejet Pro 8600 sur Ne05:" 'choix de l imprimante
With ActiveSheet.PageSetup
.LeftHeader = "Fichier: " & "&F" & Chr(10) & "Onglet: " & "&A" 'contenu en tete gauche
.RightHeader = "&D - &T" 'contenu en tete droite
End With
'Impression de la 1ère page en paysage
'--------------------------------------
Range("A1:J37").Select 'définition de la plage de cellules constituant la 1ère page
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$37" 'définition de la zone d'impression
'Worksheets(1).ResetAllPageBreaks
ActiveSheet.PageSetup.Orientation = xlLandscape 'mise au format paysage
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille
'ActiveWindow.ResetAllPageBreaks
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression
Range("A1").Select
End Sub