macro modification taille police avant impression

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

coucoukeke

XLDnaute Nouveau
Bonjour à tous,

j'ai une macro qui me permet de récupérer une sélection de céllules dans une colonne et de lancer directement une impression.

la voici:

Sub ImpressionSelection()
'
' Macro5 Macro
'

'
Range("B1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$B$13").AutoFilter Field:=2, Criteria1:="<>"
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$B$13"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
ActiveSheet.Range("$A$1:$B$13").AutoFilter Field:=2
Range("B1").Select
Selection.AutoFilter
End Sub



ma question est la suivante: je souhaiterai modifier cette macro pour qu'elle modifie la taille de la police avant l'impression. Je ne souhaite pas changer la taille de la police dans Excel mais uniquement lors de l'impression. Je souhaite donc le faire dans ma macro qui lance l'impression.

d'avance merci à tous pour votre aide
David
 
Re : macro modification taille police avant impression

bonjour à tous,

j'ai trouvé une solution "internmédiaire".

comme je voulais que le texte imprimé soit plus petit que le texte affiché à l'écran, j'ai tout simplement choisi la policie qui me convenait pour l'impression et j'ai en suite fait un zoom sur la feuille de calcul 😉

j'ai contourné le problème mais au mois ça me dépanne bien !!

mais si vous avez la solution pour la macro, je suis toujours intéressé !!!

@+
 
Re : macro modification taille police avant impression

Bonjour,

Si dans Excel toute la zone d'impression a une police de taille 10 :

Code:
ActiveSheet.PageSetup.PrintArea = "$B$1:$B$13"
Range("$B$1:$B$13").Font.Size = [COLOR="Red"]8[/COLOR]
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Range("$B$1:$B$13").Font.Size = [COLOR="red"]10[/COLOR]

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
163
Réponses
10
Affichages
547
Réponses
4
Affichages
243
Réponses
1
Affichages
221
Retour