COMO MONTAR UM CONTRATO ?
Caros colegas,
Tenho um Sistema feito em VB6 e Access 2000.
Tenho Cadastros de:
* Clientes
* Produtos
* Tipo de Produtos
* Contratos
* Tipo de Contrato
* Entre outros...
Enfim... tudo direitinho, tudo relacionado e funcionando.
No meu cadastro de Contratos, especifico o Cliente, o Produto e o Tipo de Contrato, que pode ser "Prestação de Serviço, Licença de Uso, Etc".
Gostaria de quando clicar no Botão Imprimir do Cadastro de Contratos, ele montasse um contrato com os dados que tenho no Cadastro de Contratos e me abrisse uma tela ou o Crystal Reports para imprimir o mesmo.
Gostaria de saber se alguém já passou por isso e tem algum exemplo ou ideia que como posso fazer tal coisa.
Desde já agradeço a quem puder me ajudar
Atenciosamente,
Tenho um Sistema feito em VB6 e Access 2000.
Tenho Cadastros de:
* Clientes
* Produtos
* Tipo de Produtos
* Contratos
* Tipo de Contrato
* Entre outros...
Enfim... tudo direitinho, tudo relacionado e funcionando.
No meu cadastro de Contratos, especifico o Cliente, o Produto e o Tipo de Contrato, que pode ser "Prestação de Serviço, Licença de Uso, Etc".
Gostaria de quando clicar no Botão Imprimir do Cadastro de Contratos, ele montasse um contrato com os dados que tenho no Cadastro de Contratos e me abrisse uma tela ou o Crystal Reports para imprimir o mesmo.
Gostaria de saber se alguém já passou por isso e tem algum exemplo ou ideia que como posso fazer tal coisa.
Desde já agradeço a quem puder me ajudar
Atenciosamente,
Que tal tentar fazer e quando houver mais dificuldades você volta a postar a dúvidas?
se entendi bem oq vc quer fazer é um relatorio? com os dados dese seu form ? pega uma ferramenta e elabore ai vc tera ele no formato que quiser , ou leva tudo isso pro word
Dim Word As Word.Application
Set Word = New Word.Application
With Word
.Visible = True 'habilita visualização do word
.Documents.Add DocumentType:=wdNewBlankDocument 'Nova Pagina
.Selection.TypeText Text:=txtcod.Text 'Escreve no word
.Selection.TypeParagraph 'Enter
.Selection.TypeText Text:=txtcodimo.Text
Set Word = Nothing
End Sub
Dim Word As Word.Application
Set Word = New Word.Application
With Word
.Visible = True 'habilita visualização do word
.Documents.Add DocumentType:=wdNewBlankDocument 'Nova Pagina
.Selection.TypeText Text:=txtcod.Text 'Escreve no word
.Selection.TypeParagraph 'Enter
.Selection.TypeText Text:=txtcodimo.Text
Set Word = Nothing
End Sub
Caro WCOSTA,
Como vc certamente viu na minha pergunta, estou querendo uma ideia de como solucionar meu problema ! Então assim que eu tiver uma ideia de como fazer-lo, assim será feito.
Caro Guto,
Acho que é isso mesmo que eu estou procurando. Vou tentar resolver meu problema com base na sua ideia.
Fico muito grato pela sua atenção.
Atenciosamente,
Como vc certamente viu na minha pergunta, estou querendo uma ideia de como solucionar meu problema ! Então assim que eu tiver uma ideia de como fazer-lo, assim será feito.
Caro Guto,
Acho que é isso mesmo que eu estou procurando. Vou tentar resolver meu problema com base na sua ideia.
Fico muito grato pela sua atenção.
Atenciosamente,
Tópico encerrado , respostas não são mais permitidas