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
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 235
    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
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 235
    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: 20/3/2019, 20:18