Print Preview 'Headers'

[Evan Camilleri]

I have a datagrid with headers. I managed to 'freeze' the headers OK and
then one can scroll to see contents.

I would like to be able to print this list by re-prinitng the headers on
each page.


Evan Camilleri

 

[Bruno Alexandre]

I'm not responding directly to your question because I always do it in a
diferent maner and in ASP 3.0...

I just print the Headers and then again everytime I want like

i = 0
do while not rs.eof
i = i + 1
if i = 10 then ' 10 is the number of rows that I print in the page
printheader()
i = 0
end if
printRow()

rs.movenext()
loop

and in the header I use a CSS in Header tag
style='page-break-after:always;'


but here is a link to something usefull:
http://www.alistapart.com/articles/goingtoprint/

 

[Evan Camilleri]

hmmm.. quite a 'dirty' but 'efficient' work around.
The quest is now to find a way to 'insert' a header every now and then in
the datagrid!

Thanks.

 

[Evan Camilleri]

This looks interesting:

http://www.c-sharpcorner.com/Graphics/DataGridPrinterMG.asp

 

[Evan Camilleri]

nope! it is not ASP.NET but windows.

 

[Bruno Alexandre]

use Repeter (data read) instead datagrid

hmmm.. quite a 'dirty' but 'efficient' work around.
The quest is now to find a way to 'insert' a header every now and then in
the datagrid!

Thanks.

 

[Evan Camilleri]

i had my program ready!

in any case..........i managed to make it with datagrid! something like:

dgHeaderCell is a global variable of type DataGridItem

If e.Item.ItemType = ListItemType.Footer Then
dgHeaderCell = e.Item
End If

If e.Item.ItemType = ListItemType.Footer Then
Dim dgItem As DataGridItem
Dim dgCell As TableCell
Dim iHeaderCtr As Integer = (m_RowsPerPage) + 1
Do While iHeaderCtr < dg.Items.Count
dgItem = New DataGridItem(iHeaderCtr, iHeaderCtr,
ListItemType.Header)
dgItem.Attributes.Add("style", "page-break-before:always")
For Each dgHeaderCell As TableCell In m_dgiHeader.Cells
dgCell = New TableCell
dgItem.Cells.Add(dgCell)
dgCell.Text = dgHeaderCell.Text
dgCell.Visible = dgHeaderCell.Visible
dg.Controls(0).Controls.AddAt(iHeaderCtr, dgItem)
Next
iHeaderCtr = iHeaderCtr + m_RowsPerPage + 1
Loop
End If


So i am happy for the weekend!!!!!


Evan

 

[Evan Camilleri]

updating just a small mistake i did in previous post........

m_dgiHeader is a global variable of type DataGridItem

If e.Item.ItemType = ListItemType.Footer Then
m_dgiHeader = e.Item
End If

If e.Item.ItemType = ListItemType.Footer Then
Dim dgItem As DataGridItem
Dim dgCell As TableCell
Dim iHeaderCtr As Integer = (m_RowsPerPage) + 1
Do While iHeaderCtr < dg.Items.Count
dgItem = New DataGridItem(iHeaderCtr, iHeaderCtr, ListItemType.Header)
dgItem.Attributes.Add("style", "page-break-before:always")
For Each dgHeaderCell As TableCell In m_dgiHeader.Cells
dgCell = New TableCell
dgItem.Cells.Add(dgCell)
dgCell.Text = dgHeaderCell.Text
dgCell.Visible = dgHeaderCell.Visible
dg.Controls(0).Controls.AddAt(iHeaderCtr, dgItem)
Next
iHeaderCtr = iHeaderCtr + m_RowsPerPage + 1
Loop
End If