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

    Impressão de formulário em PDF muito grande

    avatar
    clemerson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 65
    Registrado : 28/02/2012

    Impressão de formulário em PDF muito grande Empty Impressão de formulário em PDF muito grande

    Mensagem  clemerson em 12/4/2019, 21:15

    Boa noite meus amigos,estou com um problema e queria a ajuda de vocês. Adaptei um código que achei aqui para  imprimir um formulário em pdf ,mas o mesmo sai muito grande na impressão.Queria saber de um modo de fazer essa impressão sair em formato de paisagem.Como faço?Imagem em anexo.


    On Error GoTo fim
    'Gera arquivo pdf do relatório previamente aberto e filtrado.
    DoCmd.OutputTo acOutputForm, "frmdados02", acFormatPDF, strLocal

    'Fecha o relatório
    DoCmd.Close acReport, "frmdados02"

    fim:
    If Err.Number = 2501 Then
    MsgBox "Ação cancelada pelo usuário", vbInformation, Me.Caption
    End If
    Anexos
    Impressão de formulário em PDF muito grande Attachmentfrmdados02.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (211 Kb) Baixado 8 vez(es)
    crysostomo
    crysostomo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 23/01/2018

    Impressão de formulário em PDF muito grande Empty Re: Impressão de formulário em PDF muito grande

    Mensagem  crysostomo em 15/4/2019, 13:05

    Bom dia colega , é so configurar ela para sair no modo de paisagem, caso queira ela de vba:
    Código:

     Private Sub Report_Load()
       Printer.Orientation = acPRORLandscape
       DoCmd.OpenReport "SuaTAbela", acViewPreview
     End Sub
    observação:cada configuração tem sua linha de margem limitada.


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    avatar
    clemerson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 65
    Registrado : 28/02/2012

    Impressão de formulário em PDF muito grande Empty Re: Impressão de formulário em PDF muito grande

    Mensagem  clemerson em 16/4/2019, 19:25

    Obrigado por resonder !Vai funcionar mesmo que que eu esteja gerando esse PDF direto de um formulário e não de um relatório?
    crysostomo
    crysostomo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 23/01/2018

    Impressão de formulário em PDF muito grande Empty Re: Impressão de formulário em PDF muito grande

    Mensagem  crysostomo em 16/4/2019, 19:37

    tem que ver o Código como está , se não der esse voce faz a margem dele
    Código:
    reports("NomeRelatório").printer.LeftMargin = 2 * 567 'margem esquerda com 2cm
    reports("NomeRelatório").printer.RightMargin = 1 * 567 'margem direita com 1cm

    Código:
    ?report("SeuRelatorio").Printer.Orientation = acPRORLandscape


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou

      Data/hora atual: 19/4/2019, 07:54