OVH Cloud OVH Cloud

Demande modif fonction ligne verticale

3 réponses
Avatar
Ron
Quelqu'un pourrait il me modifier ma fonction, car les=20
lignes verticales arrivent trop bas dans mon =E9tat lorsque=20
une fiche tient sur 2 pages (le trait vertical arrive=20
alors jusque la date et N=B0 page en pied de page !)
MErci d'avance !
N.B. mon probl=E8me d'impression de champ memo venait de la=20
section ins=E9cable =E0 mettre en no (merci =E0 Raymond !)

Private Sub D=E9tail_Print(Cancel As Integer, PrintCount As=20
Integer)
Dim x0, x1, x2, x3, x4, x5, x6 As Single, offset As Single
offset =3D 0 / Me.GridX
x0 =3D [ligne_verticale0].Left - offset
x1 =3D [ligne_verticale1].Left - offset
x2 =3D [ligne_verticale2].Left - offset
x3 =3D [ligne_verticale3].Left - offset
x4 =3D [ligne_verticale4].Left - offset
x5 =3D [ligne_verticale5].Left - offset
x6 =3D [ligne_verticale6].Left - offset
Me.Line (x0, 0)-(x0, 10000)
Me.Line (x1, 0)-(x1, 10000)
Me.Line (x2, 0)-(x2, 10000)
Me.Line (x3, 0)-(x3, 10000)
Me.Line (x4, 0)-(x4, 10000)
Me.Line (x5, 0)-(x5, 10000)
Me.Line (x6, 0)-(x6, 10000)
End Sub

3 réponses

Avatar
3stone
Bonjour *aussi*

"Ron"
Quelqu'un pourrait il me modifier ma fonction, car les
lignes verticales arrivent trop bas dans mon état lorsque
une fiche tient sur 2 pages (le trait vertical arrive
alors jusque la date et N° page en pied de page !)
MErci d'avance !
N.B. mon problème d'impression de champ memo venait de la
section insécable à mettre en no (merci à Raymond !)

Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
Dim x0, x1, x2, x3, x4, x5, x6 As Single, offset As Single

'tu déclare x1, x2 et les autres en tant que variant !!!
Dim x0 as integer, x1 as integer, x2 as integer...


offset = 0 / Me.GridX

offset 1440/ Me.GridX




--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Avatar
Ron
MERCI !

-----Message d'origine-----
Bonjour *aussi*

"Ron"
Quelqu'un pourrait il me modifier ma fonction, car les
lignes verticales arrivent trop bas dans mon état lorsque
une fiche tient sur 2 pages (le trait vertical arrive
alors jusque la date et N° page en pied de page !)
MErci d'avance !
N.B. mon problème d'impression de champ memo venait de la
section insécable à mettre en no (merci à Raymond !)

Private Sub Détail_Print(Cancel As Integer, PrintCount As
Integer)

Dim x0, x1, x2, x3, x4, x5, x6 As Single, offset As Single

'tu déclare x1, x2 et les autres en tant que
variant !!!

Dim x0 as integer, x1 as integer, x2 as integer...


offset = 0 / Me.GridX

offset 1440/ Me.GridX




--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------




.



Avatar
Ron
Le problème demeure !
les traits continuent trop bas !!!

-----Message d'origine-----
MERCI !

-----Message d'origine-----
Bonjour *aussi*

"Ron"
Quelqu'un pourrait il me modifier ma fonction, car les
lignes verticales arrivent trop bas dans mon état lorsque
une fiche tient sur 2 pages (le trait vertical arrive
alors jusque la date et N° page en pied de page !)
MErci d'avance !
N.B. mon problème d'impression de champ memo venait de la
section insécable à mettre en no (merci à Raymond !)

Private Sub Détail_Print(Cancel As Integer, PrintCount
As


Integer)
Dim x0, x1, x2, x3, x4, x5, x6 As Single, offset As
Single



'tu déclare x1, x2 et les autres en tant que
variant !!!

Dim x0 as integer, x1 as integer, x2 as integer...


offset = 0 / Me.GridX

offset 1440/ Me.GridX




--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------




.

.