mise en page ou programmation du bouton imprimer

salut,

utilise l'évenement beforePrint et écris ta mise en page dedans.
le mieux est que tu utilise la création des macros automatique ( outil->macro->nouvelle macro, ensuite excel interprète tout ce que tu fais en macro donc fais la mise en page de ton classeur )
et ensuite tu recopie le code qu'il t'a créer dans le thisworkbook.
ça te donnera un truc du style

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&F"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "Page &P"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub

Merci Arnaud pour ta reponse et tes conseils, je vais de ce pas tester tout ça et je te tiendrai au courant .

merci encore

L'INCONNU

Bonjour à tous,

super Arnaud, ça marche trés bien .

maintenant je vais essayer de faire une macro en xla car apparament ça s'ouvre en meme temps que xl .

merci encore pour ce coup de pousse


L'INCONNU

impression

Private Sub imprimer_Click()
On Error GoTo err_imprimer_click

DoCmd.PrintOut

exit_imprimer_click:
Exit Sub

err_imprimer_click:
MsgBox Err.Description
Resume exit_imprimer_click
End Sub

CECI EST LE CODE DE MA MACRO POUR IMPRIMER MA PAGE EXCEL MAIS QUAND JE LA LANCE IL ME METS UN MSGBOX EN ME DISANT "OBJET REQUIS"
ET IL ME METS LA MEME CHOSE CONCERNANT LE CODE D'ENREGISTREMENT QUI SE TROUVE EN DESSOUS, J'ESPÉRE QAUE QUELQU'UN POURRAS M'AIDER?

Private Sub enregistrer_Click()
On Error GoTo Err_enregistrer_click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_enregistrer_click:
Exit Sub

Err_enregistrer_click:
MsgBox Err.Description
Resume Exit_enregistrer_click

End Sub