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
- 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
- Javascript imprimer une partie de la page ✓ - Forum - Javascript / DHTML
- Imprimer une page sans ses boutons - Conseils pratiques - Javascript
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.