Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 168 fois - Téléchargée 57 fois
'Déclaration des variables Dim Titre Dim Hwidth 'Définition de la police et de sa taille Printer.FontName = "Courier new" Printer.FontSize = 14 'Déclaration de votre titre (remplacez "TITRE DE LA PAGE" par votre titre) Titre = "TITRE DE LA PAGE" 'Calcule la largeur de la moitié de votre titre, pour calculer le milieu de la page Hwidth = Printer.TextWidth(Titre) / 2 Printer.Print "" Printer.Print "" 'Imprime votre titre sur la page (en fait, le titre est au milieu car le programme prend le milieu de la page, enlève la moitié du titre -avec la variable hwidth- et fait partir le titre d'ici : donc, le titre paraît être au milieu) Printer.CurrentX = Printer.ScaleWidth / 2 - Hwidth: Printer.FontSize = 14: Printer.Print Titre
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.