richtextboxRésolu

Question

Bonjour,

 Je rencontre un
probl&#233;me avec mon appli qui est un systeme d'etiquettage fonctionnant
suivant les donn&#233;es re&#231;uent via rs232 d'une balance:

  

 mon
probleme est &#224; l'impression de l'etiquette, en fait il y a un
richtextbox et deux images(logos) picturebox1 et picturebox2.

  

  Le richtextbox s'imprime bien, mais mes logos sont absents ou coup&#233;.

  J'ai l'impression que le richtextbox recouvre les logos, alors qu'aucune ligne d'ecriture n'est presente &#224; cet endroit.

  Voici le code de l'impression.

  

  

  Dim Impr As Printer

      Set Impr = Printer    

      

      Impr.ScaleMode = vbMillimeters 'Coordon&#233;es en mm

      Impr.Print RichTextBox1.Text

      RichTextBox1.SelStart = 0

      RichTextBox1.SelLength = Len(RichTextBox1.Text)

      RichTextBox1.SelPrint Impr.hDC

         


    'impression de logosociete &#224; 60mm en partant de la gauche de
feuille et 17mm en partant du haut sur (25mm de large et 20 de haut)

       Impr.PaintPicture logosociete.Picture, 60, 17, 25,20


'impression de logosociete &#224; 60mm en partant de la gauche de feuille et
35mm en partant du haut sur (25mm de large et 20 de haut)

     Impr.PaintPicture logosan.Picture,60,35,25,20

      Impr.EndDoc

  

  Si vous avez une solution, merci de m'aider sachant que je ne veus pas mettre une image dans le richtextbox mais vraiment l'imprimer s&#233;parement sur l'etiquette, cela fait maintenant 1 semaine que je gal&#232;re.

cs_Willi · Accepted Answer

Bonsoir,
Ce n'est pas la peine de reposter votre question plusieurs fois sur le forum, si tu n'as pas de r&#233;ponse c'est simplement que personne ne la connait...

Je te propose un bout de code que je n'ai pas pu tester....plus d'imprimante.

'Api + constantes
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long


Private Const WM_PAINT = &HF
Private Const WM_PRINT = &H317
Private Const PRF_CLIENT = &H4&
Private Const PRF_CHILDREN = &H10&
Private Const PRF_OWNED = &H20&

Dans ton bouton imprimer par exemple
8<-----------------------------------------------------

Dim rv As Long
    
Dim pbox As PictureBox
pbox = Picture1
  
Impr.ScaleMode = vbMillimeters 'Coordon&#233;es en mm
Printer.Print RichTextBox1.Text
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelPrint Impr.hDC
  
With pbox
    .AutoRedraw = True          

    'Dessine le controle picture1
     rv = SendMessage(.hwnd, WM_PAINT, .hDC, 0)
     rv = SendMessage(.hwnd, WM_PRINT, .hDC, PRF_CHILDREN Or PRF_CLIENT Or PRF_OWNED)
    
    'Rafraichit l'image
    .Picture = .Image
    
    'Copie de l'image vers l'imprimante
     Printer.PaintPicture .Picture, 60, 17, 25,20

     Printer.EndDoc
End With
8<-----------------------------------------------------

Bon courage

tonylivingston · Answer

Bonjour et merci pour la r&#233;ponse

Te serait il possible de m'expliquer le code que tu m'as fourni,
je  n'ai  pas un super niveau en vb et il serait dommage de
ne faire simplement que du copier coller.

Je ne l'ai pas pas encore test&#233;, merci de bien vouloir m'expliquer.



Merci  d'avance

cs_Willi · Answer

Re,
Je passe la partie avec le richtextbox....

pbox est notre picturebox temporaire cela &#233;vite d'utiliser TaPicturebox.

rv =  SendMessage(.hwnd, WM_PAINT, .hDC, 0)
Ont envoit une demande pour dessiner une partie de la fenetre de ton appli (pbox).
- pBox.hwnd: renvoie descripteur de ton objet pbox (tout objet dans le syst&#232;me poss&#232;de un descripteur)
- pBox.hDC: renvoie un descripteur vers le contexte du p&#233;riph&#233;rique de l'objet
 Info:  =/library/en-us/gdi/pantdraw_88ac.asp http://msdn.microsoft.com/library/default.asp?url= /library/en-us/gdi/pantdraw_88ac.asp

rv = SendMessage(.hwnd, WM_PRINT, .hDC, PRF_CHILDREN Or PRF_CLIENT Or PRF_OWNED)
Ont dessine dans notre pbox.
 Info:  =/library/en-us/gdi/pantdraw_3qwk.asp http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/pantdraw_3qwk.asp

.Picture = .Image
On met &#224; jour le nouveau dessin.

Richtextbox

3 réponses

Discussions similaires