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
|
Private Sub Report_Page()
'Dessiner un bord de page autour de l'état.
' Me.Line (0, 0)-(Me.ScaleWidth - 50, Me.ScaleHeight - 50), , B
Me.Line (0, 0)-(Me.ScaleWidth - 50, Me.ScaleHeight - 50), RGB(153, 102, 0), B
Me.Line (0, 0)-(Me.ScaleWidth - 60, Me.ScaleHeight - 60), RGB(153, 102, 0), B
Me.Line (0, 0)-(Me.ScaleWidth - 70, Me.ScaleHeight - 70), RGB(153, 102, 0), B
Me.Line (0, 0)-(Me.ScaleWidth - 80, Me.ScaleHeight - 80), RGB(153, 102, 0), B
Me.Line (10, 10)-(Me.ScaleWidth - 50, Me.ScaleHeight - 50), RGB(153, 102, 0), B
Me.Line (10, 10)-(Me.ScaleWidth - 60, Me.ScaleHeight - 60), RGB(153, 102, 0), B
Me.Line (10, 10)-(Me.ScaleWidth - 70, Me.ScaleHeight - 70), RGB(153, 102, 0), B
Me.Line (10, 10)-(Me.ScaleWidth - 80, Me.ScaleHeight - 80), RGB(153, 102, 0), B
Me.Line (20, 20)-(Me.ScaleWidth - 50, Me.ScaleHeight - 50), RGB(153, 102, 0), B
Me.Line (20, 20)-(Me.ScaleWidth - 60, Me.ScaleHeight - 60), RGB(153, 102, 0), B
Me.Line (20, 20)-(Me.ScaleWidth - 70, Me.ScaleHeight - 70), RGB(153, 102, 0), B
Me.Line (20, 20)-(Me.ScaleWidth - 80, Me.ScaleHeight - 80), RGB(153, 102, 0), B
Me.Line (30, 30)-(Me.ScaleWidth - 50, Me.ScaleHeight - 50), RGB(153, 102, 0), B
Me.Line (30, 30)-(Me.ScaleWidth - 60, Me.ScaleHeight - 60), RGB(153, 102, 0), B
Me.Line (30, 30)-(Me.ScaleWidth - 70, Me.ScaleHeight - 70), RGB(153, 102, 0), B
Me.Line (30, 30)-(Me.ScaleWidth - 80, Me.ScaleHeight - 80), RGB(153, 102, 0), B
End Sub |
Partager