Quebra de Página por Registros

Olá Marcelo, blza.

Segue um código prontinho...

CSS

<style type="text/css" media="screen">
<!--

.listarGaleria {
 width: 990px;
 position: relative;
}

.listarGaleria .listar {
width: 985px; / .listarGaleria width - (.listar margin-left + .listar margin-right) /

 overflow: auto;
 height: 500px; /* Ajusta a Altura da Tabela da Galeria */
 margin: 0 35px; /* Ajusta a Distancia da Foto entre a Seta da Esquerda */
 position: relative;
 top: 0;
}

.listarGaleria ul a img {

 border: 5px solid #ccc;
 -moz-border-radius: 5px;
 -webkit-border-radius: 5px;
}

.listarGaleria .listar ul {
width: 985px; / single item n /

 list-style-image:none;
 list-style-position:outside;
 list-style-type:none;
 margin:10;
 padding:0;
 position: absolute;
 top: 0;
}

.listarGaleria ul li {

 display:block;
 float:left;
 padding: 5px; /* Ajusta o Espaçamento da Foto */
 height: 220px; /* Ajusta a Medida da Foto */
 width: 310px; /* Ajusta a Medida da Foto */
}

.listarGaleria ul li img {

 -webkit-transition: border-color 400ms;
}

.listarGaleria ul:hover li img {

 border-color: #ccc;
}

.listarGaleria ul:hover li:hover img {

 border-color: #666;
}

.listarGaleria ul li a img {

 display:block;
}

.moldura {
 padding:5px;
 background-color: #F4EDDD;
 width: 270px;
 border: 1px solid #999999;
 -moz-border-radius: 5px;
 -webkit-border-radius: 5px;
}

-->
</style>

Tabela que lista a 6 Registro, cria nova página.

<table width="1003" border="0" cellspacing="0" cellpadding="0">
 <tr>
 <td colspan="3" class="cor3">

<!-- *************** INÍCIO da Categorias ******************** -->

<%
Dim pagina, pag, conn, listaProdutos, sql, TotalPages

pagina = Request.ServerVariables("Script_Name")
pag = Request.QueryString("pag")

If pag = "" Then
pag = 1 ' Determina qual página da paginação será aberta (deixar em 1)
End if

Set conn = CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("../db/banco.mdb")

Set listaProdutos = CreateObject("adodb.recordset")

Set listaProdutos.ActiveConnection = conn

sql = "SELECT * FROM categorias Where id Order by nome"

listaProdutos.CursorType = 3 'Tipo do cursor do RecordSet
listaProdutos.PageSize = 6 'Qtde de registros a serem exibidos por página
listaProdutos.Open sql
TotalPages = listaProdutos.PageCount
%>

<%
If listaProdutos.Eof Then

Response.Write "<br><br><br><br><br><br><br>"
Response.Write "<center><font color=red><font size=4>Nenhum Produto Cadastrado.</font></font></center>"
Response.Write "<br><br><br><br><br><br><br><br><br>"

Else
%>

<div class="listarGaleria">
 <div class="listar">
 <ul>

<%
Dim contador, maxcol, listar_id
contador = 0
maxcol = 3
listaProdutos.AbsolutePage = pag
While Not listaProdutos.EOF And i < listaProdutos.PageSize i = i + 1
listar_id = listaProdutos("id")
%>

<%
If contador <= maxcol Then
%>

	<li>
<div class="moldura">
<div align="center">
<a class="listaProdutos" href="./listar.asp?lista=produtos&nome_cat=<%=listaProdutos("id")%>&categoria=<%=listaProdutos("nome")%>"><%=listaProdutos("nome")%>

<%
If listaProdutos("foto") <> "" Then
%>

<div align="center"><img src="./fotos/categorias<%=listaProdutos("foto")%>" width="250" height="180" border="0"></div>

<%
Else
%>

<div align="center"><img src="./fotos/sem_foto.gif" width="250" height="180" border="0"></div>

<%
End If
%>

</a>
</div>
</div>

<%
contador = contador + 1
Else
%>

</li>

	<li>
<div class="moldura">
<div align="center">
<a class="listaProdutos" href="./listar.asp?lista=produtos&nome_cat=<%=listaProdutos("id")%>&categoria=<%=listaProdutos("nome")%>"><%=listaProdutos("nome")%>

<%
If listaProdutos("foto") <> "" Then
%>

<div align="center"><img src="./fotos/categorias<%=listaProdutos("foto")%>" width="250" height="180" border="0"></div>

<%
Else
%>

<div align="center"><img src="./fotos/sem_foto.gif" width="250" height="180" border="0"></div>

<%
End If
%>

</a>
 </div>
</div>

<%
contador = 1
End If
listaProdutos.MoveNext
Wend

Do While contador <= maxcol
%>

<%
contador = contador + 1
Loop
%>

</li>

 </ul>
 </div>
 </div>

<br>

<table width="990" border="0" align="center" cellpadding="1" cellspacing="1">
	<tr>
 <td>
<div align="center">
<span class="txtPaginacao"> Página <b><%=pag%></b> de <b><%=TotalPages %></b> </span>

<br />

<%
Dim max_n_mostrados, intervalo, inicio, final, i
max_n_mostrados = 500

intervalo = Int(max_n_mostrados /2)
inicio = pag - intervalo
final = pag + intervalo

If CInt(inicio) <1 Then
inicio = 1 '
final = 50 ' Número máximo de páginas que será exibidas, exemplo: (1 - 2 - 3 - 4 ... 50)
End If

If CInt(final) > CInt(TotalPages) Then final = TotalPages

For i = inicio To final
If CInt(i)=CInt(pag) Then

 Response.Write "<span class=txtPaginacao> [" & i & "] </span>"
 End If

 If CInt(i) < CInt(pag) Then

 Response.Write "<a class=paginacao href='"&pagina&"?pag=" & i & "'>" & i & "</a> "

 End If

 If CInt(i) > CInt(pag) Then

 Response.Write "<a class=paginacao href='"&pagina&"?pag=" & i & "'>" & i & "</a> "

 End If

Next
%>

</div>

</td>
 </tr>
</table>

<%
listaProdutos.Close
Set listaProdutos = Nothing
End If
%>

Esse código é exatamente o que precisa, ele irá criar Nova Página a cada 6 Registro exibidos

A Paginação ficará assim:

------------------------------------------------------------

Página 1 de 15

[1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15

------------------------------------------------------------

Mas se Pesquisar no Fórum, vai encontrar muitos outros bons exemplos também.

Espero que ajude.

Olá wilnet, obrigado, mas acho que me expressei mal.

Essa quebra de página que preciso é na impressão.

na paginação mesmo, apenas crie um botão imprimir, ou em uma nova page liste (paginação) com cabeçalho e tudo mais , tipo um relatório e com uma opção de imprimir.