MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Salvar em PDF

    vallfon
    vallfon
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 15/05/2012

    [Resolvido]Salvar em PDF Empty Salvar em PDF

    Mensagem  vallfon 18/1/2013, 21:05

    Pessoal, como posso salvar uma planilha do excel em formato pdf a partir de um formulário do access ao acionar um botão?
    Desde já agradeço!
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Salvar em PDF Empty Re: [Resolvido]Salvar em PDF

    Mensagem  criquio 18/1/2013, 21:07

    Qual é a versão do Office?


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

    vallfon
    vallfon
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 15/05/2012

    [Resolvido]Salvar em PDF Empty Re: [Resolvido]Salvar em PDF

    Mensagem  vallfon 18/1/2013, 21:09

    Versão 2007.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Salvar em PDF Empty Re: [Resolvido]Salvar em PDF

    Mensagem  criquio 18/1/2013, 22:56

    Se for somente uma planilha, tente algo assim:

    Código:
    Dim oApp As Object
     
        Set oApp = CreateObject("Excel.Application")

            oApp.workbooks.Open "C:\Caminho\Nome do arquivo.xlsx"
            oApp.Visible = False
            oApp.Worksheets("Plan1").Activate

            oApp.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Caminho\Nome do arquivo.pdf"

            oApp.Application.Quit
        Set oApp = Nothing
    Para exportar todas as planilhas, retire a linha abaixo:

    oApp.Worksheets("Plan1").Activate

    e tambem troque oApp.ActiveSheet por oApp.ActiveWorkbook.

    A referência do Excel precisa ser marcada.


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

    vallfon
    vallfon
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 15/05/2012

    [Resolvido]Salvar em PDF Empty Re: [Resolvido]Salvar em PDF

    Mensagem  vallfon 19/1/2013, 00:59

    Muito agradecido Criquio! Legal o que você fez!
    Antes de ver sua solução resolvi da seguinte maneira:

    Dim EXC As New Excel.Application
    Dim WKB As Workbook
    Dim wks As Worksheet
    Set WKB = EXC.Workbooks.Open("C:\Users\Mari\Desktop\Júlio\ConAccExcel\Form.xlsm")
    Set wks = WKB.Worksheets(1)
    'wks.Activate
    Dim destino, Nome, Numero As String

    Numero = Left(wks.Range("A7"), 4) & "-" & Right(wks.Range("A7"), 4)
    Nome = "NATO"
    destino = "C:\pdf\" & "OS Nº " & Numero & "-" & Nome & "-" & Day(Date) & "-" & Month(Date) & "-" & year(Date) & "-" & Hour(Time) & Minute(Time) & Second(Time) & ".pdf"
    wks.ExportAsFixedFormat xlTypePDF, destino

    WKB.Close
    EXC.Quit
    vallfon
    vallfon
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 15/05/2012

    [Resolvido]Salvar em PDF Empty Re: [Resolvido]Salvar em PDF

    Mensagem  vallfon 20/1/2013, 00:46

    Resolvido!!!

      Data/hora atual: 22/1/2022, 17:26