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

    Compartilhe
    avatar
    FabioLeitao
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 21/12/2016

    [Resolvido]Botão Exportar VBA

    Mensagem  FabioLeitao em Sab 24 Dez 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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3424
    Registrado : 14/08/2013

    Re: [Resolvido]Botão Exportar VBA

    Mensagem  FabioPaes em Dom 25 Dez 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!
    avatar
    FabioLeitao
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 21/12/2016

    Re: [Resolvido]Botão Exportar VBA

    Mensagem  FabioLeitao em Dom 25 Dez 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



    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3424
    Registrado : 14/08/2013

    Re: [Resolvido]Botão Exportar VBA

    Mensagem  FabioPaes em Dom 25 Dez 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.
    [Você precisa estar registrado e conectado para ver este link.]


    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!
    avatar
    FabioLeitao
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 21/12/2016

    Re: [Resolvido]Botão Exportar VBA

    Mensagem  FabioLeitao em Qua 04 Jan 2017, 17:06

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

    Resolvido.

      Data/hora atual: Sex 24 Nov 2017, 04:00