Pomoć oko iscrtavanja linija u reportu

Sa slijedećim kodom iscrtavam okomite linije u reportu kako bi razgraničio kolone


Private Sub Report_Page()
Me.ScaleMode = 1
Me.ForeColor = 0

' 1*56.69 predstavlja 1 mm
Me.Line (0 * 56.69, 1150)-(0 * 56.69, 10000)
Me.Line (27 * 56.69, 1150)-(27 * 56.69, 9850)
Me.Line (91 * 56.69, 1150)-(91 * 56.69, 9850)
Me.Line (100 * 56.69, 1150)-(100 * 56.69, 9850)
Me.Line (164 * 56.69, 1150)-(164 * 56.69, 9850)
Me.Line (170 * 56.69, 1150)-(170 * 56.69, 10000)
Me.Line (179 * 56.69, 1150)-(179 * 56.69, 10000)
Me.Line (195 * 56.69, 1150)-(195 * 56.69, 10000)
Me.Line (210 * 56.69, 1150)-(210 * 56.69, 10000)
Me.Line (246 * 56.69, 400)-(246 * 56.69, 10000)

End Sub

na prvoj stranici je sve u redu međudim na drugoj stranici, kako nema zaglavlja početak linija mi je niži nego što treba.
Može li se ovo kako popraviti.

Hmmmm, samo razmisljam pa mozda pomogne

vjerojatno bi trebao na on print ispitati
koja je strana

mstrana = Reports(imeliste).Page

if mstrana > 1 then

Me.Line (0 * 56.69, 150)-(0 * 56.69, 10000)
....
.....
else

Me.Line (0 * 56.69, 1150)-(0 * 56.69, 10000)
.....
.....
endif

ponovno iscrtavati linije za - 1 centimetar ili koliko je več potrebno

probaj pa javi

i slobodno koristiš msgbox "ispiši mi što se dešava" da vidiš što se dogadja u reportu, tj na kojoj je strani

eto možda pomogne

a ti javi ako riješiš

Pomoglo je.

Trtko hvala ti

Nema na čemu

Kad se sretnemo prve dvije runde piva su tvoje

Ja sam na početku svoje karijere pre godinu ipo dana koristio te msgboxove "pokaži mi šta se dešava", samo je bio problem kad sam zaboravio da ih uklonim iz koda i onda se korisnici čudili šta im to iskače Od tada koristim debug.print

Potpis

Ozbiljan i odgovoran mladić