Methode print plante dans une boucle HELP!!!!

Question

lorsque je fait printer.Print monTableau(i) dans une boucle for &#231;a plante , j'ai retourn&#233; le pb dans tous les sens je ne trouve pas !!!! 

si quelqu'un peu m'aider ...

NoFxmXpX !&#167;!&#167;

cs_casy · Answer

Sans autres pr&#233;cisions &#231;a va &#234;tre dur de t'aider.

--> le type d'erreur
--> le type et la taille des variables
--> le code qui plante (la ligne et un peu de tous ce qui a autour serait pas mal)
--> ....................
--> plus tout ce qui peut &#234;tre utile &#224; trouver une erreur.

nofxmxpx · Answer

Je repost la question que j'avais pos&#233; plus en d&#233;tai :

Voila je suis en stage mon projet est termin&#233; &#224; part l'impression d'une carte et d'imformations que je met dessus.
lorsque j'utilise le m&#233;thode print du printer ma carte s'imprime mais pas ce qu'il y a dans la boucle ou j'ai mon instruction printer.
Ensuite l'imprimante me sort plein de feuilles blanches.

voila mon code : 

Private Sub ImprimerCarte_Click()


Printer.Width = 11000
Printer.Height = 15000


 


Printer.PaintPicture Picture1.Picture, 0, 0


xpicE = ((xEven - 251170) * 0.085) + 1150     'calcul des coordonn&#233;es selon l'&#233;chelle
ypicE = (Abs(yEven - 2233140) * 0.085) + 400


Printer.ScaleMode = vbTwips


Printer.DrawWidth = 30          'taille des points


Printer.PSet (xpicE, ypicE), RGB(250, 0, 0)        'on dessine le point



Printer.DrawWidth = 1              'taille du tracage des cercles


    picRay = CDbl(cboRayon.Text) * 1000 * 0.085     'calcul du rayon du cercle selon l'echelle
    picRayinit = picRay
    


   For i = 1 To numTour     'tracage des cecles
    
    Printer.Circle (xpicE, ypicE), picRay, RGB(0, 250, 0)
            
    picRay = picRay + picRayinit
    
    Next i
        
    Printer.DrawWidth = 20     'taille des points des CS
        
   For i = 1 To nbCs - 1       'on dessine les points des CS
    
        xPic = ((TCS(i).xCS - 251170) * 0.085) + 1150
        yPic = (Abs(TCS(i).yCS - 2233140) * 0.085) + 400
    
        j = 0
        
        'on recherche la correspondance
        While TCS(i).id_cs <> TCSEven(j).id_cs And j < nbCSEven
        
            j = j + 1
    
        Wend
        
        'si le CS est retenu (code couleur)
        If TCSEven(j).retenu = "Retenu" Then
    
        Printer.PSet (xPic, yPic), RGB(250, 15, 162) ' couleur du point affich&#233;
        Printer.ForeColor = RGB(250, 0, 0) ' couleur du texte qui sera affich&#233;
        
        Else
        
        Printer.PSet (xPic, yPic), RGB(125, 85, 162) ' couleur du point affich&#233;
        Printer.ForeColor = RGB(0, 0, 0) ' couleur du texte qui sera affich&#233;
    
        End If
        
        With Printer
            
            .CurrentX = xPic ' d&#233;finit le X courant de la picture box
            .CurrentY = yPic ' d&#233;finit le Y courant de la picturebox
            '.ForeColor = RGB(0, 0, 0) ' couleur du texte qui sera affich&#233;
            .FontSize = 6 ' d&#233;finit la taille du texte
            .Font = "Arial" ' le texte sera tap&#233; avec la police Verdana
            .FontBold = False ' le texte ne sera pas en gras
            .FontItalic = False ' le texte ne sera pas en italique
            .FontStrikethru = False ' le texte ne sera pas barr&#233;
            .FontUnderline = True ' le texte sera soulign&#233;
            
        End With
               
        Printer.Print TCS(i).libCS 
        'Printer.Line (xPic, yPic)-(xPic + 200, yPic) 'ligne du haut
        
        
    Next i
    
Printer.EndDoc


End Sub

Lorsque je lance le m&#234;me code avec &#224; la place de printer.print, printer.line.... l'impression fonctionne normalement en affichant les lignes.

merci d'avance.

NoFxmXpX !&#167;!&#167;

nofxmxpx · Answer

J'ai r&#233;solu mon probl&#232;me en passant par une picture box et en imprimant l'image de ma picture box .Mais j'aimerai tout de meme savoir si quelqu'un peut savoir d'o&#249; vient le probl&#232;me.

NoFxmXpX !&#167;!&#167;

cs_casy · Answer

A part un probl&#232;me sur ta variable TCS(i).libCS je ne vois pas

Dans le code que tu as mis, il n'y a aucune d&#233;claration m&#234;me pour les variables qui semblent &#234;tre locales. V&#233;rifie que tes variables sont d&#233;clar&#233;es proprement avec les bon types. 
Sans d&#233;claration tes variables sont de type Variant. Personellement je suis tr&#232;s m&#233;fiant avec ce type de variable.

V&#233;rifie que TCS(i).libCS est bien du type string (j'ai cru devin&#233; que c'&#233;tait un texte que tu imprime &#224; cet endroit)

sinon essaye de passer par une variable temporaire

tmp=TCS(i).libCS
printer.print tmp

Sinon je ne vois pas

nofxmxpx · Answer

d&#233;ja verifi&#233; aucun probl&#232;me de variables. que je les d&#233;clares dans ma proc ou au d&#233;but du prog tjrs le meme probl&#232;me.

J'avais aussi essayer par une variable temporaire . Aucun resultat.

Merci de ton aide. De toute fa&#231;on cette m&#233;thode print avec un printer ne m'inspire pas trop confiance m&#234;me si je l'utilise beaucoup . Tant que &#231;a marche &#231;a va quand &#231;a marche plus on passe &#224; autre chose. 

 

NoFxmXpX !&#167;!&#167;

Methode print plante dans une boucle HELP!!!!

5 réponses

Discussions similaires