Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa tarde,
Venho pedir-lhes alguma ajuda para solucionar meu problema ...
Preciso fazer quebras de paginas para a pagina do relatorio para possiveis impressoes ...
Ja estou quase desistindo e direcionando-as para o Word ...
Desde Já Agradeço
aew vai o codigo !!!
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="80%">
<tr>
<td><img border="0" src="../IMAGENS/CSE.gif" width="25" height="25"></td>
<td align="center" background="../IMAGENS/topo.jpg">
<img border="0" src="../IMAGENS/bullet_1.gif" align="absmiddle">
UTILITÁRIOS
<img border="0" src="../IMAGENS/bullet_1.gif" align="absmiddle">
</td>
<td>
<img border="0" src="../IMAGENS/CSD.gif" width="25" height="25">
</td>
</tr>
<tr>
<td background="../IMAGENS/le.jpg"> </td>
<td bgcolor="#EDF3F9">
<table border="0" style="border-collapse: collapse" width="100%">
<tr>
<td colspan="6">
<p align="center" style="margin-top: 10px; margin-bottom: 10px">
<img src="../IMAGENS/separador.gif" width="200" height="3" border="0"></td>
</tr>
<tr>
<td width="100%" colspan="6" bgcolor="#8CB2CF" align="center">
<p align="center" style="margin-top: 5px; margin-bottom: 5px">
LISTAGEM GERAL DO CADASTRO DE AVULSOS - Tot. Reg.: <%response.write v_totreg%></td>
</tr>
<tr id="idf">
<td bgcolor="#EDF3F9" align="left">CÓD</td>
<td bgcolor="#EDF3F9" align="left">NOME</td>
<td bgcolor="#EDF3F9" align="left">NASC</td>
<td bgcolor="#EDF3F9" align="left">FONE 1</td>
<td bgcolor="#EDF3F9" align="left">ATIVIDADE</td>
<td bgcolor="#EDF3F9" align="left">E-MAIL</td>
</tr>
<tr id="idf">
<td bgcolor="#EDF3F9" align="center"> </td>
<td bgcolor="#EDF3F9" align="left">CÔNJUGE</td>
<td bgcolor="#EDF3F9" align="left">NASC</td>
<td bgcolor="#EDF3F9" align="left">FONE 2</td>
<td bgcolor="#EDF3F9" align="left"> </td>
<td bgcolor="#EDF3F9" align="left"> </td>
</tr>
<tr>
<td width="100%" bgcolor="#EDF3F9" align="center" colspan="6"> </td>
</tr>
<%
TbCadastro.MoveFirst
Do While Not TbCadastro.EOF
If TbCadastro("AG_CODIGO") < 10 Then
v_codigo = "000" & TbCadastro("AG_CODIGO")
ElseIf TbCadastro("AG_CODIGO") < 100 Then
v_codigo = "00" & TbCadastro("AG_CODIGO")
ElseIf TbCadastro("AG_CODIGO") < 1000 Then
v_codigo = "0" & TbCadastro("AG_CODIGO")
End If
%>
<tr>
<td width="7%" bgcolor="#EDF3F9" align="left">
<%=v_codigo%></td>
<td width="31%" bgcolor="#EDF3F9" align="left">
<%response.write TbCadastro("AG_NOME")%></td>
<td width="6%" bgcolor="#EDF3F9" align="left">
<%response.write TbCadastro("AG_NASCIMENTO")%></td>
<td width="10%" bgcolor="#EDF3F9" align="left">
<%response.write TbCadastro("AG_FONE1")%></td>
<td width="26%" bgcolor="#EDF3F9" align="left">
<%response.write TbCadastro("AG_ATIVIDADE")%></td>
<td width="20%" bgcolor="#EDF3F9" align="left">
<%response.write TbCadastro("AG_EMAIL")%></td>
</tr>
<tr>
<td width="7%" bgcolor="#EDF3F9" align="left">
</td>
<td width="31%" bgcolor="#EDF3F9" align="left"><%response.write TbCadastro("AG_CONJUGE")%></td>
<td width="6%" bgcolor="#EDF3F9" align="left"><%response.write TbCadastro("AG_NASCCONJ")%></td>
<td width="10%" bgcolor="#EDF3F9" align="left"><%response.write TbCadastro("AG_FONE2")%></td>
<td width="26%" bgcolor="#EDF3F9" align="left"> </td>
<td width="20%" bgcolor="#EDF3F9" align="left"> </td>
</tr>
<tr>
<td width="100%" bgcolor="#EDF3F9" align="left" colspan="6"></td>
</tr>
<%
TbCadastro.MoveNext
Loop
TbCadastro.MoveFirst
Do While Not TbCadastro.EOF
v_test = v_test + 1
TbCadastro.MoveNext
if v_test = 35 then
%> <BR style="page-break-after:always;"> <%
end if
Loop
%>
</table>
</td>
<td background="../IMAGENS/ld.jpg"> </td>
</tr>
<tr>
<td width="2%">
<img border="0" src="../IMAGENS/CIE.gif" width="25" height="25"></td>
<td align="center" background="../IMAGENS/base.jpg">
<a id="botao" HREF="javascript:window.print()" <% Response.ContentType = "application/msword" %>>Imprimir</a>
</td>
<td width="2%">
<img border="0" src="../IMAGENS/CID.gif" width="25" height="25">
</td>
</tr>
</table>Carregando comentários...