CENTRER UN TEXT ET ENVOYER À L'IMPRIMANTE
cs_PROGRAMMIX
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
-
13 avril 2004 à 21:04
cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 - 13 avril 2004 à 21:04
cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 - 13 avril 2004 à 21:04
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/21903-centrer-un-text-et-envoyer-a-l-imprimante
https://codes-sources.commentcamarche.net/source/21903-centrer-un-text-et-envoyer-a-l-imprimante
13 avril 2004 à 21:04
Private Sub CmdPrint_Click()
Dim strPhrase As String
strPhrase = "Ma phrase est centrée horizontalement sur la page"
Printer.Font.Name = "Times New Roman"
Printer.Font.Size = 12
Printer.CurrentX = (Printer.ScaleWidth - Printer.TextWidth(strPhrase))/2
Printer.Print strPhrase
Printer.EndDoc
End Sub