Hello,

  I am generating HTML report. Payslip of employees.
strTable="<table>"
while not rs.eof
strTable=strTable & "<tr><td>" & rs(0) & "</td><td>" & rs(1) & "</td></tr>"
   rs.movenext
wend
rs.close
strTable=strTable & "</table>"

The table may be around 22 lines. I want to print 3 payslips on each page. How can i restrict page margins, paper type, page break etc.

Pls, suggest me.

Thanx in advance

page break you can do by paging.
try this.

CONN_STRING = "DBQ=" & Server.MapPath("database.mdb") & ";"
CONN_STRING = CONN_STRING & "Driver={Microsoft Access Driver (*.mdb)};"

CONN_PASS = ""

CONN_STRING = "Provider=SQLOLEDB;Data Source=10.2.1.214;" _
    & "Initial Catalog=Admin;Connect Timeout=15;" _
    & "Network Library=dbmssocn;"
CONN_PASS = "password"


Dim iPageSize
Dim iPageCount
Dim iPageCurrent
Dim strOrderBy
Dim strSQL
Dim objPagingConn
Dim objPagingRS
Dim iRecordsShown
Dim I

iPageSize = 1 ' You could easily allow users to change this


If Request.QueryString("page") = "" Then
    iPageCurrent = 1
Else
    iPageCurrent = CInt(Request.QueryString("page"))
End If

strOrderBy = LCase(Request.QueryString("order"))

strSQL = "select distinct contractno from approvals"

Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open "" // connection string

Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize


objPagingRS.CacheSize = iPageSize

objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly, adCmdText

iPageCount = objPagingRS.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
    Response.Write "No records found!"
Else
    ' Move to the selected page
    objPagingRS.AbsolutePage = iPageCurrent

    ' Start output with a page x of n line
    %>


    <%
    ' Spacing
    Response.Write vbCrLf



<%
iRecordsShown = 0
    Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
        Response.Write vbTab & "<tr bgcolor=>" & vbCrLf
        For I = 0 To objPagingRS.Fields.Count - 1
            Response.Write vbTab & vbTab & "<td>"
        
             Response.Write objPagingRS.Fields(I)
        
            Response.Write "</td>" & vbCrLf
        Next 'I
        Response.Write vbTab & "</tr>" & vbCrLf

        ' Increment the number of records we've shown
        iRecordsShown = iRecordsShown + 1
        ' Can't forget to move to the next record!
        objPagingRS.MoveNext
    Loop

    Response.Write "</table>" & vbCrLf
End If

<%

objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing

If iPageCurrent > 1 Then
    %>

    <a href="paging.asp?page=<%= I %>&order=<%= Server.URLEncode(strOrderBy) %>"><%= I %></a>
        <%
    End If
Next 'I

If iPageCurrent < iPageCount Then
    %>
    <a href="paging.asp?page=<%= iPageCurrent + 1 %>&order=<%= Server.URLEncode(strOrderBy) %>">[Next &gt;&gt;]</a>
    <%

Hi Mateen,

I think RajaniKrishna is not asking for PAGING in display of records. He is referring to setting the PAGE MARGIN, PAGE BREAK, PAGE LENGTH etc... for the PAGE to be printed.

RajaniKrishna,
I am not sure about setting them off, Let me explore and update you if I find anything usefull.

Cheers!

_________________________
-Vijay G
Strive for Perfection

Hi RajaniKrisna,

The only thing that could help you out on this, could be the CSS.

I could find nothing else that could help you.

CSS and Printing - deals with page breaks.

CSS2 Print Reference

You can try this.
Cheers!

_________________________
-Vijay G
Strive for Perfection

Or you can read this: http://www.asp101.com/articles/john/...nt/default.asp

 - mega