Bonjour,

je suis en VB.net avec vs2019.

j'ai en fait un problème et une question, je commence par le problème.

je voudrai imprimer deux voire 3 feuilles, j'utilise la commande e.hasmorepage = true, mais il lance des pages à n'en plus finir, et c'est toujours la première qui apparait sur toutes ....
s
je met le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
 
 
 
 
        e.Graphics.DrawString(Final_datas.lb_well_name.Text, Final_datas.lb_well_name.Font, Brushes.Black, 50, 50)
 
        e.Graphics.DrawString(Final_datas.Lb_date.Text, Final_datas.Lb_date.Font, Brushes.Black, 500, 50)
 
        e.Graphics.DrawString(Form1.Label19.Text, Form1.Label19.Font, Brushes.Black, 50, 55)
 
 
        e.Graphics.DrawString(Form1.Label1.Text, Form1.Label1.Font, Brushes.Black, 50, 100)
 
 
        e.Graphics.DrawString(Final_datas.Lab_pr_csg_size.Text, Final_datas.Lab_pr_csg_size.Font, Brushes.Black, 50, 150)
 
        e.Graphics.DrawString(Final_datas.Lab_pr_csg_weight.Text, Final_datas.Lab_pr_csg_weight.Font, Brushes.Black, 50, 175)
 
        e.Graphics.DrawString(Final_datas.Lab_pr_csg_shoe.Text, Final_datas.Lab_pr_csg_shoe.Font, Brushes.Black, 50, 200)
 
        e.Graphics.DrawString(Final_datas.Lab_pr_csg_int_capa.Text, Final_datas.Lab_pr_csg_int_capa.Font, Brushes.Black, 50, 225)
 
 
 
        e.Graphics.DrawString(Form1.Label2.Text, Form1.Label2.Font, Brushes.Black, 350, 100)
 
        e.Graphics.DrawString(Final_datas.Lab_csg_size.Text, Final_datas.Lab_csg_size.Font, Brushes.Black, 350, 150)
        e.Graphics.DrawString(Final_datas.Lab_csg_weight.Text, Final_datas.Lab_csg_weight.Font, Brushes.Black, 550, 150)
 
        e.Graphics.DrawString(Final_datas.Lab_csg_int_vol.Text, Final_datas.Lab_csg_int_vol.Font, Brushes.Black, 350, 175)
        e.Graphics.DrawString(Final_datas.Lab_csg_ext_vol.Text, Final_datas.Lab_csg_ext_vol.Font, Brushes.Black, 550, 175)
 
        e.Graphics.DrawString(Final_datas.Lab_csg_int_dia.Text, Final_datas.Lab_csg_int_dia.Font, Brushes.Black, 350, 200)
 
        e.Graphics.DrawString(Final_datas.Lab_collar_depth.Text, Final_datas.Lab_collar_depth.Font, Brushes.Black, 550, 225)
        e.Graphics.DrawString(Final_datas.Lab_shoe_depth.Text, Final_datas.Lab_shoe_depth.Font, Brushes.Black, 350, 225)
 
        e.Graphics.DrawString(Final_datas.Lab_shoe_track_lenght.Text, Final_datas.Lab_shoe_track_lenght.Font, Brushes.Black, 50, 250)
 
        e.Graphics.DrawString(Form1.Label3.Text, Form1.Label3.Font, Brushes.Black, 50, 475)
 
        e.Graphics.DrawString(Final_datas.lb_int_vol_OH.Text, Final_datas.lb_int_vol_OH.Font, Brushes.Black, 50, 525)
        e.Graphics.DrawString(Final_datas.Lb_TD_MD.Text, Final_datas.Lb_TD_MD.Font, Brushes.Black, 50, 550)
        e.Graphics.DrawString(Final_datas.Lb_TD_TVD.Text, Final_datas.Lb_TD_TVD.Font, Brushes.Black, 50, 575)
        e.Graphics.DrawString(Final_datas.Lb_lg_OH.Text, Final_datas.Lb_lg_OH.Font, Brushes.Black, 50, 600)
 
        e.Graphics.DrawString(Form1.Label4.Text, Form1.Label4.Font, Brushes.Black, 50, 650)
 
        e.Graphics.DrawString(Final_datas.Lb_vol_lead.Text, Final_datas.Lb_vol_lead.Font, Brushes.Black, 50, 700)
        e.Graphics.DrawString(Form1.Label7.Text & " " & My.Settings.excess_lead & Form1.Label9.Text, Form1.Label7.Font, Brushes.Black, 400, 700)
        e.Graphics.DrawString(Final_datas.Lb_vol_excess_lead.Text, Final_datas.Lb_vol_excess_lead.Font, Brushes.Black, 200, 725)
 
        e.Graphics.DrawString(Final_datas.Lb_vol_tail.Text, Final_datas.Lb_vol_tail.Font, Brushes.Black, 50, 750)
        e.Graphics.DrawString(Form1.Label8.Text & " " & My.Settings.excess_tail & Form1.Label9.Text, Form1.Label8.Font, Brushes.Black, 400, 750)
        e.Graphics.DrawString(Final_datas.Lb_vol_excess_tail.Text, Final_datas.Lb_vol_excess_tail.Font, Brushes.Black, 200, 775)
 
 
        e.Graphics.DrawString(Final_datas.Lab_vol_shoe_track.Text, Final_datas.Lab_vol_shoe_track.Font, Brushes.Black, 50, 850)
        e.Graphics.DrawString(Final_datas.Lab_half_ST.Text, Final_datas.Lab_half_ST.Font, Brushes.Black, 350, 850)
 
        e.Graphics.DrawString(Final_datas.lab_vol_int_csg_to_fc.Text, Final_datas.Font, Brushes.Black, 50, 875)
        e.Graphics.DrawString(Final_datas.Lab_str_displ.Text, Final_datas.Lab_str_displ.Font, Brushes.Black, 50, 900)
 
        e.Graphics.DrawString(Final_datas.Lb_diplac_max.Text, Final_datas.Lb_diplac_max.Font, Brushes.Black, 50, 950)
        e.Graphics.DrawString(Final_datas.Lab_str_displ_max.Text, Final_datas.Lab_str_displ_max.Font, Brushes.Black, 50, 975)
 
 
        e.HasMorePages = True
 
 
        e.Graphics.DrawImage(My.Resources.bouton1, 50, 100)
 
 
    End Sub
ensuite la question, j'envoi sur une form qui recapitule les datas, des affichages de label avec le texte et les datas, ce qui me permet de reprendre le label pour l'impression, le texte est déja présent, mais j'aurai aimé avoir le texte en style classique et le data en rouge et gras ?

exemple de code ci dessus,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Tb_excess_lead_TextChanged(sender As Object, e As EventArgs) Handles Tb_excess_lead.TextChanged
 
        Try
            My.Settings.excess_lead = Tb_excess_lead.Text
        Catch ex As Exception When Tb_excess_lead.Text = ""
            Tb_excess_lead.Text = 0
        End Try
 
 
        My.Settings.vol_lead_exc = My.Settings.vol_lead + (My.Settings.vol_lead * (My.Settings.excess_lead / 100))
 
        Final_datas.Lb_vol_excess_lead.Text = "Vol. Lead Slurry with " & My.Settings.excess_lead & " % excess = " & Math.Round(My.Settings.vol_lead + (My.Settings.vol_lead * (My.Settings.excess_lead / 100)), 2) & " m³"
    End Sub
voyez la dernière ligne de code envoi dans la form final_datas, le label vol_excess_lead.text avec sa définition complète, j'aurai aimé avoir la partie texte entre les "" en standard et les datas de my.settings.excess_lead en rouge et gras.

c'est pour cela que mon titre est EDM (en...r de mouche)

merci de votre aide