RELATÓRIOS COM O WORD.


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: RELATÓRIOS COM O WORD.

NETO711-171

IBITIARA
BA - BRASIL

Postada em 24/07/2007 09:38 hs

Pessoal, tenho que desenvolver uma rotina de imprimir relatório no word a partir do meu banco de dados. Achei um exemplo que parece legal no link abaixo:

http://www.macoratti.net/vbwdrpt.htm

O único problema é que esse exemplo usa o maldito objeto data que não funciona de jeito nenhum na minha versão do VB, já tentei mexer nas referências de todo jeito, mas sempre dá uma incompatibilidade com o acess.

Então gostaria de saber se dá pra fazer alguma adaptação no exemplo e usá-lo sem o objeto data, ou qualquer outro exemplo que funcione.

Preciso imprimir algumas informações do meu DB diretamente num documento word através de variáveis (@cliente, @numero, etc...)

KoRn

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 24/07/2007 11:05 hs

opa amigo , esse projeto tem aki tambem na Sessão Trocas de Arquivos , nao usa objeto nenhum, acho que ta do jeito que vc precisa , veja la o projeto korn_Gerar Contrato.zip .......

NETO711-171

IBITIARA
BA - BRASIL

ENUNCIADA !

Postada em 24/07/2007 14:48 hs

É muito legal esse projeto korn, já baixei ele, só que não consegui rodar ele aqui, deve ser as malditas referências também. Um amigo meu consegui rodar na versão vb dele, mas aqui no meu não teve jeito. Por isso to tendo que "reinventar a roda" pra tudo que tenho que fazer. Tenho que fazer tudo na minha versão paralítica mesmo. Isso até eu encontrar um VB 6 pra comprar. Mas agradeço a sugestão.

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 24/07/2007 15:49 hs

Neto, qual o access q vc está usando para fazer estes testes?

TÓPICO EDITADO

Ama

UBERLÂNDIA
MG - BRASIL

ENUNCIADA !

Postada em 24/07/2007 19:56 hs

caro neto é por ai mesmo tendo um projeto em maos é questao de sentar a pua e adaptar pra sua necessidade ex um projeto com data vc adapta rapidinho pra ado sem nenhum ocx ou controle vinculado projeto pronto pra atender sua necessidade dificilmente sem pagar hora de programação

Conexao

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 25/07/2007 11:37 hs

OLA

EU NÃO SEI SE ISTO PODE TEAJUDAR MAIS TENTE AI

VOCE DEVE CRIA UMA PAGINA DE WORD E SALVAR ELE EM BRACO

Private Sub TXTGERA_Click()

Dim objword As Object

Set objword = CreateObject("word.basic")

objword.filenew "normal", 0

Dim Word As New Word.Application

With Word

.Documents.Open "C:ROTEIRO.DOC"

.Visible = True

objword.Bold

objword.FontSize 11

objword.Font "ARIAL"

objword.Insert "" + Chr(13) + Chr(10)

objword.appmaximize "", 1

objword.Bold

objword.FontSize 12

objword.Font "ARIAL"

objword.Insert CStr(TXTDATA.Text)

objword.Insert "" + Chr(13) + Chr(10)

Set Word = Nothing

End With

End Sub

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR