preview d'une édition

Question

Bonjour &#224; toutes et tous,

Est-il possible de pr&#233;visualiser une &#233;dition ? Avec l'objet printer on peut simplement imprimer sans preview.
Mon pb est que je n'ai pas d'imprimante de connecter et que je voudrais donc pr&#233;visualiser.
C'est une listview que j'imprime

Merci d'avance pour votre aide

cs_frop01 · Answer

T'es servi sur vbfrance ;)

http://www.vbfrance.com/code.aspx?ID=23938
http://www.vbfrance.com/codes/OCX-APERU-AVANT-IMPRESSION/27605.aspx

yohan_titi · Answer

Je te remercie Frop01, j'ai vu ces 2 sources mais je bloque compl&#232;tement pour pr&#233;visualiser une &#233;dition d'une listview


Ca fait des heures que je suis dessus (je ne suis pas un pro du vb) et &#231;a commence &#224; me rendre dingue...


Qui peut m'aider ?

cs_frop01 · Answer

c'est pourtant facile avec ce code :
http://www.vbfrance.com/code.aspx?ID=23938

regarde dans le Sub AfficheApperçu() dans le module

pour afficher un texte dans x,y avec une police de caractère Courrier New etc..: 
il suffit de mettre le code suivant :

ObjAppImp.CurrentX = 50 * X
ObjAppImp.CurrentY = 50 * X
ObjAppImp.Font = "Courier new"
ObjAppImp.FontUnderline = False
ObjAppImp.FontBold = False
ObjAppImp.ForeColor = vbBlack
ObjAppImp.Print "Mon texte ici."

tu n'as qu'à faire une boucle qui avec ca pour afficher ton listview

yohan_titi · Answer

Si en plus tu me dis que c'est facile, j'me sens encore plus con...
C'est justement sur la fa&#231;on de faire la boucle sur ma listview que je bloque total

cs_frop01 · Answer

exemple : 
For i = 0 To List1.ListCount - 1  ' listcount :le nombre de ligne dans la liste
 List1.ListIndex i '> position suivante dans la liste
 msgbox List1  '  =========> affiche rubrique courante  
next i 


donc pour l'appliquer au code :: 

For i = 0 To List1.ListCount - 1
 ObjAppImp.CurrentX = 50 * X 
 ObjAppImp.CurrentY 50 * X  + (i*20) '> i *20 pour descendre plus bas en y
 ObjAppImp.Font = "Courier new"
 ObjAppImp.FontUnderline = False
 ObjAppImp.FontBold = False
 ObjAppImp.ForeColor = vbBlack
 List1.ListIndex i '> position suivante dans la liste
 ObjAppImp.Print List1  '  =========> affiche rubrique courante
Next i

yohan_titi · Answer

Merci pour ton aide.
Mais listcount et

yohan_titi · Answer

Merci pour ton aide.
Mais listcount et listindex n'existent pas pour une listview

Preview d'une édition

7 réponses

Discussions similaires