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]Código de Linhas para relatório

    Compartilhe

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 173
    Registrado : 05/04/2016

    [Resolvido]Código de Linhas para relatório

    Mensagem  Luís Antunes em 6/3/2018, 18:13

    Este código pertence ao Mestre Avelino.
    Pretendia aumentar o cumprimento das linhas mas não sei como.

    Luís Antunes

    Código:
    Private Sub RodapéDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
    Dim j As Byte, K As Single
    'Espaço entre linhas
    K = 0.73 * 567
    'Limite do nº de linhas
    If rs > 24 Then Exit Sub
    'Nº de Linhas
    For j = 1 To (16 - rs)
        Me.Controls("Linha" & (j + 1)).Top = K + (K * j)
        DrawWidth = 10
    Next
    '--------------------------------------------------------------------------------------
    'rs é zerado para não acumular valor, para o caso de uma nova solicitação de impressão
    '--------------------------------------------------------------------------------------
    rs = 0
    End Sub

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 173
    Registrado : 05/04/2016

    Re: [Resolvido]Código de Linhas para relatório

    Mensagem  Luís Antunes em 7/3/2018, 12:43

    Os cumprimentos das linhas acompanham o aumento das margens.
    Descobri isso quando reabri o access.
    Cumprimentos


    Luís Antunes

      Data/hora atual: 24/9/2018, 15:03