[es] - Pomoć oko iscrtavanja linija u reportu

pmiroslav
Osijek

Član broj: 57354
Poruke: 162
*.dsl.optinet.hr.

Profil

Pomoć oko iscrtavanja linija u reportu

^{21.03.2008. u 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.

Prikačeni fajlovi

strana 1.jpg - 72.67k

strana 2.jpg - 75.5k

^{21.03.2008. u 07:24}

Trtko
Koprivnica

Član broj: 69494
Poruke: 316
*.bilokalnik.hr.

Profil

Re: Pomoć oko iscrtavanja linija u reportu

^{21.03.2008. u 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š

^{21.03.2008. u 07:43}

pmiroslav
Osijek

Član broj: 57354
Poruke: 162
*.dsl.optinet.hr.

Profil

Re: Pomoć oko iscrtavanja linija u reportu

^{21.03.2008. u 08:05}

Pomoglo je.

Trtko hvala ti

^{21.03.2008. u 08:05}

Trtko
Koprivnica

Član broj: 69494
Poruke: 316
*.bilokalnik.hr.

Profil

Re: Pomoć oko iscrtavanja linija u reportu

^{21.03.2008. u 08:27}

Nema na čemu

Kad se sretnemo prve dvije runde piva su tvoje

^{21.03.2008. u 08:27}

domaci_a_nas
Nikola Radovanović
Kragujevac

Član broj: 42333
Poruke: 301
*.dynamic.sbb.co.yu.

Profil

Re: Pomoć oko iscrtavanja linija u reportu

^{21.03.2008. u 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

Ozbiljan i odgovoran mladić

^{21.03.2008. u 09:19}

Trtko
Koprivnica

Član broj: 69494
Poruke: 316
*.bilokalnik.hr.

Profil

Re: Pomoć oko iscrtavanja linija u reportu

^{21.03.2008. u 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

^{21.03.2008. u 11:56}