Imprimer un titre au milieu d'une page

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 190 fois - Téléchargée 57 fois

Contenu du snippet


Source / Exemple :


'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

A voir également

Ajouter un commentaire Commentaire
Messages postés
6728
Date d'inscription
mardi 14 mai 2002
Statut
Contributeur
Dernière intervention
11 janvier 2016

après un essai (rapide certes...) j'ai bien réussi mais je me suis bouffé toute la mémoire...

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.