Ir ao conteúdo
  • Cadastre-se

telematico

Membro Júnior
 Perfil  Explorar Conteúdo

  • Posts

    1

  • Cadastrado em

  • Última visita

 Tipo de conteúdo 

Tudo que telematico postou

  1. telematico
    Boa Noite Sou novo aqui....Estou com o código abaixo e gostaria que o botão de imprimir, imprimisse igual a este arquivo em excel....separando os materiais por conta contabil...por empresa e calculando o total....na vdd saisse igual a este documento excel, conforme em anexo.... e o visual na web fosse igual o print. As funções de cadastrar, excluir e alterar estão sem problemas, mas não estou conseguindo fazer esta função de imprimir. codigo: <%option explicit%> <!--#include file="net_conexao.asp"--> <% if session("logado") <> "okodijeruljlkjkljldkjakn8nsn8nn8s3nj8en38n83j3j4in3j4cjnp4nkocniiruoiuciouiiurhihfhi3ui38fu83f3ff3f" then response.redirect "index.asp" end if %> <html> <head> <head><meta http-equiv="refresh" content="20;URL=not_exclu.asp"></head> <title>##</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true); //--> </script> <script src="net_form_nr.js"></script> <link rel="stylesheet" href="net_estilo.css" type="text/css"> <% Dim rsz,sqlz,vpmz,cnmosca call conectar vpmz="not" sqlz="select * from tabusu WHERE menu like '%"&vpmz&"%' and codusu like '"&session("coduso")&"'" Set rsz=cnmosca.execute(sqlz) if rsz.eof and rsz.bof then response.Redirect("pagina.asp?mensagem=ACESSO NEGADO") response.end end if %> </head> <body> <div align="center"> <table width="1000" border="0" cellpadding="0" cellspacing="5"> <tr> <td height="45" valign="top"> <!--#include file="net_menu.asp"--> </td> </tr> <tr> <td height="300" valign="top"><table class="borda" width="100%" border="0" cellpadding="0" cellspacing="3"> <tr> <td width="100%" height="20"> <div align="left"> <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC"> <tr> <td width="43%" height="30"><font color="#000000" size="3" face="Verdana">ALTERAR/ EXCLUIR NOTÍCIA</font></td> <td width="57%"><div align="center"><font color="#CC0000" size="1" face="Verdana"> <%=request.querystring("mensagem")%> </font></div></td> </tr> <tr> <td height="30"><div align="right"> <form style="MARGIN:0PX" name="form1" id="form1" method="post" action="not_exclu.asp"> <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC"> <tr> <td width="15%" height="30"> <div align="left"><font color="#000000" size="2" face="Verdana">Mês:</font><font color="#CC0000" size="1" face="Verdana"> <select name="mes" class="form1" id="mes" > <%Dim sqlopc,rsopc call conectar sqlopc="select mes from tabnoticia group by mes" set rsopc=cnmosca.execute(sqlopc)%> <option selected="selected">Todos</option> <%do while not rsopc.eof%> <option><%=rsopc("mes")%></option> <%rsopc.movenext loop rsopc.close set rsopc=nothing %> </select> /</font><font color="#000000" size="2" face="Verdana"> Ano:</font><font color="#CC0000" size="1" face="Verdana"> <select name="ano" class="form1" id="ano" > <% call conectar sqlopc="select ano from tabnoticia group by ano" set rsopc=cnmosca.execute(sqlopc)%> <option selected="selected">Selecione</option> <option value="0">- -</option> <%do while not rsopc.eof%> <option><%=rsopc("ano")%></option> <%rsopc.movenext loop rsopc.close set rsopc=nothing %> </select> <input type="submit" name="Submit" value="OK" /> </font></div> </td> </tr> </table> </form> </div></td> <td height="30"><div align="right"><font color="#CC0000" size="2" face="Arial">Para enviar a foto, clique em "Sem Foto" - Para EXCLUIR a foto, clique na foto.</font></div></td> </tr> </table> </div></td> </tr> <tr> <td><table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#666666"> <tr> <td height="19"> <table width="100%" border="0" cellpadding="0" cellspacing="2"> <tr> <td width="0" height="30" bgcolor="#CC3300"> <div align="center"><strong><font color="#FFFFFF" size="1" face="Verdana">Excluir</font></strong></div></td> <td width="0" height="30" bordercolor="#CCCCCC" bgcolor="eeeeee"> <div align="center"><strong><font size="1" face="Verdana">CONTA SIAFEM</font></strong></div></td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> <div align="center"><strong><font size="1" face="Verdana">Título</font></strong></div></td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> <div align="center"><strong><font size="1" face="Verdana">Data</font></strong></div></td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> <div align="center"><strong><font size="1" face="Verdana">Texto</font></strong></div></td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> <div align="center"><strong><font size="1" face="Verdana">cidade</font></strong></div></td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> </td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> </td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> </td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> </td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> </td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> </td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> </td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> </td> <td width="0" bgcolor="#009933"> <div align="center"><strong><font color="#FFFFFF" size="1" face="Verdana">Alterar</font></strong></div></td> </tr> <%call conectar Dim listar,o,sql,conex,pagina,reg,conte,page,vnome,vultimo,vcoduso,vmes,vano vmes=request.Form("mes") vano=request.Form("ano") Set listar = Server.CreateObject("ADODB.Recordset") listar.pagesize = 50 if vmes="" or vano="" then sql="Select * from tabnoticia order by ano, mes desc" listar.open sql, cnmosca, 1,1 elseif vmes="Todos" and vano<>"Todos" then sql="Select * from tabnoticia where ano='"&vano&"' order by ano, mes desc" listar.open sql, cnmosca, 1,1 else sql="Select * from tabnoticia where mes='"&vmes&"' and ano='"&vano&"' order by ano, mes desc" listar.open sql, cnmosca, 1,1 end if If listar.eof then response.Write("NÃO EXISTEM CADASTROS") response.End() else if request("pagina") = "" then pagina = 1 else if cint(request("pagina"))<1 then pagina = 1 else if cint(request("pagina"))> listar.pagecount then pagina = listar.pagecount else pagina = request("pagina") end if end if end if end if listar.absolutepage = pagina reg = 1 conte = 0 while conte < listar.pagesize and not listar.eof %> <tr> <td height="20"><div align="center"> <a href="not_exclu_del.asp?cod=<%=listar("codnot")%>"><img src="imag/a_blo.jpg" alt="EXCLUIR" width="15" height="15" border="0"></a> </div></td> <td height="20" bordercolor="#CCCCCC"><div align="center"><font color="#000000" size="1" face="Verdana"><%=listar("mostra")%></font></div></td> <td bordercolor="#CCCCCC"><div align="left"><font color="#000000" size="1" face="Verdana"><%=listar("titulo")%></font></div></td> <td bordercolor="#CCCCCC"><div align="center"><font color="#000000" size="1" face="Verdana"><%=listar("data")%></font></div></td> <td bordercolor="#CCCCCC"><div align="left"><font color="#000000" size="1" face="Verdana"><%=left(listar("texto"),100)%>....</font></div></td> <td bordercolor="#CCCCCC"><div align="center"><font color="#000000" size="1" face="Verdana"><%=listar("sp")%></font></div></td> <td bordercolor="#CCCCCC"> </td> <td bordercolor="#CCCCCC"> </td> <td bordercolor="#CCCCCC"> </td> <td bordercolor="#CCCCCC"> </td> <td bordercolor="#CCCCCC"> </td> <td bordercolor="#CCCCCC"> </td> <td bordercolor="#CCCCCC"> </td> <td bordercolor="#CCCCCC"> </td> <td><div align="center"><a href="not_altera.asp?cod=<%=listar("codnot")%>"><img src="imag/a_lib.jpg" alt="ALTERAR" width="15" height="15" border="0"></a> </div> </td> </tr> <tr> <td colspan="11" bgcolor="#CCCCCC"><img src="imag/linha.gif" width="34" height="1"></td> </tr> <% if reg = 4 then response.Write("</tr>") reg = 0 end if conte = conte +1 reg = reg + 1 listar.movenext wend %> </table></td> </tr> </table></td> </tr> <p> </p> </table> <script language="javascript"> function imprime(text){ text=document print(text) } </script> <form> <input type="button" name="imprimir" value="imprimir" onClick="imprime()"> </form> </td> </tr> <tr> <td height="19" valign="top"> <div align="center"> <!--#include file="net_inf.asp"--> </div></td> </tr> </table> </td> </tr> </div> <%call desconectar%> <tr> <td height="40"><div align="center"><font color="#666666" size="1" face="Verdana"><strong> <%If pagina > 1 then%> <a class="azul" href="not_exclu.asp?pagina=<%=pagina-1%>">[Página Anterior]</a> <% end if page = 1 while page <= listar.pagecount if listar.pagecount <> 1 then IF page = pagina+1-1 then %> <a class="azul" href="not_exclu.asp?pagina=<%=page%>"><u><%=page%></u></a> <%else%> <a class="azul" href="not_exclu.asp?pagina=<%=page%>"><%=page%></a> <% end if end if page = page+1 wend IF strcomp(pagina,listar.PageCount) <> 0 then %> <a class="azul" href="not_exclu.asp?pagina=<%=pagina+1%>">[Próxima Página]</a> <%end if%> </strong></font></div> </body> </html> Aguardo retorno e obrigado INVENTÁRIO FINAL GERAL - 09ABR18 1º CIA.xlsx

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

Mais

×
×
  • Criar novo...

 

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!