Police

Bonjour le forum

Je reviens vers vous pour un probleme de police, comment augmenter la taille en 18?

Merci

Private Sub Workbook_BeforePrint(Cancel As Boolean)

ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = Range("K49").Text & " " & Range("L49").Text

End With

End Sub

Bonjour

Essaie ce code :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim police&
    police = ActiveSheet.Range("K49").Font.Size
    ActiveSheet.Cells.Font.Size = 20        'A adapter à la taille de police désirée
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = Range("K49").Text & " " & Range("L49").Text
    End With
    ActiveSheet.Cells.Font.Size = police
End Sub

Bye !

Salut gmb

Un big merci pour ta réponse mais il y a a un gros problème

en faite ça ne fonctionne pas comme je veux, dès que j'imprime la zone

d'impression disparaît donc tout le classeur est imprimé.

A la base je dois garder ma zone d'impression car elle ne change jamais

Merci

Rechercher des sujets similaires à "police"