TUTO=<IMPRESSION D'UN TEXT>

cs_protect
Messages postés
87
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
15 mai 2011
- 4 janv. 2004 à 01:44
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
- 12 juin 2007 à 17:25
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/19246-tuto-impression-d-un-text

cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
131
12 juin 2007 à 17:25
oui tout à fait programmix ! bien vu (j'ai fait un bête copier coller !).
cs_PROGRAMMIX
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
3
12 juin 2007 à 17:17
Bonjour

Je réagis parce qu'il me semble qu'il y a peut-être une mauvaise compréhension des "paramètres"

Je vous cite
Printer.CurrentX = 20 'marge gauche
Printer.CurrentY = 25 'marge droite

Mais ne serait-ce pas plutôt
Printer.CurrentX = 20 'marge gauche
Printer.CurrentY = 25 'marge HAUTE

Bien à vous,

Programmix
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
131
12 juin 2007 à 12:48
Il faut splitter ta chaîne sur le vbcrlf, puis imprimer ligne par ligne.

Ca doit ressembler à quelque chose comme cà :
Remplacer Printer.Print Recherche.Twest.Text; PrinterPage par :

Dim tmp() as String
tmp = split(Recherche.Twest.Text, vbcrlf)
Dim i as integer
for i = 0 to UBound(tmp)
Printer.CurrentX = 20 'marge gauche
Printer.CurrentY = 25 'marge droite
Printer.Print tmp(i)
next i
cs_bfb
Messages postés
22
Date d'inscription
samedi 26 juillet 2003
Statut
Membre
Dernière intervention
22 mai 2021

12 juin 2007 à 11:51
ok mais comment tu le fais.
aurais tu l'extrème amabilité de m'envoyer la ligne de code
et où il faut la placer.
voici les lignes que j'ai déja :

Printer.FontSize = Recherche.Twest.FontSize
Printer.Font = Recherche.Twest.Font
Printer.ScaleMode = vbMillimeters
Printer.ScaleLeft = 25 'indique la marge gauche de toute les lignes A TESTER
'Pour la 1ere ligne
Printer.CurrentX = 20 'marge gauche
Printer.CurrentY = 25 'marge droite

msg = MsgBox("Voulez vous imprimer votre recherche maintenant", vbYesNo, "Impression")
If msg = vbNo Then
MsgBox "Impression annulé", vbExclamation, ""
GoTo fin:
Else
Printer.Print Recherche.Twest.Text; PrinterPage
Printer.EndDoc
End If
fin:

Un grand merci à toi de prendre en charge les débutants en difficultés.
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
131
11 juin 2007 à 11:02
Il faut redéfinir le CurrentY pour chaque ligne imprimée.
Afficher les 14 commentaires