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 : 32
    Registrado : 09/02/2017

    [Resolvido]Imprimir um Formulário

    Mensagem  Atrefh em Qua Dez 20, 2017 10:03 am

    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 : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Imprimir um Formulário

    Mensagem  FabioPaes em Qua Dez 20, 2017 12:28 pm



    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 : 32
    Registrado : 09/02/2017

    Re: [Resolvido]Imprimir um Formulário

    Mensagem  Atrefh em Qui Dez 21, 2017 4:17 am

    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 : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Imprimir um Formulário

    Mensagem  FabioPaes em Sex Dez 22, 2017 5:32 am

    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 Set 19, 2018 5:41 am