Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

FabianoBSB

[Resolvido] Imprimir Paginação

Por , em ASP Clássico

Recommended Posts

FabianoBSB    0

FabianoBSB
Postado

Boa tarde pessoal

Eu preciso de uma ajuda para imprimir uma páginação. É o seguinte o usuário faz uma busca no banco de dados ex: ele encontrou 50 registros que geram 5 páginas cada página contém 10 registros, o problema é quando ele manda imprimir so sai a primeira página com os dez registos as demais não. Alguem pode me dar uma ajuda pr favor!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

FabianoBSB    0

FabianoBSB
Postado

Crie um arquivo pdf com o resultado dessa busca, assim todos os resultados da busca poderão ser impressos.

Queria algo mais direto. Essa busca antes de ser impressa leva o usuário a uma visualização de impressão do internet explorer antes de ir para a impressora,assim o usuário pode configurar a impressão. O problema é imprimir todas as páginas ao invés só da 1ª

valew pela ajuda!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ou você lê o conteúdo da paginação, armazena ele em uma variavel e quando for mandar imprimir, você dá a opção de imprimir tudo ou apenas a página atual, provavelmente você esta usando um javascript para mandar imprimir e ele só lê a pag. atual

Compartilhar este post

Link para o post
Compartilhar em outros sites

FabianoBSB    0

FabianoBSB
Postado

Pode me dar uma dica de como fazer isso?? olha o codigo

Lembrando que o java que chama a função para imprimir esta página, está na página principal (index) aonde tem um frame que aparece as paginas do sistema

 

<title></title>
<p><%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="valida_login.asp" -->
<title>Resultado  Busca de Bens</title>
<%
PagAtual = Request.QueryString("PagAtual") 'página atual

Set Conn = Server.CreateObject("ADODB.Connection") 

Conn.provider ="Microsoft.Jet.OLEDB.4.0" 
Conn.connectionstring=Server.Mappath("banco.mdb")
Conn.open
consulta = Request.QueryString("busca")
Set RS = Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação
sql= " SELECT * FROM bemdecapital WHERE nr like '" & consulta & "%' OR NotaUltNmm LIKE '" & consulta & "%' OR Situação LIKE '" & consulta & "%' or Tipo like '" & Consulta & "%' or palchave like '" & Consulta &"%' Order by nr, Notaultnmm asc"


RS.Open SQL, conn, 3,3
If RS.EOF Then
Response.Write("<B><background=""Imagens/body.png"">")
Response.Write("<B><font color=""#247AC7"" size=""2"" face=""Arial"">")
Response.Write "O Registro de Número " & Consulta & " Não foi encontrado!<br>"
Response.Write("<a href=javascript:history.back(-1)><br><br>Voltar</a>")
Response.Write("</font></B> ")
Response.Write("</body></B> ")
Response.End()
End If



'############## paginacao Introdução #################

'------- Coloque aqui a quantidade de registros que você deseja por página --------

Const NumPorPage = 20

'Verifica qual a página solicitada

Dim PagAtual

IF Request.QueryString("PagAtual") = ""Then
PagAtual = 1 'Primeira página
Else
PagAtual = Request.QueryString("PagAtual")
End If

RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros

RS.MoveFirst 'Move o RecorSet para o início 
RS.PageSize = NumPorPage 'Coloca a quantidade de páginas

Dim TotalPages 'Pega o número total de páginas
TotalPages = rs.pagecount

RS.AbsolutePage = PagAtual 'Configura a página atual

'############## paginacao Introdução - FIM #################

Count = pagecount 'Zera o contador
i = 0 
%>

</p>
<html> 
<head>
<style type="text/css" media="print"> 
.invisivel { 
       display: none; 
} 
</style> 

<div class="invisivel"> 

<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red" background="Imagens/body.png">
<p align="center"><font size="1" face="Verdana"><b> </b></font><b><font size="2" face="Verdana" color="#1F497D">Foram Encontrados <%Response.write Rs.RecordCount%>
Registros </font></b><font size="2" face="Verdana" color="#1F497D"></font><b><font size="2" face="Verdana" color="#1F497D"></font></b></p>
<p align="center"><b><font size="2" face="Verdana" color="#1F497D">Clique no Número de Nr para alterar ou Clique no Número de NMM para visualizar</font></b> </p>
</div>
<div>
<table cellpadding="0" cellspacing="0" style="border-collapse:collapse;" width="1431" align="center">

   <tr>
       <td width="63" style="border-width:1; border-color:black; border-style:solid;" bgcolor="#0099FF">
           <p align="center"><b><font size="2" face="Verdana" color="white">NR</font></b></p>
       </td>
       <td width="353" style="border-width:1; border-color:black; border-style:solid;" bgcolor="#0099FF">
           <p align="center"><b><font size="2" face="Verdana" color="white">DESCRIÇÃO</font></b></p>
       </td>
       <td width="67" style="border-width:1; border-color:black; border-style:solid;" bgcolor="#0099FF">
           <p align="center"><b><font size="2" face="Verdana" color="white">NMM</font></b></p>
       </td>
       <td width="92" style="border-width:1; border-color:black; border-style:solid;" bgcolor="#0099FF">
           <p align="center"><b><font size="2" face="Verdana" color="white">DT ULT NMM</font></b></p>
       </td>
       <td width="100" style="border-width:1; border-color:black; border-style:solid;" bgcolor="#0099FF">
           <p align="center"><b><font size="2" face="Verdana" color="white">C. DE CUSTO</font></b><font size="1" face="Verdana"></font></p>
       </td>
       <td width="86" style="border-width:1; border-color:black; border-style:solid;" bgcolor="#0099FF">
           <p align="center"><b><font size="2" face="Verdana" color="white">DATA INCL.</font></b><font size="1" face="Verdana"></font></p>
       </td>
       <td width="370" style="border-width:1; border-color:black; border-style:solid;" bgcolor="#0099FF">
           <p align="center"><b><font size="2" face="Verdana" color="white">TIPO</font></b><font size="1" face="Verdana"></font></p>
       </td>
       <td width="78" style="border-width:1; border-color:black; border-style:solid;" bgcolor="#0099FF">
           <p align="center"><b><font size="2" face="Verdana" color="white">V.ORI</font></b><font size="1" face="Verdana"></font></p>
       </td>
       <td width="71" style="border-width:1; border-color:black; border-style:solid;" bgcolor="#0099FF">
           <p align="center"><b><font size="2" face="Verdana" color="white">V. RES</font></b><font size="1" face="Verdana"></font></p>
       </td>
       <td width="60" style="border-width:1; border-color:black; border-style:solid;" bgcolor="#0099FF">
           <p align="center"><b><font size="2" face="Verdana" color="white">LOCAL</font></b><font size="1" face="Verdana"></font></p>
       </td>
       <td width="79" style="border-width:1; border-color:black; border-style:solid;" bgcolor="#0099FF">
           <p align="center"><b><font size="2" face="Verdana" color="white">SITUAÇÃO</font></b><font size="1" face="Verdana"></font></p>
       </td>
   </tr>
   <%DO WHILE NOT RS.EOF And Count < RS.PageSize%>
   <tr>
       <td width="63" style="border-width:1; border-color:black; border-style:solid;">
           <p><a href='Bem_de_Capital_Alt.asp?Nr=<%=RS.fields("NR")%>'><font size="1" face="Verdana" color="#1F497D"><%Response.Write rs("NR")%>  </font></a></td>
       <td width="353" style="border-width:1; border-color:black; border-style:solid;">
           <p><b><font size="1" face="Verdana,Arial" color="#1F497D"><%Response.write RS("palchave")%> </font></b></p>
       </td>
       <td width="67" style="border-width:1; border-color:black; border-style:solid;">
           <p><b><a href='visualizar_nmm.asp?Numero=<%=Rs("NotaUltNMM")%>'><font size="1" face="Verdana,Arial" color="#1F497D"><%Response.write RS("notaultnmm")%></font></a></b></p>
       </td>
       <td width="92" style="border-width:1; border-color:black; border-style:solid;">
           <p><b><font size="1" face="Verdana,Arial" color="#1F497D"><%Response.write RS("dataultnmm")%></font></b></p>
       </td>
       <td width="100" style="border-width:1; border-color:black; border-style:solid;">
           <p><b><font size="1" face="Verdana" color="#1F497D"><%Response.write RS("CCPróprio")%></font></b></p>
       </td>
       <td width="86" style="border-width:1; border-color:black; border-style:solid;">
           <p><b><font size="1" face="Verdana" color="#1F497D"><%Response.write RS("DtaIncAtivo")%></font></b></p>
       </td>
       <td width="370" style="border-width:1; border-color:black; border-style:solid;">
           <p><b><font size="1" face="Verdana" color="#1F497D"><%Response.write RS("Tipo")%></font></b></p>
       </td>
       <td width="78" style="border-width:1; border-color:black; border-style:solid;">
           <p><b><font size="1" face="Verdana" color="#1F497D"><%Response.write RS("ValorOrBem")%></font></b></p>
       </td>
       <td width="71" style="border-width:1; border-color:black; border-style:solid;">
           <p><b><font size="1" face="Verdana" color="#1F497D"><%Response.write RS("ValorResBem")%></font></b></p>
       </td>
       <td width="60" style="border-width:1; border-color:black; border-style:solid;">
           <p><b><font size="1" face="Verdana" color="#1F497D"><%Response.write RS("StrLoc")%></font></b></p>
       </td>
       <td width="79" style="border-width:1; border-color:black; border-style:solid;">
           <p><b><font size="1" face="Verdana" color="#1F497D"><%Response.write RS("situação")%></font></b></td>
   </tr>

   <%				
				i = i+1
Count = Count + 1 
RS.MoveNext
LOOP %>
</table>
<p> </p>

</div>



<%'Fim para impressao
%>
<div class="invisivel">


   <p align="center"><%

'################## paginacao 01 #####################



'Coloca o Nº página atual / Nº Total de páginas

Response.Write("<B><font color=""#247AC7"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ") 

'Mostra os botões: Anterior e Próxima, utilizando da opção de IF 

IF PagAtual > 1 THEN 

'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
Response.Write("<B><font color=""#247AC7"" size=""2"" face=""Arial"">") 
Response.Write("<a href='Tabela_busca.asp?PagAtual=" & 1 &  "&Busca=" &Consulta&"'>")
Response.Write("Primeira") 
Response.Write("</a></font></B> ")

Response.Write("<B><font color=""#247AC7"" size=""2"" face=""Arial"">") 
Response.Write("<a href='Tabela_busca.asp?PagAtual=" & PagAtual - 1 & "&Busca=" &Consulta&"'>")
Response.Write("Anterior") 
Response.Write("</a></font></B> ")

Else

Response.Write("<B><font color=""#247AC7"" size=""2"" face=""Arial"">") 
Response.Write("Primeira") 
Response.Write("</font></B> ")

Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
Response.Write("Anterior") 
Response.Write("</font></B> ")


End If

'------------------- numero -------------------------
'---------- Numero de numeros para ser mostrados ----
max_n_mostrados = 10

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

If CInt(inicio) <1 Then 
inicio = 1
final = 10
END IF
If CInt(final) > CInt(TotalPages) Then final = TotalPages

For iB = inicio To final
If CInt(ib)=CInt(PagAtual) Then
Response.Write "<font color=""#247AC7"" size=""1"" face=""Arial"">[ <B>" & ib&"</B> <font color=""#247AC7"">]</font> "
END IF
If CInt(ib) < CInt(PagAtual) Then
Response.Write "<a href='Tabela_busca.asp?Busca="&Consulta&"&PagAtual=" & ib & "'>" & ib & "</a>"
END IF
If CInt(ib) > CInt(PagAtual) Then
Response.Write "<a href='Tabela_busca.asp?Busca="&Consulta&"&PagAtual=" & ib & "'>" & ib & "</a> "
END IF
Next

'------------------------------------------------------

IF CInt(PagAtual) <> CInt(TotalPages) THEN 

'Se estiver na última página, mostra apenas o botão Anterior e Primeira

Response.Write("<B><font color=""#247AC7"" size=""2"" face=""Arial"">")
Response.Write("<a href='Tabela_busca.asp?pagatual=" &  pagAtual + 1 & "&Busca=" &Consulta&"'>")
Response.Write("Próxima")
Response.Write("</a></font></B> ") 

Response.Write("<B><font color=""#247AC7"" size=""2"" face=""Arial"">")
Response.Write("<a href='Tabela_busca.asp?pagatual="&totalpages&  "&Busca=" &Consulta&"'>")
Response.Write("Ultima")
Response.Write("</a></font></B> ") 

Else
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
Response.Write("Próxima") 
Response.Write("</font></B> ")

Response.Write("<B><font color=""#EEEEEE"" size=""2"" face=""Arial"">")
Response.Write("Ultima") 
Response.Write("</font></B> ")
End If 
'################## fim paginacao 01 ########################
%> </p>
</div>
</body> 

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

jogue o resutado da sua SQL em um novo arquivo, assim ele irá imprimir todos , entedeu , tipo uma versão para impressão

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

beleza... se quiser postar o code como ficou....

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito