Insérer nom utilisateur à l'impression

SergiO

XLDnaute Accro

• 25 Mai 2007

• #2

Re : Insérer nom utilisateur à l'impression

Bonjour Jonabenn,

Tu mets le code suivant dans l'objet This Workbook du VBA

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = Application.UserName
End Sub

@+

 

Vote positif 0 Vote négatif

J

jonabenn02

XLDnaute Nouveau

• 25 Mai 2007

• #3

Re : Insérer nom utilisateur à l'impression

Bonjour Sergio,

Nickel mais...
J'ai un bouton relié à une macro d'impression et elle ne m'imprime pas ces informations.
Si je fais fais imprimer manuellement ou "Ctrl+P" L'information s'imprime correctement.
Une petite idée?

Merci et bonne journée.

Jonabenn

 

Vote positif 0 Vote négatif

Startus

XLDnaute Occasionnel

• 30 Mai 2007

• #4

Re : Insérer nom utilisateur à l'impression

Salut à tous,

Tu mets dans le code de ton bouton :

Private Sub CommandButton1_Click()
ActiveSheet.PrintOut PageSetup.RightFooter = Application.UserName
End Sub

Et ensuite tu mets dans ThisWorkbook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

Cordialement...

 

Vote positif 0 Vote négatif

J

jonabenn02

XLDnaute Nouveau

• 8 Juin 2007

• #5

Re : Insérer nom utilisateur à l'impression

Bonjour à tous

Désolé pour le retard mais j'étais en train de déménager!

Startus si je mets ton code comme tu dis cela ne marche pas il me lance la commande de débogage sur "ActiveSheet.PrintOut PageSetup.RightFooter = Application.UserName" et si je laisse "cancel = true" Eh bien cela n'imprime pas. Là je suis un peu paumé.

Merci de ton aide

Jonabenn

 

Vote positif 0 Vote négatif