XL 2019 Impression automatique en vba

[michelf]

Bonjour, je suis en phase finale de la création d'un bulletin scolaire.
J'ai une macro qui me permet de les générer tous en format pdf.
Je voudrais, à la place (ou en plus) pouvoir les imprimer tous... Je pensais utiliser .printout mais je ne sais pas comment l'intégrer dans (ou en +) de la macro ci-dessous.
Quelqu'un peut-il m'aider, merci d'avance


Sub ImpressionDesBulletins()
Dim c As Range
For Each c In Worksheets("Elèves").Range("A3:A24")
Worksheets("Bull").Cells(1, 8).Value = c.Value
' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=
Worksheets("Bull").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Temp\" & c.Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Next

End Sub

 

[michelf]

Voilà, tout fonctionne bien sur mon pc : parfait !!
Hélas, ma belle-fille travaille sur Mac et là, catastrophe au niveau mise en page, tout est chamboulé et quand je travaille pour remettre les sauts de page au bon endroit, la manœuvre est à recommencer à chaque réouverture!!! Qui sait s'il y a un moyen de conserver ma mise en page en passant de PC à Mac ??? Merci d'avance!

 

[kiki29]

Salut, en fouillant sur le site de Ron de Bruin ?
En commençant par qqch comme ceci : Test if it is a Mac or a Windows Machine et y insérer les mep Mac et PC cela dans Workbook_Open()
Accessoirement si Ralentissement macro après impression PDF.
Excel a beau être né sur Mac, restera la défenestration du Mac.

 

[michelf]

Salut, en fouillant sur le site de Ron de Bruin ?
En commençant par qqch comme ceci : Test if it is a Mac or a Windows Machine et y insérer les mep Mac et PC cela dans Workbook_Open()
Accessoirement si Ralentissement macro après impression PDF.
Excel a beau être né sur Mac, restera la défenestration du Mac.

Pas trouvé la réponse mais merci d'avoir essayé; je laisse tomber.

 

[kiki29]

Salut, tu ne trouveras que rarement une solution "toute cuite", as-tu essayé :

En commençant par qqch comme ceci : Test if it is a Mac or a Windows Machine et y insérer les MEP Mac et PC cela dans Workbook_Open() par exemple ?

A voir également : ici

 

[michelf]

Salut, tu ne trouveras que rarement une solution "toute cuite", as-tu essayé :

A voir également : ici

Je ne cherche pas du tout de solution toute cuites je suis juste un "amateur" qui travaille par essais et erreurs et là j'ai, me semble-t-il, atteint mon niveau d'incompétence. Je ne serai pas en mesure de tester : je n'aurai plus accès au mac pendant un certain temps. Merci d'avoir cherché

 

[michelf]

Ok merci pour tout
J'ai testé sur un fichier provisoire, j'espère que la transposition sur le "vrai" fichier se passera bien

Bonne soirée

 

[michelf]

waw merci pour la rapidité, cette ligne que vous proposez devient donc :
Derlig = Range(A & Rows.Count).End(xlUp).Row

Je dois donc écrire
For Each c In Worksheets("Elèves").Derlig = Range(A & Rows.Count).End(xlUp).Row
??