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
| Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
Dim Hauteur As Single
Dim Gauche01 As Single, Gauche02 As Single, Gauche03 As Single, Gauche04 As Single, Gauche05 As Single
Dim Gauche06 As Single, Gauche07 As Single, Gauche08 As Single, Gauche09 As Single, Gauche10 As Single
Dim Gauche11 As Single, Gauche12 As Single, Gauche13 As Single, Gauche14 As Single, Gauche15 As Single
Dim Gauche16 As Single, Gauche17 As Single, Gauche18 As Single
Dim entX As Integer
Dim Nblignes As Long
If Not rstEnregistrement.EOF Then
If Me.FormatCount = 1 Then
For entX = 3 To NbColonnes
Me("Detail" + Format(entX)) = Nz(rstEnregistrement(entX - 1), 0)
' Nblignes = Nblignes + Me("Detail" + Format(entX))
Next entX
For entX = NbColonnes + 2 To Nombre_colonnes
Me("Detail" + Format(entX)).Visible = False
Next entX
'Me("Detail" + Format(Nombre_colonnes + 1)) = Nblignes
rstEnregistrement.MoveNext
End If
End If
Hauteur = Me.Height
Gauche01 = 0 * 567
Gauche05 = 11.3 * 567
Gauche06 = 12.7 * 567
Gauche07 = 14.1 * 567
Gauche08 = 15.5 * 567
Gauche09 = 16.9 * 567
Gauche10 = 18.3 * 567
Gauche11 = 19.7 * 567
Gauche12 = 21.1 * 567
Gauche13 = 22.508 * 567
Gauche14 = 23.9 * 567
Gauche15 = 25.3 * 567
Gauche16 = 26.7 * 567
Gauche17 = 28.1 * 567
Me.DrawMode = 1
Me.DrawStyle = 0
Me.Report.Line (Gauche01, 0)-(Gauche01, Hauteur)
Me.Report.Line (Gauche02, 0)-(Gauche02, Hauteur)
Me.Report.Line (Gauche03, 0)-(Gauche03, Hauteur)
Me.Report.Line (Gauche04, 0)-(Gauche04, Hauteur)
Me.Report.Line (Gauche05, 0)-(Gauche05, Hauteur)
Me.Report.Line (Gauche06, 0)-(Gauche06, Hauteur)
Me.Report.Line (Gauche07, 0)-(Gauche07, Hauteur)
Me.Report.Line (Gauche08, 0)-(Gauche08, Hauteur)
Me.Report.Line (Gauche09, 0)-(Gauche09, Hauteur)
Me.Report.Line (Gauche10, 0)-(Gauche10, Hauteur)
Me.Report.Line (Gauche11, 0)-(Gauche11, Hauteur)
Me.Report.Line (Gauche12, 0)-(Gauche12, Hauteur)
Me.Report.Line (Gauche13, 0)-(Gauche13, Hauteur)
Me.Report.Line (Gauche14, 0)-(Gauche14, Hauteur)
Me.Report.Line (Gauche15, 0)-(Gauche15, Hauteur)
Me.Report.Line (Gauche16, 0)-(Gauche16, Hauteur)
Me.Report.Line (Gauche17, 0)-(Gauche17, Hauteur)
End Sub |
Partager