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]Botão Exportar VBA

    FabioLeitao
    FabioLeitao
    FabioLeitao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 21/12/2016
    • Mensagem nº1

    [Resolvido]Botão Exportar VBA Empty [Resolvido]Botão Exportar VBA

    Mensagem  FabioLeitao 24/12/2016, 22:02

    Boa noite galera,

    Estou com a seguinte duvida,

    segue abaixo o codigo que estou usando em um botao de exportar diretamente para PDF.

    Porem quero que saia em modo PAISAGEM pois em modo Retrato esta criando duas paginas por causa do tamanho da tabela.


    Private Sub Exportar_Click()
    On Error GoTo Err_Exportar_Click

    Dim stDocName As String

    stDocName = "Consulta_Glossario"
    DoCmd.OutputTo acOutputForm, stDocName, acFormatPDF, "C:\Manual.pdf", False
    MsgBox "Arquivo exportado com sucesso", vbDefaultButton1, "Arquivo para exportar"

    Exit_Exportar_Click:
    Exit Sub

    Err_Exportar_Click:
    MsgBox Err.Description
    Resume Exit_Exportar_Click
    End Sub


    Preciso que a exportacao saia em modo paisagem.

    Se puderem ajudar agradeço !!

    Obrigado
    • Ir para o topo
    FabioPaes
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013
    • Mensagem nº2

    [Resolvido]Botão Exportar VBA Empty Re: [Resolvido]Botão Exportar VBA

    Mensagem  FabioPaes 25/12/2016, 13:58

    Amigo, se for um relatório que quer exportar, mude o comando para:

    Código:

    On Error GoTo Err_Exportar_Click

    Dim stDocName As String

    stDocName = "NomeRelatorioAExportar" 'Nome do Relatorio a ser Aberto e Exportado
    'Abre o Relatório Minimizado
    DoCmd.OpenReport "rel_VendasCli", acViewPreview, , , acHidden
    'Coloca o Relatorio em modo Paisagem
    Reports("NomeRelatorioAExportar").Printer.Orientation = acPRORLandscape
    'Exporta para PDF
    DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, "C:\Manual.pdf", False
    'Fecha o relatório
    DoCmd.Close acReport, stDocName
    MsgBox "Arquivo exportado com sucesso", vbDefaultButton1, "Arquivo para exportar"

    Exit_Exportar_Click:
    Exit Sub

    Err_Exportar_Click:
    MsgBox Err.Description
    Resume Exit_Exportar_Click

    Agora, pelo seu Código está exportando um Formulário, seria isso? Se for, nao acha melhor criar um Relatório para fazer isso?
    Detalhe melhor sua situação!


    Obs: Para formulario mude o comando para abrir em modo Paisagem, Deve ser colocado antes da linha que exporta.:
    Forms("NomeFormulario").Printer.Orientation = acPRORLandscape


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    • Ir para o topo
    FabioLeitao
    FabioLeitao
    FabioLeitao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 21/12/2016
    • Mensagem nº3

    [Resolvido]Botão Exportar VBA Empty Re: [Resolvido]Botão Exportar VBA

    Mensagem  FabioLeitao 25/12/2016, 18:48

    Boa Tarde Fabio,

    Muito obrigado, funcionou perfeitamente.

    Creio que em Relatório sim, seria melhor, minha situação é a seguinte, eu coloquei um botão Exportar em um formulario de consulta para que quando o técnico consulta-se um manual, pudesse exporta-lo também para PDF.

    Utilizei conforme você ensinou abaixo e funcionou como Formulário, mas como estou iniciando neste projeto e em access, não não sei como criar um relatório personalizado, vou buscar maiores informações de como faze-lo e por enquanto vou deixar como formulário.

    Caso tenha algum exemplo de relatório que possa ser implantando neste caso e puder me mostrar agradeço

    Feliz natal e Obrigado pela ajuda !!


    Private Sub Exportar_Click()
    On Error GoTo Err_Exportar_Click

    Dim stDocName As String

    stDocName = "Consulta_Glossario" 'Nome do Formulario a ser Aberto e Exportado
    'Abre o Formulario Minimizado
    DoCmd.OpenForm "Consulta_Glossario", acViewPreview, , , acHidden
    'Coloca o Formulario em modo Paisagem
    Forms("Consulta_Glossario").Printer.Orientation = acPRORLandscape
    'Exporta para PDF
    DoCmd.OutputTo acOutputForm, stDocName, acFormatPDF, "C:\Manual.pdf", False
    'Fecha o Formulario
    DoCmd.Close acForm, stDocName
    MsgBox "Manual exportado com sucesso", vbDefaultButton1, "Arquivo para exportar"

    Exit_Exportar_Click:
    Exit Sub

    Err_Exportar_Click:
    MsgBox Err.Description
    Resume Exit_Exportar_Click
    End Sub



    • Ir para o topo
    FabioPaes
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013
    • Mensagem nº4

    [Resolvido]Botão Exportar VBA Empty Re: [Resolvido]Botão Exportar VBA

    Mensagem  FabioPaes 25/12/2016, 19:36

    Grato pelo retorno amigo e até a próxima se Deus quiser!
    O relatório seria criado de forma simples... o detalhe e que ao imprimir seria filtrado pelo manual que esta na tela.

    Pesquise aqui no Fórum sobre: imprimir relatório filtrando dados access

    Aqui tem o exemplo igual ao que te passei para relatorio.
    https://www.maximoaccess.com/t26527-resolvidopdf-e-impressao-duvidas


    Não esquece de Marcar o Tópico como RESOLVIDO.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    • Ir para o topo
    FabioLeitao
    FabioLeitao
    FabioLeitao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 21/12/2016
    • Mensagem nº5

    [Resolvido]Botão Exportar VBA Empty Re: [Resolvido]Botão Exportar VBA

    Mensagem  FabioLeitao 4/1/2017, 17:06

    Obrigado, irei seguir as recomendações e realizar novos testes.

    Resolvido.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

    [Resolvido]Botão Exportar VBA Empty Re: [Resolvido]Botão Exportar VBA

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 6/5/2024, 22:17