Bonjour,
Il m'arrive d'imprimer des planches d'étiquettes uniques (adresses récurrentes de destinataires) et je souhaiterais automatiser l'opération sans pour autant passer par un publipostage. Mon niveau VBA est actuellement celui de la lecture de documentations pour essayer d'en comprendre la logique et les termes utilisés par les développeurs.
Quant à mon problème j'arrive bien à faire ma planche d'étiquette avec la macro suivante (inspirée par le biais de l'"enregistrement d'un macro"):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub Etiquette_Perso() ' ' Etiquette_perso Macro Application.MailingLabel.DefaultPrintBarCode = False Application.MailingLabel.PrintOutByID LabelID:="1", Address:="xxx" & vbCrLf & "xxxx" & vbCrLf & "xxxxxxxx" & vbCrLf & "xxxxxx" & vbCrLf & "xxxxxx" & vbCrLf & "xxxxxxxx", _ ExtractAddress:=False, LaserTray:=wdPrinterManualFeed, SingleLabel:=False _ , PrintEPostageLabel:=False, Vertical:=False End Sub
Je ne trouve cependant pas le moyen de changer la mise en forme (gras et taille des caractères) des textes. J'ai bien vu sur les forums qu'il y a moyen de mettre en gras du texte entre parenthèse, un paragraphe... mais je n'ai pas trouvé une référence à la mise en forme dans ce contexte si ce n'est sur un site anglophone, proposant plutôt de créer un modèle de document Word au format de la planche, aux marges des étiquettes pour accéder plus facilement aux ressources des styles de caractères. Avant de me lancer dans une telle démarche, pouvez vous me confirmer ou m'infimer que je ne pourrais pas aller plus loin avec la macro ci-dessus ?
Par avance merci
Partager