Imprimer un titre au milieu d'une page
Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 258 fois - Téléchargée 59 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
- Imprimer un titre au milieu d'une page
- Imprimer les titres sauf pour la dernière page ✓ - Forum - Visual Basic 6
- Imprimer sans l'entete et bas de page. ✓ - Forum - ASP / ASP.NET
- Urgent Datareport, imprimer des dizaine des facture (facture par page) sans inte ✓ - Forum - Visual Basic
- Imprimer une page sans ses boutons - Conseils pratiques - Javascript
- Visual Basic / VB.NET : Mettre le titre du du formulaire au milieu de la bar de titre - CodeS Source - Guide
20 août 2002 à 12:56
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.