probleme impression

Question

bonjour,

alors voila j'ai devélopper un logiciel sur vb6.0 tout fonctionne parfaitement sauf une chose 
en fait voila sur l'un des formulaire du logiciel, je demande une réponse donc du format text.
Quand je decide d'imprimer ce formulaire, il me manque une partie du texte ja'i cherché et je ne sais pas d'ou ca vient ;;;;;;;

merci

cs_Exploreur · Answer

Salut,

Un petit bout de code pour y voir plus clair, serait le bienvenu...

A+
Exploreur

 Linux a un noyau, Windows un pépin

matheus595959 · Answer

MSH6.FormatString = "|< |<           SUIVI                             |<   "
            
            
           MSH6.Col = 2
           MSH6.Row = 0
           MSH6.CellAlignment = flexAlignCenterCenter
           
            MSH6.RowHeight(1) = 200
            
            MSH6.Col = 2
            MSH6.Row = 2
            MSH6.Text = "Responsable du dossier :"
            
            MSH6.Col = 2
            MSH6.Row = 3
            MSH6.Text = Ventil.Text1.Text
            
            MSH6.RowHeight(4) = 100
            
            MSH6.Col = 2
            MSH6.Row = 4.75
            MSH6.CellFontSize = 9
            MSH6.Text = "Date d'échéance :"
            
            
            MSH6.Col = 2
            MSH6.Row = 6
            MSH6.Text = Ventil.Text2.Text
            
            MSH6.RowHeight(7) = 100
            
            MSH6.Col = 2
            MSH6.Row = 8
            MSH6.Text = "Correspondance :"
                        
            MSH6.Col = 2
            MSH6.Row = 9
            MSH6.CellAlignment = flexAlignLeftTop
            MSH6.Text = Ventil.Text3.Text  
            MSH6.RowHeight(10) = 6000

c'est la partie en bleu qui pose probleme elle correspond au MSH que j'ai créé pour recuperer les infos saisi dans le formulaire ventil

cs_Exploreur · Answer

Salut,

C'est vrai que....Le gros chiffre que je vois en bas(6000), le problème ne pourrait pas venir de là défois ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

matheus595959 · Answer

bah écoute je ne sais pas trop on dirai qu'une fois arrivé en bout de ligne il n'imprime pas le texte sur la ligne d'apres j'ai fait un test avec 200 a la place de 6000 et ben ca marche pas bcp mieux 

merci

matheus595959 · Answer

je suis à l'écoute de toutes propositions serieuses parce que je me galere et c'est super important ...........

J'ai essayer avec 100 a la place de 6000 mais toujours rien il n'imprime que la premiere ligne .........

cs_Exploreur · Answer

Salut,

Intercale dans ton code une Msgbox sur Ventil.Text3.Text, pour voir si il contient bien quelque chose :

            MSH6.Text = "Correspondance :"
            MsgBox Ventil.Text3.Text

A+
Exploreur

 Linux a un noyau, Windows un pépin

jmfmarques · Answer

on n'a pas vu ton code d'impression.

matheus595959 · Answer

coucou,

Quand je mets la msgbox, la phrase s'affiche correctement mais lorsque j'imprime, il n'imprime que la première ligne il me manque donc une partie du texte... On dirait qu'il y a un probleme pour le passage à la ligne je suis perdu, le texte a imprimer est stocké dans une base de donnée et en regardant dans la base de donné, tout le texte y est ....

J'attend vos conseils par avance merci

matheus

cs_Exploreur · Answer

Salut,

C'est bizarre ton truc...Cela me fait penser à un problème de Multiline(TextBox)...

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Nicko11 · Answer

Salut,

Comme exploreur, j'ai pensé a ca tout de suite en voyant ton code.

matheus595959 · Answer

oui j'ai cherché mais c'est pas un textbox c'est un MSHflexgrid donc il n'y a pas l'option multiline par contre quand je meme fontsize =6 il inscrit sur deux ligne mais la deuxieme est coupé a l'horizontale

jmfmarques · Answer

" le texte a imprimer est stocké dans une base de donnée et en regardant dans la base de donné, tout le texte y est ...."


Bis repetita, donc :
citation :

"on ne voit pas ton code d'impression"...



On va y arriver ?

matheus595959 · Answer

' =================================== ' ' Impression d'une fiche Courrier ' ' =================================== Private Sub Command1_Click() 'déclaration dela procédure Printer.Orientation = 1 Call Impression 'appel impression End Sub 'fin de la procédure Private Sub Impression() 'déclaration de la procédure Printer.ScaleMode = 6 Printer.ScaleLeft = 30 Printer.Font = "Times New Roman" Printer.FontSize = 8 Printer.PaintPicture Image3.Picture, 35, 3 Printer.FontSize = 24 Printer.Print Tab; Tab; " Fiche Courrier" Printer.DrawWidth = 5 Printer.PaintPicture MSH7.Picture, 35, 25 'cadre expéditeur Printer.Line (35, 25)-Step(150, 0) Printer.Line (35, 25)-Step(0, 15) Printer.Line (35, 40)-Step(150, 0) Printer.Line (185, 25)-Step(0, 15) Printer.PaintPicture MSH8.Picture, 188, 25 'cadre n° et date Printer.Line (188, 25)-Step(39, 0) Printer.Line (188, 25)-Step(0, 15) Printer.Line (188, 40)-Step(39, 0) Printer.Line (227, 25)-Step(0, 15) Printer.PaintPicture MSH.Picture, 35, 45 Printer.PaintPicture MSH2.Picture, 35, 60 'cadre maire' Printer.Line (35, 45)-Step(192, 0) Printer.Line (35, 45)-Step(0, 18) Printer.Line (35, 63)-Step(192, 0) Printer.Line (227, 45)-Step(0, 18) 'carde direction' Printer.Line (35, 63)-Step(192, 0) Printer.Line (35, 63)-Step(0, 15) Printer.Line (35, 78)-Step(192, 0) Printer.Line (227, 63)-Step(0, 15) Printer.PaintPicture MSH3.Picture, 35, 85 Printer.PaintPicture MSH4.Picture, 35, 175 Printer.Line (35, 85)-Step(126, 0) Printer.Line (35, 85)-Step(0, 188) Printer.Line (35, 273)-Step(126, 0) Printer.Line (161, 85)-Step(0, 188) Printer.PaintPicture MSH5.Picture, 163, 85 Printer.PaintPicture MSH6.Picture, 163, 110 'cadre signature' Printer.Line (163, 85)-Step(64, 0) Printer.Line (163, 85)-Step(0, 21) Printer.Line (163, 106)-Step(64, 0) Printer.Line (227, 85)-Step(0, 21) 'cadre suivi' Printer.Line (163, 110)-Step(64, 0) Printer.Line (163, 110)-Step(0, 163) Printer.Line (163, 273)-Step(64, 0) Printer.Line (227, 110)-Step(0, 163) 'cadre responsable' Printer.Line (167, 124)-Step(56, 0) Printer.Line (167, 124)-Step(0, 7) Printer.Line (167, 131)-Step(56, 0) Printer.Line (223, 124)-Step(0, 7) 'cadre date échéance Printer.Line (167, 136)-Step(56, 0) Printer.Line (167, 136)-Step(0, 7) Printer.Line (167, 143)-Step(56, 0) Printer.Line (223, 136)-Step(0, 7) 'cadre correspondance Printer.Line (167, 148)-Step(56, 0) Printer.Line (167, 148)-Step(0, 114) Printer.Line (167, 262)-Step(56, 0) Printer.Line (223, 148)-Step(0, 114) Printer.Print "" Printer.EndDoc End Sub 'fin de la procédure Private Sub Form_Load() 'déclaration de la procédure 'msh -> maire' MSH.FormatString = "| élus MSH4.FormatString = "| suivi MSH6.FormatString = "|< |< SUIVI |< " MSH6.Col = 2 MSH6.Row = 0 MSH6.CellAlignment = flexAlignCenterCenter MSH6.RowHeight(1) = 200 MSH6.Col = 2 MSH6.Row = 2 MSH6.Text = "Responsable du dossier :" MSH6.Col = 2 MSH6.Row = 3 MSH6.Text = Ventil.Text1.Text MSH6.RowHeight(4) = 100 MSH6.Col = 2 MSH6.Row = 4.75 MSH6.CellFontSize = 9 MSH6.Text = "Date d'échéance :" MSH6.Col = 2 MSH6.Row = 6 MSH6.Text = Ventil.Text2.Text MSH6.RowHeight(7) = 100 MSH6.Col = 2 MSH6.Row = 8 MSH6.Text = "Correspondance :" MsgBox Ventil.Text3.Text MSH6.Col = 2 MSH6.Row = 9 MSH6.CellAlignment = flexAlignLeftTop MSH6.Text = Ventil.Text3.Text MSH6.RowHeight(10) = 6000 'msh7 -> Expéditeur 'MSH7.FormatString = "|< | N° et date 'MSH8.FormatString = "|< |< " MSH8.ColWidth(0) = 750 MSH8.ColAlignment(0) = flexAlignLeftCenter MSH8.ColAlignment(1) = flexAlignLeftCenter MSH8.Col = 0 MSH8.Row = 0 MSH8.Text = "N° : " MSH8.Col = 1 MSH8.Row = 0 MSH8.Text = Ventil.Combo1.Text MSH8.RowHeight(1) = 75 MSH8.Col = 0 MSH8.Row = 2 MSH8.Text = "Date : " MSH8.Col = 1 MSH8.Row = 2 MSH8.Text = Ventil.Label8.Caption 'Printer.PrintQuality = -4 Printer.Orientation = 1 'portrait Call Impression 'appel de la procédure Impression End Sub Private Sub Timer1_Timer() 'déclarationde la procédure Unload Me 'fermeture End Sub 'fin de la procédure

matheus595959 · Answer

je suis désolé de vous avoir mis tout le code mais je ne savais pâs quoi selectionner ........j'espere que vous ne m'en voulez pas trop en tout cas je vous remercie de prendre du temps afin de résoudre mon probleme ainsi que celui de toutes les personnes présentes sur ce forum

cs_Exploreur · Answer

Salut,

C'est vrai que là....Pouf...pouf...Je me perd tout seul comme un grand!!!

Je pense encore à un truc de fous...Tu dit que ton MSHflexgrid n'a pas de propriété multiline...ok..mais ton Text3.Text de ton formulaire Ventil, n'est-il pas lui en multiline?


Car si j'ai bien compris ton code, tu récupère ce que contient ton Textbox de Ventil, et l'insère dans MSHflexgrid, vérifie les propriétés de Text3


A+
Exploreur

 Linux a un noyau, Windows un pépin

matheus595959 · Answer

je viens de vérifier les propriétés de text est dans l'option multiline = true 

je sais pas si je dois mettre false ou bien si je laisse true par contre

cs_Exploreur · Answer

False

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Du moins pour faire l'essai...

A+
Exploreur

 Linux a un noyau, Windows un pépin

matheus595959 · Answer

J'ai tester avec false ça ne change rien du tout, il n'imprime que la première ligne du texte............;

matheus595959 · Answer

je ne sais plus quoi faire car le texte est bien stocké dansson intégarlité dans  la base de donnée mais malheuresemnt lors de l'impression il n'imprime que la première ligne , ça s'arrete des que la ligne arrive sur la ligne du tableau ...

c'est trop BIZARRE

Probleme impression

23 réponses

Votre réponse

Discussions similaires