VISUALIZANDO E IMPRIMINDO NO WORD

USUARIO.EXCLUIDOS 10/06/2005 00:19:38
#88137
ola...............
criei no programa um cadastro de vale e recibo como um outro qual quer
como faço para visualizar e imprimir no word os dados.
DNEVONY 10/06/2005 02:04:05
#88140
me adiciona no msn que te passo uma rotina para fazer isso, só naum passo aki, pois é muito grande e precisa de arquivo mãe no word para funcionar
ELTON.CALADO 10/06/2005 11:25:24
#88208
Caro colega,

Estou fazendo da seguinte maneira:



Dim Word As Word.Application 'Declara o Objeto Word

Set Word = New Word.Application 'Seta o Objeto como Novo Objeto

With Word

.Visible = True 'habilita visualização do word
.Documents.Add DocumentType:=wdNewBlankDocument 'Nova Pagina

'TàTULO DO DOCUMENTO

'Tamanho da Fonte
.Selection.Font.Size = "16"
'Alinhamento do Texto - Centralizado
.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
'Negrito
.Selection.Font.Bold = True
'Sublinhado
.Selection.Font.Underline = True

'Enter
.Selection.TypeParagraph

.Selection.TypeText Text:="CONTRATO DE PRESTAÇÃO DE SERVIÇOS DE"
.Selection.TypeParagraph 'Enter
.Selection.TypeText Text:=" LICENÇA DE USO DE PROGRAMA DE COMPUTADOR"

'Sublinhado
.Selection.Font.Underline = False
'Negrito
.Selection.Font.Bold = False
'Enter
.Selection.TypeParagraph
'Alinhamento do Texto - Esquerda
.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
'Tamanho da Fonte
.Selection.Font.Size = "12"
'Enter
.Selection.TypeParagraph
'Enter
.Selection.TypeParagraph
'Enter
.Selection.TypeParagraph

.Selection.TypeText Text:="Contrato de prestação de Serviços de licença de uso de"

.Selection.TypeText Text:=" programa de computador, celebrado entre "

'Negrito
.Selection.Font.Bold = True

.Selection.TypeText Text:=Rst_Empresa("NOME_EMPRESA") 'Razão Social da Empresa

End With

Set Word = Nothing 'Descarrega a variavel da memória




Espero ter Ajudado.

Atenciosamente,
Tópico encerrado , respostas não são mais permitidas
Voltar