Aide pour imprimer du texte

DraaFil Messages postés 264 Date d'inscription mercredi 16 avril 2003 Statut Membre Dernière intervention 23 mars 2012 - 20 sept. 2006 à 01:29
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 20 sept. 2006 à 12:33
Bonjour a tous,

j'ai une probleme au niveau de l'impression avec le code suivant. Mon problème s'est qu'il imprime pas les lignes qui sont en rouge. Je voudrais savoir pourquoi, comment corriger cela et m'expliquer .

    'ENTETE DU DOCUMENT
    Printer.ScaleMode = vbMillimeters
    Printer.Font = "Courier New"
    Printer.PaintPicture imgLogo, 91, 0
    'Printer.CurrentX = 80
    'Printer.CurrentY = 15
    'Printer.Print "LISTE TÉLÉPHONIQUE"
    Printer.Line (0, 30)-(210, 30)
    Printer.CurrentY = 33
    Printer.Print "NOM   TÉLÉPHONE  CELLULAIRE ADRESSE"
    Printer.Line (0, 40)-(210, 40)
   
    Printer.CurrentY = 40
    Printer.FontSize = 12
    ....(le reste fonctionne bien)

Merci
DraaFil

3 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
20 sept. 2006 à 08:35
la première, normal : elle est en commentaire

la deuxième, je pense simplement que tu dessine en dehors de la page.


en effet, tu a mis le currectX à 210 avec l'instruction Line, juste au dessus

Renfield
Admin CodeS-SourceS- MVP Visual Basic
0
DraaFil Messages postés 264 Date d'inscription mercredi 16 avril 2003 Statut Membre Dernière intervention 23 mars 2012
20 sept. 2006 à 12:17
Ok, merci pour la premier erreur, c<est genant!!!

pour la deuxieme, peux-tu m<expliquer plus en detail comment cela fonctionne et par la meme occasion corriger mon erreur.

Merci
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
20 sept. 2006 à 12:33
Le texte est écrit a la position courante d'un espece de curseur virtuel.
pour ecrire a un endroit précis, joue avec CurrentX et CurrentY

dessiner une ligne, un cercle etc va décaler la position de ce pointeur...

    Printer.CurrentX = 0
    Printer.CurrentY = 33
    Printer.Print "NOM   TÉLÉPHONE  CELLULAIRE ADRESSE"

Renfield
Admin CodeS-SourceS- MVP Visual Basic
0
Rejoignez-nous