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

    avatar
    Atrefh
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir um Formulário Empty [Resolvido]Imprimir um Formulário

    Mensagem  Atrefh 20/12/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.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir um Formulário Empty Re: [Resolvido]Imprimir um Formulário

    Mensagem  FabioPaes 20/12/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!
    avatar
    Atrefh
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir um Formulário Empty Re: [Resolvido]Imprimir um Formulário

    Mensagem  Atrefh 21/12/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!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir um Formulário Empty Re: [Resolvido]Imprimir um Formulário

    Mensagem  FabioPaes 22/12/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!

    Conteúdo patrocinado


    [Resolvido]Imprimir um Formulário Empty Re: [Resolvido]Imprimir um Formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 22:48