AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 08 01:40:30
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

IMPRIMER UN TITRE AU MILIEU D'UNE PAGE


Information sur la source

Catégorie :Imprimante Classé sous : impression, page, centrer Niveau : Débutant Date de création : 19/06/2001 Vu : 4 094
Auteur : rodo22 Site perso
Ecrire un message privé
Note :
8,8 / 10 - par 5 personnes
8,80 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

Description


 

Source

  • '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 
'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

Commentaires et avis

signaler à un administrateur
Commentaire de Dalida le 20/08/2002 12:56:51

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

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

SOS problémes d'impression [ par pascal ] jèimprime un formulaire avec printer, mais, dans sa dimension maxi, il ne remplit que la moitié de page imprimée.Que puis je faire?C'est pour faire im Impression de page HTML [ par Dieu ] J'ai un petit probéme pour imprimer une page Web avec mon navigateur perso fait en VB (Pour l'aide de mon logiciel)Qu'elle est la procedure a suivre p Impression d'une page en Word [ par anspauldou ] Salut J'ai de serieux probleme avec Word de Office 97. Chaque fois que je lance une impression j'ai le compagnon office qui apparait. Et cela ce produ centrer une image a l'impression [ par fabrice88 ] bonjour,comment centrer une image a l'impression horizontalement et verticalement PrintForm et impression A4 [ par NAIN ] Bonjour,J'ai un gros souci!!!! Je dois imprimer une feuille au format A4 avec un graphique et diverses informations avec une mise en page tres stricte option d'impression [ par vilain21 ] Comment faire pour faire apparaitre l'option imprimer de la page .. à la page .. avec showprinter?Je verifie juste que mon fichier existe et rien d'au Erreur d'impression [ par vaneri ] bonjour à tous ceux qui liront ce texte...J'ai quelques problèmes lors de l'impression... En fait j'essaye de redéfinir les dimensions de la page que Impression à l'aide de Word dans une applic VB [ par andreroh ] Bonjour,Dans mon application en VB6 je fais appel à Word afin d'imprimer un fichier HTML que j'ai généré par prog.Je modifie la mise en page (marges . impression ss VB.NET [ par astruc ] bonjour @ ts!qq1 sait comment ajouter une autre page ss vb7 lors d'une impression d'un doc?e.HasMorePages = True ne marche pas comme je le souhaite pu Impression : Page de. à . [ par vilain21 ] Comment faire pour faire apparaitre l'option imprimer de la page .. à la page .. avec showprinter?Je verifie juste que mon fichier existe et rien d'au


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,374 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.