draw line in mid page

[kok0kok]

I want draw line in mid report page for this condithion :

if count(myfield) < 15

or ( group page rowes less than 15 row )

and start new page under this line ? ;-)

 

[dhookom]

Is this a vertical or horizontal line?

It isn't at all clear what you mean by "group page". Can you try provide more details and possibly some sample output/display?

Duane
Hook'D on Access
MS Access MVP

 

[kok0kok]

thanks :
horizental line

 

[kok0kok]

in this file i want not line in mid page 3 and page 5 started after line in page 4

 

[dhookom]

I'm not downloading and running your file from the internet. I would prefer you attempt to describe your issue in this thread.

Duane
Hook'D on Access
MS Access MVP

 

[kok0kok]

ok & thank
in my report are one group is named " dast " and my report show :
no page number rows mid horizental line i want
1 9 yes yes
2 15 yes yes
3 45(1-45) yes [red color]NO[/color]
4 2(46-47) yes yes

therefore i want start page 5 after line in page 4

i draw line in mid page with this code :

Private Sub Report_Page()
Me.Report.DrawWidth = 0.5
Me.Report.DrawStyle = 4
Me.Report.Line (0, 8150)-(12000, 8150), vbBlue
End Sub

 

[kok0kok]

ok & thank
in my report are one group is named " dast " and my report show :
no.page |rows |H line |i want | want start new page after line
1 9 yes yes yes
2 15 yes yes yes
3 45(1-45) yes [COLOR=red ]NO[/color] yes
4 2(46-47) yes yes yes

therefore i want start page 5 after line in page 4

i draw line in mid page with this code :

Private Sub Report_Page()
Me.Report.DrawWidth = 0.5
Me.Report.DrawStyle = 4
Me.Report.Line (0, 8150)-(12000, 8150), vbBlue
End Sub

 

[kok0kok]

this pic links

http://www.4shared.com/photo/oNmvWJE1/report_test_page_1.html

http://www.4shared.com/photo/1ZiGZsbM/report_test_page_4.html

http://www.4shared.com/photo/eUC_Yh51/report_test_page_3.html

http://www.4shared.com/photo/Razz2M_M/report_test_page_2.html

http://www.4shared.com/photo/v1rCdvak/report_test_design.html

 

[dhookom]

I have no idea what you have or need.

Duane
Hook'D on Access
MS Access MVP

 

[kok0kok]

i want to reach this result :

http://www.4shared.com/photo/XI6ebwQz/report_wishful_page_1.html

http://www.4shared.com/photo/nlJflGk8/report_wishful_page_2.html

http://www.4shared.com/photo/jMk4ck3z/report_wishful_page_3.html

 

[dhookom]

I can't view any of these from work. I may have time later to review.

Duane
Hook'D on Access
MS Access MVP

 

[kok0kok]

new link :-X

http://www.4shared.com/photo/MkYmp5kn/report_wishful_page_1.html

http://www.4shared.com/photo/TDibZ-hM/report_wishful_page_2.html

http://www.4shared.com/photo/OQMTtgdE/report_wishful_page_3.html

 

[dhookom]

The pictures aren't much help (at least to me). I think you need to describe in words exactly what you want to happen in your report.

Duane
Hook'D on Access
MS Access MVP

 

[kok0kok]

this pdf file

 

[kok0kok]

and this zipped word file

http://www.4shared.com/file/zjbGX1Uv/report_test.html

 

[dhookom]

Again "I think you need to describe in words exactly what you want to happen in your report."

Duane
Hook'D on Access
MS Access MVP

 

[kok0kok]

ok

please tell me your Comprehend of my Description

Subsequently i correct my Description



tank B-)

 

[dhookom]

I don't understand anything about desired results.

Duane
Hook'D on Access
MS Access MVP

 

[kok0kok]

ok

i change my question :

i want to restrain line in page 3

http://www.4shared.com/photo/eUC_Yh51/report_test_page_3.html

i draw line in mid page with this code :

Private Sub Report_Page()
Me.Report.DrawWidth = 0.5
Me.Report.DrawStyle = 4
Me.Report.Line (0, 8150)-(12000, 8150), vbBlue
End Sub

 

[dhookom]

If you don't want a line on page 3 you should be able to use code like

Private Sub Report_Page()
    If Me.Page <> 3 Then
            Me.Report.DrawWidth = 0.5
            Me.Report.DrawStyle = 4
            Me.Report.Line (0, 8150)-(12000, 8150), vbBlue
    End If
End Sub

Duane
Hook'D on Access
MS Access MVP