[Resolvido]É possível gerar o relatório em um arquivo "PDF" ou "WORD" ?

Boa tarde a todos.

Estou com uma curiosidade.
Meu banco de dados gera cartas para todos os clientes. Apenas para controle eu quero possuir uma pasta que contenha todas as cartas que já foram geradas anteriormente.

Sei que é possível salvar cada arquivo como "Data Access Page", porém é muito limitado.

Gostaria de saber se ao clicar no botão para gerar a nova carta, ele automaticamente gera um arquivo em uma pasta como ".pdf" ou melhor ainda ".doc".

Atenciosamente,

Leonardo.

Para exportar como PDF

DoCmd.OutputTo acOutputReport, "NomeDoSeuRelatorio", "PDFFormat(*.pdf)", CurrentProject.path & "\PastaDentroDoDiretoriodoBD\NomedoPDF" & Format(Now, "mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreen


Cumprimentos

Coloquei esse código, alterei com o nome do meu relatório. Porém apareceu um erro de compilação...

"Compile error:
Wrong number of arguments or invalid property assignment"

Adicionei a print do erro.
https://2img.net/r/ihimg/photo/my-images/202/compileerror.jpg/

Qual o access esta utilizando?

2003

Isso pode ser falta de referencia.. Ative a referencia ADO.. e teste novamente

Onde posso verificar essa referencia ADO, seria no menu... TOOLS > REFERENCES ?!

Se for isso eu não tenho acesso, necessário ter Password. Vou verificar se alguém possui a senha e volto para verificar.

O que seria ADO? Desculpa a ignorância.

Pedirei ao colega Criquio que de uma olhada nisso.. ele tem mais intimidade com este comando..

Cumprimentos

Tentei com arquivo Excel:

DoCmd.OutputTo acOutputReport, "Carta_inteira_Lancamento", "MicrosoftExcel 97-10(*.xls)", "C:\Documents and Settings\lp85528\Desktop\PESQUISA IPS\Nome.xls", True, ""

Ele exportou com sucesso, mas o arquivo ficou todo errado por dentro, porem exportou.
Assim no mesmo processo tentei com PDF:

DoCmd.OutputTo acOutputReport, "Carta_inteira_Lancamento", "PDFformat(*.pdf)", "C:\Documents and Settings\lp85528\Desktop\PESQUISA IPS\Nome.pdf", True, ""

Me deu uma mensagem de erro dizendo que esse formato não está disponível:

"The format in which you are attempting to output the current object is not available."

...

Qual é a versão do Access? Ser for anterior ao 2007, não dá para exportar assim. Só com um complemento externo.

Para o 2003 , tente a solução do Lebans

http://www.lebans.com/reporttopdf.htm

Bom estudo!

Eu uso essa solução do Lebans no 2007, é perfeito

Achei muito interessante, só tenho problema pois aqui na empresa possuo proxy que não permite download de arquivos.

Vou estudar e experimentar em casa mais tarde, assim que possível posto um resultado.

Agradeço a todos!

Att.

Léo.

Resolvido

Oi Pessoal, o tópico já foi finalizado a algum tempo. Mas eu encontrei um função perfeita que faz gerar arquivos em PDF.

Segue código da função: (Este foi retirado de um sistema que gera cartas para clientes, verifica se a carta ja foi emitida antes, se sim ele troca o diretorio onde sera salvo o arquivo.)


'----------------------------------------------------------------------
Option Compare Database
Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Const maxTime = 20 ' in seconds
Private Const sleepTime = 250 ' in milliseconds
Private Pasta As String '= CurrentProject.Path & "\Arquivos\"

Public Function PrintRepPDF(QryTeste As String, RepName As String, NomeArquivo As String, EmitidaTF As Boolean, Optional Condicao As String = "")
PrintRepPDF = True
Dim PDFCreator1 As PDFCreator.clsPDFCreator, DefaultPrinter As String, C As Long, _
OutputFilename As String
Set PDFCreator1 = New clsPDFCreator
With PDFCreator1
.cStart "/NoProcessingAtStartup"
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
If EmitidaTF = False Then
.cOption("AutosaveDirectory") = CurrentProject.Path & "\Arquivos\Cartas de " & Format(Date, "dd.mm.yyyy") & "\" 'CAMINHO ONDE O ARQUIVO DEVERÁ SER SALVO
Else
.cOption("AutosaveDirectory") = CurrentProject.Path & "\Arquivos\Cartas 2a VIA\" & Format(Date, "dd.mm.yyyy") & "\" 'CAMINHO ONDE O ARQUIVO DEVERÁ SER SALVO CASA A CARTA JA FOI EMITIDA ANTERIORMENTE
End If
.cOption("AutosaveFilename") = NomeArquivo
.cOption("AutosaveFormat") = 0 ' 0 = PDF
DefaultPrinter = .cDefaultPrinter
.cDefaultPrinter = "PDFCreator"
.cClearCache
If Condicao <> "" Then 'CASO EXISTA ALGUMA CONDIÇÃO
DoCmd.OpenReport RepName, acViewNormal, Condicao
Else 'CASO NÃO EXISTAM CONDIÇÕES
DoCmd.OpenReport RepName, acViewNormal, QryTeste
End If
.cPrinterStop = False
End With

C = 0

Do While (PDFCreator1.cOutputFilename = "") And (C < (maxTime * 1000 / sleepTime))
C = C + 1
Sleep 200
Loop

OutputFilename = PDFCreator1.cOutputFilename

With PDFCreator1
.cDefaultPrinter = DefaultPrinter
Sleep 4000
.cClose
End With

Sleep 1000 ' Wait until PDFCreator is removed from memory

If OutputFilename = "" Then
MsgBox "Criando arquivo pdf." & vbCrLf & vbCrLf & _
"Um erro foi detectado: Tempo esgotado!", vbExclamation + vbSystemModal
PrintRepPDF = False
End If

End Function
'-----------------------------------------------------------

Valeu, abraço.

Uso Access versão 2007 em um sistema para gerir os memorandos internos e externos do meu serviço...
Quando utilizei o código:

DoCmd.OutputTo acOutputReport, "Imprimir_Memo_Externo_1porFl", "PDFFormat(*.pdf)", CurrentProject.Path & "\\Servarq\cpd 2018\00 RDM\HC\Banco - Memorando\MemoParaE-mail" & Format(Now, "mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreen

já com o nome do relatório e o local para ser salvo o arquivo ele apresentou o seguinte erro:

Erro em tempo de execução: 2282
O formato no qual você está tentando enviar o objeto atual não está disponível.

Como posso resolver esse problema, e desde já peço-lhes desculpas se não estou fazendo o questionamento no local correto !!!

RESOLVIDO.... Faltava instalar o suplemento de salvar em pdf (Aaaaaaaaffffffffffff - burrão)

Roberto

tem que atualizar o seu 2007 com o pacote sp2 ou sp3 da Microsoft.

Sucesso!