procédure d'impression

[PGPC]

Bonjour le Forum de ce dimanche

J'aurai besoin de votre aide pour que vous m'aidiez a modifier cette procédure d'impression qu'un sympathique Xldien m'a rédigé
Malheureusement pour moi , et tant mieux pour lui ,il est parti en vacances (Bonnes vacances!!il les mérite )

Je n'y comprend rien du tout dans les converstions
si dans la foulée vous pouviez m'expliquer comment on faiT....si par exemple je trouvais que 2,5 cm c'est encore un peu juste et que je souhaiterais laisser plutôt 3 cm

Il faut que je laisse une marge de 2.5 cm du haut et rien pour l'en tête =0cm
Je pense qu'il doit falloir également modifier la marge du bas
pour que toute l'impression reste dans la feuille A4



.RightHeader = "&""Times New Roman,Gras""&16" & Chr(10) & "Mois de :Janvier"
.CenterFooter = "Page &P de &N"
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.511811023622047)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintGridlines = True
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.FirstPageNumber = 1
.Order = xlDownThenOver
.BlackAndWhite = True
.FitToPagesWide = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveSheet.PrintOut Copies:=1, Collate:=True
Range([C1000].End(xlUp).Offset(1, 0), [C149]).EntireRow.Hidden = False
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.Protect
Range("B3").Select

Application.ScreenUpdating = True
End Sub


Voilà merci et bonne journée à tous

Cordialement

 

[PGPC]

REbonjour , j'ai oublie s'i etait possible également , je souhaiterai si c'etait possible que ce soit le nom de l'onglet de la feuille active qui s'affiche au lieu de janvier

.RightHeader = "&""Times New Roman,Gras""&16" & Chr(10) & "Mois de :Janvier"


Mes onlets s'appellent
janvier_x

fevrier_ x etc...

 

[PGPC]

Rebonjour le Forum ,

Voilà j’ai refait un exemle plus simple avec une piéce jointe et le code a modifier inclus

Jai donc mes feuilles avaec les mois s’y réferant ,

Je voudrai par exemple lorsque je suis sur la feuille Février_ Maman que les feuilles qui vont s’imprimer
S’imprime avec une marge de 2.5 cm de haut( j’ai du mal pour la conversion ) de facon a ce que l’entête soit bien imprimé et que dans le coin haut droit apparraisse le nom du mois de la feuille ouverte en cours ou le nom de l’onglet

Actuellement ,il n’apparaît que le mois de janvier car c’est le mois de janvier qui est écrit dans le code

Soit Mars_Papa
OU
Janvier_Moi etc…

Le code est écrit , il faudrait juste que quelqu’un m’apporte quelques modification quelques modifications

Jespère que c’est claire ??

Merci pour votre aide

Cordialement