Ir para conteúdo

POWERED BY:

Arquivado

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

FGC

Imprimir Várias Carteirinhas

Recommended Posts

Ola amigos ,

 

Mais uma vez venho ao forum pedir a ajuda de vcs, bom tenho um sistema de impressão de carteirinhas que faz a impressão individual porem surgiu a necessidade de imprimir varias de uma vez só ... o sistema é de cadastro de alunos onde tem o horario do aluno e demais dados , o clienque agora que imprima todos os alunos do horario x .....

 

Abaixo o codigo que utilizo para imprimir individual

 

<!--#include file="config2.asp"-->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body leftmargin="0" topmargin="0" onload="self.print()" style="font-family:Arial; font-size:9px; color:#006666 ">
<table width="765" height="231" border="0" cellpadding="0" cellspacing="0" style="background-image:url('carteirinhalre.jpg'); background-repeat:no-repeat">
  <tr>
  <%sqlstmt = "SELECT * FROM Jogador ORDER BY Id DESC"
 
 
        

          Set rs = Server.CreateObject("ADODB.Recordset")
          rs.Open sqlstmt, Dados, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 9999
	If rs.eof then
		Exit For
	Else
		
		id = rs("ID")
		name1 = rs("nome")
		name2 = rs("nasc")
		name3 = rs("categorias")
		name4 = rs("equipe")
	
	
		
	  	description = p1 %>  
  
 		

    <td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td>   </td>
        </tr>
        <tr valign="bottom"> 
          <td height="231" valign="top"><table width="100%" height="206" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td width="32%" valign="top">
              <table width="100%" border="0" cellspacing="0" cellpadding="0" style="font-family:Arial; font-size:12px; color:#000000" height="203">
                <tr>
                  <td height="83" colspan="3"> </td>
                </tr>
                <tr>
                  <td width="24%" height="25"> </td>
                  <td colspan="2" valign="bottom" height="25"><%=name1%><font color="#000000">
                  </font> </td>
                </tr>
                <tr>
                  <td height="30"> </td>
                  <td height="30" colspan="2" valign="bottom"><br>  <%=name4%><font color="#000000">
                  </font>
                 </td>
                </tr>
                <tr>
                  <td height="30"> </td>
                  <td width="11%" height="30"> </td>
                  <td width="65%" valign="bottom" height="30"><%=name2%><font color="#000000">
                  </font>                     </td>
                </tr>
                <tr>
                  <td height="35"> </td>
                  <td height="35"> </td>
                  <td height="35" valign="bottom"><font color="#000000">
                  </font>            </td>
                </tr>
              </table></td>
              <td width="15%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="44"> </td>
                </tr>
                <tr>
                  <td height="148"><div align="center">
                                 </div></td>
                </tr>
                <tr>
                  <td> </td>
                </tr>
              </table></td>
              <td width="53%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0" style="font-family:Arial; font-size:12px; color:#000000">
                <tr>
                  <td height="165" colspan="5"> </td>
                </tr>
                <tr>
                  <td width="2%" height="23"> </td>
                  <td width="18%"> </td>
                  <td width="60%">
                   </td>
                  <td width="15%"> </td>
                  <td width="5%"> </td>
                </tr> <%
rs.MoveNext
End If
Next%>
                <tr>
                  <td colspan="5"> </td>
                </tr>
              </table></td>
            </tr>
          </table></td>
        </tr>
      </table>
      </td>
  </tr>
</table>
</body>
</html>

Abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

um simples for...next usando Ubound, que retorna o maior índice desse array

Compartilhar este post


Link para o post
Compartilhar em outros sites

um simples for...next usando Ubound, que retorna o maior índice desse array

xanburzum ,

 

E como eu colocaria isso no meu cod?

 

Abs

Compartilhar este post


Link para o post
Compartilhar em outros sites


For x = 1 to Ubound

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

 

For x = 1 to Ubound

 

xanburzum

 

ficou assim aa linha :

 

 

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sqlstmt, Dados, 3, 3

TotalRecs = rs.recordcount

x = 0

For x = 1 to Ubound

If rs.eof then

Exit For

Else

 

E da o erro

 

Número de argumentos incorreto ou atribuição de propriedade inválida: 'Ubound'

 

Valeu

Compartilhar este post


Link para o post
Compartilhar em outros sites

qual o numero do erro ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

qual o numero do erro ?

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01C2)

 

Abs

Compartilhar este post


Link para o post
Compartilhar em outros sites

No Ubound vc precisa definir seu array

 

 

Dim meuArray                  ' aqui eu crio o array vazio
meuArray(1) = "laranja"    ' e atribuo os valores pra cada posição do array
meuArray(2) = "morango" 
meuArray(3) = "melancia"
meuArray(4) = "uva"
meuArray(5) = "pêra"
for i=1 to Ubound(meuArray)
     response.write(meuArray(i);
next  'mostro na tela o maior índice que ele possuir, neste caso, 5.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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