Bonjour le forum
Je reviens vers vous pour un probleme de taille de police, dans la mise en page
J'ai tout essayé mais en vain, un peu d'aide de votre part serait la bienvenue
Merci
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
"leftHeader = fond.size = 18
.LeftHeader = Range("K49").Text
End with
End Sub
Je reviens vers vous pour un probleme de taille de police, dans la mise en page
J'ai tout essayé mais en vain, un peu d'aide de votre part serait la bienvenue
Merci
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
"leftHeader = fond.size = 18
.LeftHeader = Range("K49").Text
End with
End Sub