MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    Picoleo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 18/08/2011

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

    Mensagem  Picoleo em 12/9/2011, 15:46

    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.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12228
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em 12/9/2011, 16:42

    Para exportar como PDF

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


    Cumprimentos
    avatar
    Picoleo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 18/08/2011

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

    Mensagem  Picoleo em 12/9/2011, 16:56

    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://redcdn.net/ihimg/photo/my-images/202/compileerror.jpg/
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12228
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em 12/9/2011, 17:36

    Qual o access esta utilizando?
    avatar
    Picoleo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 18/08/2011

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

    Mensagem  Picoleo em 12/9/2011, 17:38

    2003
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12228
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em 12/9/2011, 17:53

    Isso pode ser falta de referencia.. Ative a referencia ADO.. e teste novamente
    avatar
    Picoleo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 18/08/2011

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

    Mensagem  Picoleo em 12/9/2011, 18:00

    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.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12228
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em 12/9/2011, 18:08

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

    Cumprimentos
    avatar
    Picoleo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 18/08/2011

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

    Mensagem  Picoleo em 12/9/2011, 20:25

    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."

    ...
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

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

    Mensagem  criquio em 13/9/2011, 00:17

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3483
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em 13/9/2011, 08:28

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

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

    Bom estudo!
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1025
    Registrado : 21/01/2010

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

    Mensagem  Gilberto Rocha em 13/9/2011, 12:01

    Eu uso essa solução do Lebans no 2007, é perfeito
    avatar
    Picoleo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 18/08/2011

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

    Mensagem  Picoleo em 13/9/2011, 14:03

    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.
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7306
    Registrado : 11/05/2010

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

    Mensagem  vieirasoft em 6/10/2011, 10:37

    Resolvido
    avatar
    Picoleo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 18/08/2011

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

    Mensagem  Picoleo em 22/12/2011, 13:12

    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.
    avatar
    Roberto Duailibe
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 20/03/2018

    [Resolvido]É possível gerar o relatório em um arquivo "PDF" ou "WORD" ? Empty Dúvida sobre salvar relatório em pdf

    Mensagem  Roberto Duailibe em 25/10/2018, 14:01

    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)


    Última edição por Roberto Duailibe em 25/10/2018, 15:43, editado 1 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3483
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em 25/10/2018, 15:08

    Roberto

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

    Sucesso!

      Data/hora atual: 26/4/2019, 01:18