[ pmiroslav @ 21.03.2008. 07:24 ] @
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.
[ Trtko @ 21.03.2008. 07:43 ] @
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š
[ pmiroslav @ 21.03.2008. 08:05 ] @
Pomoglo je.

Trtko hvala ti
[ Trtko @ 21.03.2008. 08:27 ] @
Nema na čemu

Kad se sretnemo prve dvije runde piva su tvoje

[ domaci_a_nas @ 21.03.2008. 09:19 ] @
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
[ Trtko @ 21.03.2008. 11:56 ] @
Sad si me nasao Domaci_a_nas

Razmisljam od jutra koja je funkcija bila za prikazivanje poruka na
VAX - u , kad sam počeo programerski posao pre 20 godina.

i nikako se sjetiti.....

.... idem na pivo da mi osvjezi pamcenje