Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
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

Editado por DiF
Botão CODE <>

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






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

×