N
Nadim Al-Ghazzawi
I am using the Line, ScaleWidth and ScaleHeight combination to
programatically draw fixed height vertical lines on an invoice form. This
works great. Howeve I want to add a label in the group footer.
This label is displayed with the lines drawn on top of it. I have tried
Bring to Front for the label but this will not work.
I have also tried to create that box programatically aftyer drawing the
lines (using CreateReportControl) but I get an error saying it can't be done
in runtime.
===================================
Private Sub Report_Page()
Dim Y1, Y2 As Single
'Ceate Lines in the Detai section
Y1 = Me.PageHeaderSection.Height
Y2 = (Me.ScaleHeight - (Me.PageFooterSection.Height +
Me.GroupFooter1.Height))
Me.Line (0 * 567, Y1)-(0 * 567, Y2)
Me.Line ...etc
'Ceate Lines in the Group Footer section
Y2 = (Me.ScaleHeight - Me.PageFooterSection.Height)
Y1 = (Me.ScaleHeight - (Me.PageFooterSection.Height +
Me.GroupFooter1.Height))
Me.Line (0 * 567, Y1)-(0 * 567, Y2)
Me.Line ...etc
===================================
Any ideas out there.
Thanks.
programatically draw fixed height vertical lines on an invoice form. This
works great. Howeve I want to add a label in the group footer.
This label is displayed with the lines drawn on top of it. I have tried
Bring to Front for the label but this will not work.
I have also tried to create that box programatically aftyer drawing the
lines (using CreateReportControl) but I get an error saying it can't be done
in runtime.
===================================
Private Sub Report_Page()
Dim Y1, Y2 As Single
'Ceate Lines in the Detai section
Y1 = Me.PageHeaderSection.Height
Y2 = (Me.ScaleHeight - (Me.PageFooterSection.Height +
Me.GroupFooter1.Height))
Me.Line (0 * 567, Y1)-(0 * 567, Y2)
Me.Line ...etc
'Ceate Lines in the Group Footer section
Y2 = (Me.ScaleHeight - Me.PageFooterSection.Height)
Y1 = (Me.ScaleHeight - (Me.PageFooterSection.Height +
Me.GroupFooter1.Height))
Me.Line (0 * 567, Y1)-(0 * 567, Y2)
Me.Line ...etc
===================================
Any ideas out there.
Thanks.