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]Imprimir um Formulário

    Compartilhe

    Atrefh
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 09/02/2017

    [Resolvido]Imprimir um Formulário

    Mensagem  Atrefh em Qua 20 Dez 2017, 17:03

    Boa tarde.

    Como faço para imprimir um formulário?

    Imprimir um relatório eu consigo.

    Preciso imprimir o formulário no formato A3 e paisagem.

    Alguem conhece algum codigo para fazer isso?

    Att.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Imprimir um Formulário

    Mensagem  FabioPaes em Qua 20 Dez 2017, 19:28



    O Ideal mesmo... É relatórios... Mas é possivel!

    'Define o papel para A3
    Forms("frmCadIndividuo").Printer.PaperSize = acPRPSA3
    'Define a orientação Paisagem
    Forms("frmCadIndividuo").Printer.Orientation = acPRORLandscape
    'Imprime 1 cópia somente o Registro Atual
    DoCmd.PrintOut acSelection, CurrentRecord, CurrentRecord, acMedium, 1


    Mude o Nome do Formulário para o seu.


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

    Atrefh
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 09/02/2017

    Re: [Resolvido]Imprimir um Formulário

    Mensagem  Atrefh em Qui 21 Dez 2017, 11:17

    Lá disse que CurrentRecord é parametro inválido.

    Modifiquei o código e funcionou dessa maneira:

    Código:

    'Define o papel para A3
    Forms("frm_Consumo_Diario_PT").Printer.PaperSize = acPRPSA4
    'Define a orientação Paisagem
    Forms("frm_Consumo_Diario_PT").Printer.Orientation = acPRORLandscape
    'Define as margens do papel
    Forms("frm_Consumo_Diario_PT").Printer.LeftMargin = 0.3 * 567
    Forms("frm_Consumo_Diario_PT").Printer.RightMargin = 0.3 * 567

    DoCmd.PrintOut acPages, 1, 1, acHigh, 1

    Muito Obrigado!
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Imprimir um Formulário

    Mensagem  FabioPaes em Sex 22 Dez 2017, 12:32

    Olá, que bom que deu certo!!!

    Aqui testado no Access 2013 e não apresentou erros! Possivelmente seja função que não existia em outras versões!

    Até a próxima se Deus quiser!


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

      Data/hora atual: Qua 17 Jan 2018, 20:07