mise en page ou programmation du bouton imprimer

[L'INCONNU]

Bonjour à toutes et à tous .

je suis à la recherche de matière grise car moi je suis arrivé au bout de la mienne .

je voudrai, si c'est possible programmer le bouton d'impression ou faire une mise en page qui ne puisse être modifiée ( fichier/mise en page/en tête/pied de page)

le but étant que tous les users qui impriment sorte des documents avec la même en tête (non modifiable) .

si cela est possible je vous remercie par avance pour ce petit coup de pousse .

L'INCONNU

 

[Arnaud]

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

 

[L'INCONNU]

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

 

[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

 

[jonathan]

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