Bom Dia

 

Por acas alguem aqui usa essa excelente DLL para criar relatoriosno VB6.Dizem que ela e muito boa.

 

Na verdade eu gostaria de saber se e possivel criar tabelas nos relatorios tipo (Word/Excel), com esse componente.

 

O meu problema mesmo e o seguinte.Eu uso  Crystal Reports e a nao ser que eu nao saiba fazer direito ele e pessimo para se montar essas tabelas (Word/Excel) e eu tenho varios relatorios que devem ser impressos em forma de tabela.

 

Por acaso haveria uma outra maneira de se fazer isso, usando o Print/Printer por exemplo?

 

Muito Obrigado

Olá, amigo, eu não conheço direito essa DLL. Já ouvi falar nela, mas ainda não utilizei.

Dependendo da sua aplicação, dá para imprimir via VB num arquivo XLS do Excel utilizando o Print/Printer, sim. Eu mesmo até já fiz isso há um tempo atrás. Só não sei direito onde eu escondi o meu projeto (são tantos, que eu nem me recordo em que pasta está).

Se não me engano, aqui no Forum mesmo existem dicas de como exportar dados de uma tabela para uma planilha do Excel. Se for isso que você quer, dê uma vasculhada nas dicas e veja se algum exemplo se encaixa no seu projeto.

 

Até mais.

Muito obrigado por sua ajuda Perci.

 

Mas eu nao quero exportar meus dados para Excel/Word, o que eu quero e criar relatorios em forma de tabelas que sejam perfeitas e nao tortas como as do Crystal, onde uma linha fica maior/menor que a outra e nao se consegue alinha-las de jeito nenhum.

 

Tenho varios relatorios no Crystal, onde primeiro criei as tabelas (Tipo Word/Excel) e depois arrastei os dados para as linhas e colunas especificas.

 

Na verdade se algem tiver alguma solucao onde eu pssa criar relatorios em forma de tabelas, eu ficaria muito grato

 

Obrigado a todos

 

 

 

 

Voce ja ouviu falar em criar arquivo CSV? ele é a mesma coisa que criar um arquivo texto porém separando cada coluna por ";", depois de geradas as informações voce tem o conteúdo formatado e pronto pra abrir no Excel em forma de tabela como voce descreveu acima.

Exemplo.. eu esqueci [:)]

Open "c:arquivo.csv" For Output As FreeFile
For x = 1 To 10
    Variavel = x & ";" & x + 1
    Print #1, Variavel
Next x
Close #1