Probleme impression

matheus595959 Messages postés 92 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 4 août 2008 - 30 mai 2007 à 17:10
matheus595959 Messages postés 92 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 4 août 2008 - 7 juin 2007 à 10:02
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

23 réponses

cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
30 mai 2007 à 17:13
Salut,

Un petit bout de code pour y voir plus clair, serait le bienvenu...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
0
matheus595959 Messages postés 92 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 4 août 2008
30 mai 2007 à 17:15
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
0
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
30 mai 2007 à 17:26
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

 
0
matheus595959 Messages postés 92 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 4 août 2008
30 mai 2007 à 17:37
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
matheus595959 Messages postés 92 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 4 août 2008
30 mai 2007 à 17:57
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 .........
0
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
30 mai 2007 à 18:45
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

 
0
jmfmarques Messages postés 7668 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 28
30 mai 2007 à 19:04
on n'a pas vu ton code d'impression.
0
matheus595959 Messages postés 92 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 4 août 2008
31 mai 2007 à 08:35
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
0
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
31 mai 2007 à 08:47
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

 
0
cs_Nicko11 Messages postés 1141 Date d'inscription mercredi 7 mars 2007 Statut Membre Dernière intervention 19 septembre 2007 3
31 mai 2007 à 08:51
Salut,

Comme exploreur, j'ai pensé a ca tout de suite en voyant ton code.
0
matheus595959 Messages postés 92 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 4 août 2008
31 mai 2007 à 08:51
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
0
jmfmarques Messages postés 7668 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 28
31 mai 2007 à 08:57
" 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 ?
0
matheus595959 Messages postés 92 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 4 août 2008
31 mai 2007 à 09:00
'                    ===================================
'
'                      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 = "|<Orig  |<Copie  |<                                                                        | direction'




MSH2.FormatString = "|<Orig  |<Copie  |<                                                                        | services'


MSH3.FormatString = "|<Orig  |<Copie  |<                                                              | 8 Then


            MSH3.Col = 1
            MSH3.Row = i + 1
            If Ventil.Check3(i - 1).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
            MSH3.Col = 2
            MSH3.Row = i + 1
            If Ventil.Check6(i - 1).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
           
            MSH3.Col = 3
            MSH3.Row = i + 1
            If i = 3 Then
                MSH3.Text = "Adm. Générale - Informatique"
            Else
                MSH3.Text = Ventil.Label12(i - 1)
            End If
           
            MSH3.Col = 4
            MSH3.Row = i + 1
            If Ventil.Check9(i - 1).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
            MSH3.Col = 5
            MSH3.Row = i + 1
            If Ventil.Check12(i - 1).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
            MSH3.Col = 6
            MSH3.Row = i + 1
            If Ventil.Check15(i - 1).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
            MSH3.Col = 7
            MSH3.Row = i + 1
            If Ventil.Check18(i - 1).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
            MSH3.Col = 8
            MSH3.Row = i + 1
            If Ventil.Check21(i - 1).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
    End If
Next


MSH3.RemoveItem (9)


 




'service technique'




            MSH3.Col = 1
            MSH3.Row = 14
            If Ventil.Check3(8).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
            MSH3.Col = 2
            MSH3.Row = 14
            If Ventil.Check6(8).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
           
            MSH3.Col = 3
            MSH3.Row = 14
            If i = 3 Then
                MSH3.Text = "Adm. Générale - Informatique"
            Else
                MSH3.Text = Ventil.Label12(8)
            End If
           
            MSH3.Col = 4
            MSH3.Row = 14
            If Ventil.Check9(8).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
            MSH3.Col = 5
            MSH3.Row = 14
            If Ventil.Check12(8).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
            MSH3.Col = 6
            MSH3.Row = 14
            If Ventil.Check15(8).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
            MSH3.Col = 7
            MSH3.Row = 14
            If Ventil.Check18(8).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
            MSH3.Col = 8
            MSH3.Row = 14
            If Ventil.Check21(8).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If




'urbanisme'




            MSH3.Col = 1
            MSH3.Row = 15
           
            If Ventil.Check3(13).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
            MSH3.Col = 2
            MSH3.Row = 15
            If Ventil.Check6(13).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
           
            MSH3.Col = 3
            MSH3.Row = 15
            If i = 3 Then
                MSH3.Text = "Adm. Générale - Informatique"
            Else
                MSH3.Text = Ventil.Label12(13)
            End If
           
            MSH3.Col = 4
            MSH3.Row = 15
            If Ventil.Check9(13).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
            MSH3.Col = 5
            MSH3.Row = 15
            If Ventil.Check12(13).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
            MSH3.Col = 6
            MSH3.Row = 15
            If Ventil.Check15(13).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
            MSH3.Col = 7
            MSH3.Row = 15
            If Ventil.Check18(13).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
            MSH3.Col = 8
            MSH3.Row = 15
            If Ventil.Check21(13).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           


           
'Fêtes-logistique'




            MSH3.Col = 1
            MSH3.Row = 16
            If Ventil.Check3(7).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
            MSH3.Col = 2
            MSH3.Row = 16
            If Ventil.Check6(7).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
           
            MSH3.Col = 3
            MSH3.Row = 16
            If i = 3 Then
                MSH3.Text = "Adm. Générale - Informatique"
            Else
                MSH3.Text = Ventil.Label12(7)
            End If
           
            MSH3.Col = 4
            MSH3.Row = 16
            If Ventil.Check9(7).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
            MSH3.Col = 5
            MSH3.Row = 16
            If Ventil.Check12(7).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
            MSH3.Col = 6
            MSH3.Row = 16
            If Ventil.Check15(7).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
            MSH3.Col = 7
            MSH3.Row = 16
            If Ventil.Check18(7).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
            MSH3.Col = 8
            MSH3.Row = 16
            If Ventil.Check21(7).Value = False Then
            Set MSH3.CellPicture = Image1.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH3.CellPicture = Image2.Picture
            MSH3.CellPictureAlignment = flexAlignCenterCenter
            End If


MSH3.RemoveItem (9)
'msh4 -> élus


MSH4.FormatString = "|<Orig  |<Copie  |<                                                              | signature


MSH5.FormatString = "|<|<Signature                  |<  |<|<                  |<   |<     "
           
            MSH5.ColAlignment(0) = flexAlignCenterCenter
            MSH5.ColAlignment(1) = flexAlignCenterCenter
            MSH5.ColAlignment(2) = flexAlignCenterCenter
            MSH5.ColAlignment(3) = flexAlignLeftCenter
            MSH5.ColAlignment(4) = flexAlignCenterCenter
            MSH5.ColAlignment(5) = flexAlignCenterCenter




            MSH5.Col = 2
            MSH5.Row = 2
            MSH5.Text = "Monsieur Le Maire"
           
            MSH5.Col = 3
            MSH5.Row = 2
            If Ventil.Check19.Value = False Then
            Set MSH5.CellPicture = Image1.Picture
            MSH5.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH5.CellPicture = Image2.Picture
            MSH5.CellPictureAlignment = flexAlignCenterCenter
            End If
       




            MSH5.Col = 5
            MSH5.Row = 2
            MSH5.Text = "Adjoints"
           
            MSH5.Col = 6
            MSH5.Row = 2
            If Ventil.Check20.Value = False Then
            Set MSH5.CellPicture = Image1.Picture
            MSH5.CellPictureAlignment = flexAlignCenterCenter
            Else
            Set MSH5.CellPicture = Image2.Picture
            MSH5.CellPictureAlignment = flexAlignCenterCenter
            End If
           
           
            'msh6 -> 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 = "|< |<Expéditeur :"
           


            MSH7.ColAlignment(1) = flexAlignLeftCenter


            MSH7.Col = 1
            MSH7.Row = 0
            MSH7.Text = "Expéditeur :"
           
            MSH7.ColWidth(0) = 100
            MSH7.ColWidth(1) = 7000


            MSH7.Col = 1
            MSH7.Row = 1
            MSH7.Text = Ventil.Label7.Caption
           
        
'msh8 -> 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
0
matheus595959 Messages postés 92 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 4 août 2008
31 mai 2007 à 09:20
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
0
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
31 mai 2007 à 09:38
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


 
0
matheus595959 Messages postés 92 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 4 août 2008
31 mai 2007 à 09:43
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
0
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
31 mai 2007 à 09:44
False

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
0
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
31 mai 2007 à 09:44
Du moins pour faire l'essai...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
0
matheus595959 Messages postés 92 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 4 août 2008
31 mai 2007 à 10:05
J'ai tester avec false ça ne change rien du tout, il n'imprime que la première ligne du texte............;
0
matheus595959 Messages postés 92 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 4 août 2008
31 mai 2007 à 10:55
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
0