[Resolvidos]Relatório exportar para .doc ou .rtf

Bom dia!

Tenho um relatório do access que está todo formatado com caixas de texto e linhas, porem se eu exportar para .doc elas somem, se imprimir convertendo para PDF fica com toda a estrutura.
Atualmente estou Imprimindo em PDF, e apos estou convertendo o PDF para .rtf através de um site.
Tem como fazer no próprio access que ele salve com a estrutura igual ao do relatório, pois preciso alterar os dados neste.

Marcos

Dê uma olhada nesse tópico: http://maximoaccess.forumeiros.com/formularios-f11/exportar-um-relatorio-com-grafico-e-tabela-para-o-word-t330.htm

Pode ser que lhe ajude.

Bom dia!

Estive observando o exemplo, porem não consigo adaptar.

Neste caminho segue o modelo do relatório que preciso salvar em .rtf ou .doc

http://www.speedyshare.com/files/25317825/Consulta_RE43_teste.pdf

Pois este ele vai para algumas pessoas preencher e devolver, sendo assim preciso que seja possivel editar dentro dos quadrados.

OBS: alguns dados já acompanha o registro, como: Referencia, Nº, data. Onde vai ser preciso preencher são as açoes.

Desde já agradeço pela atenção,

Marcos

Alguem, sabe como solucionar isso?

Marcos

Coloque num site publico o seu banco ou parte dele e o documento template word se tiver.

Migão envio abaixo uma rotina que utilizava, mas o que eu fazia era criar um formulario no word, onde adicionava campos no mesmo e esses campos eram alimentados pelo sistema gerando um novo documento.

- Declare a referencia: Microsoft word XX.X object library

- Na seção geral do modulo do formulário adicione: Public objWord As New Word.Application, objDoc As Word.Document

- Agora você terá que dar uma lida e limpada no código abaixo (desculpe-me mas o tempo esta corrido para o meu lado), para ver se o mesmo se encaixa a sua necessidade:

Function CriaVinculo(Funcao As Integer)

'ELABORAR ROTINA PARA VERIFICAR SE É UM NOVO CADASTRO OU UM JÁ EXISTENTE.
Select Case Funcao

Case 1
'Declara e Cria os objetos Application e document
'Public objWord As New Word.Application, objDoc As Word.Document

Case 2
'Adiciona um documento, baseado no modelo criado
Set objDoc = objWord.Documents.Add(App.Path & "\Modelos\Contrato de locacao.doc")

Case 3
'Atribui os valores inseridos na aplicação, aos campos de formulário do documento
objDoc.FormFields("w_NrContrato").Range = Format(tdb_Contrato(0), "0000")
objDoc.FormFields("w_NomLocatario").Range = txt_Contrato(0)
objDoc.FormFields("w_NomLocatario2").Range = txt_Contrato(0)
objDoc.FormFields("w_cpfcnpj").Range = msk_contrato(0)
objDoc.FormFields("w_ieci").Range = msk_contrato(1)
objDoc.FormFields("w_Endereco").Range = txt_Contrato(3)
objDoc.FormFields("w_Bairro").Range = txt_Contrato(4)
objDoc.FormFields("w_municipio").Range = txt_Contrato(5)
objDoc.FormFields("w_UfCliente").Range = txt_Contrato(6)
objDoc.FormFields("w_NrTelefone").Range = txt_Contrato(1)
objDoc.FormFields("w_Representante").Range = txt_Contrato(2) & " (" & txt_Contrato(10) & ")"
objDoc.FormFields("w_LocalTrabalho").Range = txt_Contrato(35)
objDoc.FormFields("w_Vigencia").Range = txt_Contrato(25) & " dia(s)"
objDoc.FormFields("w_Franquia").Range = txt_Contrato(30) & " hora(s)"

If txt_Contrato(30) <> 0 Then
objDoc.FormFields("w_CFranquia").CheckBox.Value = 1
Else
objDoc.FormFields("w_SFranquia").CheckBox.Value = 1
End If

objDoc.FormFields("w_Franquia2").Range = txt_Contrato(30) & " hora(s)"
objDoc.FormFields("w_pzrescisao").Range = 5
objDoc.FormFields("w_ValTotContrato").Range = txt_Contrato(32)
objDoc.FormFields("w_ValTotExtenso").Range = Extenso(txt_Contrato(32))
objDoc.FormFields("w_TpCobranca").Range = Mid(Combo(4), 5, (Len(Combo(4)) - 4))
objDoc.FormFields("w_DataVencimento").Range = TDBDate(4)
objDoc.FormFields("w_DespLocatario").Range = txt_Contrato(34)
objDoc.FormFields("w_DespLocador").Range = txt_Contrato(31)
objDoc.FormFields("w_Cidade").Range = "Vila Velha"
objDoc.FormFields("w_UF").Range = "ES"
objDoc.FormFields("w_DataAtual").Range = Format(TDBDate(0), "Long Date")

If txt_Contrato(37) <> "" Then
objDoc.FormFields("w_Observacao").Range = "CLÁUSULA DÉCIMA QUARTA - Informações adcionais"
objDoc.FormFields("w_Observacoes").Range = txt_Contrato(37)
End If

'ENVIA DADOS DOS SOCIOS
Dim strSOCIOS As String

For VSFLEXLINHAS = 1 To (VSFlexGrid(1).Rows - 1)

' NOME CNPJ/CPF
strSOCIOS = strSOCIOS + VSFlexGrid(1).Cell(flexcpText, VSFLEXLINHAS, 2) + String(50 - (Len(VSFlexGrid(1).Cell(flexcpText, VSFLEXLINHAS, 2))), Chr$(32)) + " (" + VSFlexGrid(1).Cell(flexcpText, VSFLEXLINHAS, 1) + ")" & vbCr & vbLf

Next VSFLEXLINHAS

'NA AUSENCIA DE SOCIOS
If strSOCIOS = " " And Option1 = True Then
strSOCIOS = "VIDE CÓPIA DE CONTRATO SOCIAL EM ANEXO"
ElseIf Option2 = True Then
strSOCIOS = "LOCAÇÃO DIRETA PARA PESSOA FISICA"
End If

objDoc.FormFields("w_Responsaveis").Range = strSOCIOS

'ENVIA DADOS DOS EQUIPAMENTOS
Dim strEQUIPAMENTOS As String
Dim strHORIMETRO As String
Dim strVALORES As String

For VSFLEXLINHAS = 1 To (VSFlexGrid(0).Rows - 1)

' NOME CNPJ/CPF
strEQUIPAMENTOS = strEQUIPAMENTOS + Format(VSFLEXLINHAS, "00") & " - " & VSFlexGrid(0).Cell(flexcpText, VSFLEXLINHAS, 2) & String(50 - (Len(VSFlexGrid(0).Cell(flexcpText, VSFLEXLINHAS, 2))), Chr$(32)) & " (" & VSFlexGrid(0).Cell(flexcpText, VSFLEXLINHAS, 1) & ")" & vbCr & vbLf
strHORIMETRO = strHORIMETRO + Format(VSFLEXLINHAS, "00") & " - " & VSFlexGrid(0).Cell(flexcpText, VSFLEXLINHAS, 2) & String(50 - (Len(VSFlexGrid(0).Cell(flexcpText, VSFLEXLINHAS, 2))), Chr$(32)) & " (" & VSFlexGrid(0).Cell(flexcpText, VSFLEXLINHAS, 1) & ")" & String(7 - (Len(VSFlexGrid(0).Cell(flexcpText, VSFLEXLINHAS, 1))), Chr$(32)) & " - " & VSFlexGrid(0).Cell(flexcpText, VSFLEXLINHAS, 4) & vbCr & vbLf
strVALORES = strVALORES + Format(VSFLEXLINHAS, "00") & " - " & VSFlexGrid(0).Cell(flexcpText, VSFLEXLINHAS, 2) & String(50 - (Len(VSFlexGrid(0).Cell(flexcpText, VSFLEXLINHAS, 2))), Chr$(32)) & " (" & VSFlexGrid(0).Cell(flexcpText, VSFLEXLINHAS, 1) & ")" + " - " + VSFlexGrid(0).Cell(flexcpText, VSFLEXLINHAS, 5) & vbCr & vbLf

Next VSFLEXLINHAS

objDoc.FormFields("w_Equipamento").Range = strEQUIPAMENTOS
objDoc.FormFields("w_Horimetros").Range = strHORIMETRO
objDoc.FormFields("w_DescValores").Range = strVALORES

'DEFINE OPERADOR
If Check(0) = 1 Then
objDoc.FormFields("w_Sera").CheckBox.Value = 1
Else
objDoc.FormFields("w_NSera").CheckBox.Value = 1
End If


'objDoc.FormFields("ChkMaisAssist").CheckBox.Value = (ChkMaisAssist.Value = 1)
'objDoc.FormFields("ChkPromocoes").CheckBox.Value = (ChkPromocoes.Value = 1)
'objDoc.FormFields("ChkFuturos").CheckBox.Value = (ChkFuturos.Value = 1)

Case 4
'Torna visível a aplicação
objWord.Visible = True

Case 5
'Seta a propriedade filter do CommomDialogControl para somente exibir arquivos do Word
Frm_Principal.CommonDialog.DialogTitle = "Selecione o contrato desejado na lista abaixo."
Frm_Principal.CommonDialog.InitDir = App.Path & "\Contratos"
Frm_Principal.CommonDialog.Filter = "Contratos de locação (*.doc)|*.doc"
Frm_Principal.CommonDialog.ShowOpen

If Len(Frm_Principal.CommonDialog.FileName) <> 0 And (Frm_Principal.CommonDialog.FileName) <> Chr$(32) Then
Set objDoc = objWord.Documents.Open(Frm_Principal.CommonDialog.FileName)
End If

Case 6
'salva o documento
objDoc.SaveAs App.Path & "\Contratos" & Format(tdb_Contrato(0), "0000") & " - " & Mid(txt_Contrato(0), 1, 10) & " - Contrato de Locacao"

Case 7
'Imprimir documento
If Len(Frm_Principal.CommonDialog.FileName) <> 0 And (Frm_Principal.CommonDialog.FileName) <> Chr$(32) Then
objDoc.PrintOut Range:=wdPrintAllDocument
End If

Case 10
'Retira os objetos da memória
objDoc.Close
Set objDoc = Nothing
Set objWord = Nothing

End Select

End Function

JP!

Segue caminho do arquivo:

http://www.speedyshare.com/files/25614989/Cadastro.rar

Vaiter um registro com o nº 65 é so visualizar, para salvar em PDF eu tenho o Cute PDF (impressora que imprime para PDF), gostaria de poder salvar este relatório para .doc ou .rtf onde poderia ser editado dentro das caixas de texto.

Marcos

Qual o nome do relatorio ?

As tabelas estão vinculadas ao seu Banco de Dados na sua Drive G:\, necessito desse tambem para poder correr com registros.

JP!

Segue em anexo,porem verifiquei e aqui ele não esta vinculado.

http://www.speedyshare.com/files/25628687/Cadastro1.rar

É o unico relatório que tem, vai abrir um formulário é apenas colocar o nº 65 e dar visualizar.

Marcos

Alguém tem alguma solução para isso?

Marcos

Vou tentar aqui, deve aguardar...

Só para lhe mostrar o caminho das pedras.

O Template do Word que lhe mando, já tem os marcadores para 3 campos.

Vai dar trabalho, mas no fim de feito é uma brincadeira.

Para inserir os marcadores (bookmark) no word, selecione o sitio onde vai aparecer o dado que deseja, vá a inserir Marcador e digite o nome igual ao do campo no banco.

Só fiz para 3 para você ver, agora pode inserir retangulos ou tabelas e fazer igual ao relatorio do Access.

O Template depois não pode ser modificado, ele já salva com a dataHora.


http://dl.dropbox.com/u/771097/Cadastro.rar

Boa tarde!

Vosso exemplo realmente funciona, no ínicio não consegui fazer mas depois de um tempo tentando consegui fazer, porem existe uma forma de quando for salvar o arquivo ele salve por exemplo no C:\RNC\nome_do_arquivo.doc

Realmente você é bom, quebrou já um baita galho,

Desde já agradeço pela atenção,

Marcos

Altere esta linha:

.ActiveDocument.SaveAs CurrentDbDir & Format(Date, "dd-mm-yy") & Format(Now, "hhnnss") & ".doc"

Para esta:

.ActiveDocument.SaveAs "C:\RNC/" & "NomeDoArquivo" & ".doc"

Coloque a barra a vermelho, para a esquerda que aqui no forum não deixa colocar.

JP!

Consegui fazer ficou muito bom, você é o cara.

Muito obrigado

Marcos

Valew pelo retorno o forum agradece.