Relatorios na WEB??????

[mcminformatica 0]

Bom dia,

Estou com dificuldade de formatar a pagina para poder imprimir certo na impressora, a impressao fica muito grande e nao cabe ma folha.

 

Abraços

 

http://forum.imasters.com.br/public/style_emoticons/default/devil.gif

[Mário Monteiro 179]

dividir em varias folhas não rola??

[silas_i 0]

TAlvez diminuir a fonte !!! http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

[silas_i 0]

A3 ????????????? Vixi...rs.rs.rs.rs.sr.sr.sr

[Mário Monteiro 179]

não vao pedir pro cara imprimir no A0 só porque cabe mais coisa...

[silas_i 0]

Ahh faltou dizer pra comprar uma impressora que imprima A3.rs.rs.rs.srBrincadeira galera.rs.rs.rs.rs.rs.sr

[navegador 0]

Pode ser a configuração do tamanho da fonte no seu Internet Explorer...

[silas_i 0]

Mas essa configuração não é só pra visualização ou estou errado !?

[Noodle 0]

É... aumentar a fonte pelo menu exibir do I.E, é só pra exibição na tela...

 

O melhor seria criar uma tabela e limitar a largura dela pro tamaho da folha que ele vai usar...

 

Bom, eu faria assim.... ehehehe... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[mcminformatica 0]

Acho que não é problema de tamanho não. Acho que vou por um botão para exportar como .xls (Excel), alguém saberia como eu uso isso em asp?

 

Abraços

 

 

http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

[Mário Monteiro 179]

você gerar tudo em uma tabela e transforma-la em em tabela de excel...

[Marcelo Barcellos 0]

Relatórios ???

Método de Saída.

 

Srs. Já tive muitos probemas com impressões de relatórios em ASP. Tem muita gente que gosta do Crystal Reports, que, eu, particularmente, odeio.

 

Até que encontrei duas formas muito legais para fazer isso.

XLS e RTF......

 

Dependendo do tipo de relatório podemos utilizar estes dois métodos para gerar nossos relatórios.

 

Começemos pelo mais facil ".xls" ou seja, Excel.

 

Os relatórios em Excel são recomendados quando trabalhamos com tabelas dinâmicas, ou seja, quando não sabemos ao certo quantas linhas terá o relatório.

 

O que nos ajuda, neste caso, é que o Excel (Officce 2000 ou superior) entende o HTML.

 

Bom, é muito simples.

Primeiro geramos todo o relatório em HTML, como se fossemos apresentar na tela do Brownser mesmo, entretanto, incluimos a seguinte TAG no topo da página;

 

ASP

[*]

 

[*]

 

[*]Response.ContentType = "application/octet-stream"

 

[*]Response.AddHeader "Content-Disposition", "attachment;filename=ResumoAcao.xls

 

[*]

 

[*]

 

Pronto, será requerido ao usuário que ele faça Download do arquivo, que estará no formato XLS....

 

O mais complicado, entretanto, o que eu mais gosto, é o RTF....

 

O RTF é perfeito para gerarmos relatórios que temos, exatamente, qual os campos que deverão ser inseridos.

 

Normalmente, utilizo o RTF para imprimir RECIBOS, NOTAS FISCAIS, etc.

 

Neste caso, nós devemos criar um arquivo no WORD, configurando da meneira que quizermos, incluindo, inclusive figuras nos rodapés, se necessário.

 

No local onde vão ser inseridas as informações do relatório, devemos colocar uma codificação diferenciada, não podendo ser utilizados acentos, nem espaços e ainda, a codificação deve ser colocada entre "#" (Sinal do Jogo da Velha).

 

Imaginemos que abaixo temos um arquivo do Word aberto.

----------------------------------------------------------------------

Nr. Nota Fiscal  |  Data de Emissao  | Usuário

----------------------------------------------------------------------

#nr_nota_fical# | #dt_emissao#      | #nm_usuario#

----------------------------------------------------------------------

 

 

Salvem este arquivo numa pasta onde tenhamos acesso para alteração de arquivos e começemos a trabalhar nosso ASP.

 

O código abaixo é auto-explicativo e utiliza FSO

 

ASP

[*]

 

[*]

 

[*]'==========================

 

[*]'CRIAMOS O OBJETO FSO

 

[*]'==========================

 

[*]

 

[*]Set ObjFso = Server.CreateObject("Scripiting.FileSystemObject")

 

[*]

 

[*]'==========================

 

[*]'ABRIMOS O ARQUIVO

 

[*]'==========================

 

[*]Set oFile = ObjFSO.OpenTextFile("nome_do_arquivo.rtf")

 

[*]

 

[*]'==========================

 

[*]'LEMOS TODO O CONTEÚDO DO ARQUIVO

 

[*]' E FECHAMOS O ARQUIVO DE MODELO

 

[*]'==========================

 

[*]strFile = Ofile.ReaAll

 

[*]oFile.Close

 

[*]

 

[*]'==========================

 

[*]'AGORA UTILIZAMOS O MÉTODO REPLACE, PARA SUBSTITUIR NOSSOS

 

[*]'CARACTERES ESPECIAIS

 

[*]'==========================

 

[*]

 

[*]StrFile = Replace(strFile,"#nr_nota_fical#",01234)

 

[*]strFile = Replace(strFile,"#dt_emissao","01/01/2005")

 

[*]strFile = Repalce(strFile,"#nm_usuario#","mebkopcznski")

 

[*]

 

[*]'==========================

 

[*]'AGORA JÁ TEMOS UM NOVO ARQUIVO RTF

 

[*]' DENTRO DA VARIAVEL "STRFILE"

 

[*]'==========================

 

[*]

 

[*]Set oFile2 = ObjFso.CreateTextFile("nome_do_arquivo2.rtf")

 

[*]oFile2.Write strFile

 

[*]oFile2.Save

 

[*]oFile2.Close

 

[*]

 

[*]'==========================

 

[*]'AGORA JÁ TEMOS UM NOVO ARQUIVO RTF

 

[*]' E REDIRECIONAMOS PARA O ARQUIVO

 

[*]'==========================

 

[*]

 

[*]Response.Redirect "nome_do_arquivo2.rtf"

 

[*]

 

[*]

 

Bom pessoal...

É isso aí...

Qualquer dúvida estamos por aí.

 

Falow !!!!

[silas_i 0]

Galera só uma correção no código...

 

ASP

[*]'CRIAMOS O OBJETO FSO

 

[*]'==========================

 

[*]Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")

 

[*]'==========================

 

[*]

 

[*]'ABRIMOS O ARQUIVO

 

[*]'==========================

 

[*]Set oFile = ObjFso.OpenTextFile(Server.MapPath("teste.rtf"))

 

[*]'==========================

 

[*]

 

[*]'LEMOS TODO O CONTEÚDO DO ARQUIVO

 

[*]' E FECHAMOS O ARQUIVO DE MODELO

 

[*]'==========================

 

[*]strFile = Ofile.ReadAll

 

[*]oFile.Close

 

[*]'==========================

 

[*]

 

[*]'AGORA UTILIZAMOS O MÉTODO REPLACE, PARA SUBSTITUIR NOSSOS

 

[*]'CARACTERES ESPECIAIS

 

[*]'==========================

 

[*]strFile = Replace(strFile,"#nr_nota_fical#",01234)

 

[*]strFile = Replace(strFile,"#dt_emissao","01/01/2005")

 

[*]strFile = Replace(strFile,"#nm_usuario#","mebkopcznski")

 

[*]'==========================

 

[*]

 

[*]'AGORA JÁ TEMOS UM NOVO ARQUIVO RTF

 

[*]' DENTRO DA VARIAVEL "STRFILE"

 

[*]'==========================

 

[*]arquivo2 = "teste2.rtf"

 

[*]Set oFile2 = ObjFso.CreateTextFile(Server.MapPath(arquivo2))

 

[*]oFile2.Write strFile

 

[*]oFile2.Save

 

[*]oFile2.Close

 

[*]'==========================

 

[*]

 

[*]'AGORA JÁ TEMOS UM NOVO ARQUIVO RTF

 

[*]' E REDIRECIONAMOS PARA O ARQUIVO

 

[*]'==========================

 

[*]Response.Redirect arquivo2