Ir ao conteúdo
  • Cadastre-se
telematico

VB.NET Criar botao imprimir e inserir coluna na tabela

Recommended Posts

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

visualweb.jpg

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×