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

    Linhas e colunas em branco no relatório

    Compartilhe

    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Linhas e colunas em branco no relatório

    Mensagem  Luís Antunes em 16/1/2018, 16:28

    Este código em baixo acrescenta linhas, em branco, num relatório
    Encontrei o código no Lik:
    'https://translate.google.pt/translate?hl=pt-PT&sl=en&u=https://www.pcreview.co.uk/threads/add-draw-blank-lines-to-access-report.2929347/&prev=search
    Código:
    Private LinePos As Long

    Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)

    LinePos = Me.Top + 2 * Me.Section(0).Height
    End Sub

    Private Sub Report_Page()
    For LinePos = LinePos To 10 * 1440 _
    Step Me.Section(0).Height
    Me.Line (2, LinePos)-(Me.Width, LinePos)
    Next LinePos
    End Sub

    Este código acrescenta linhas verticais do Relatório

    Código:
    Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

    '1ª coluna
    Me.Line (100, 0)-Step(0, Me.Section(acDetail).Parent.Height)
    DrawWidth = 8
    '2ª coluna
    Me.Line (1000, 0)-Step(0, Me.Section(acDetail).Parent.Height)
    DrawWidth = 8
    '3ª coluna
    Me.Line (3000, 0)-Step(0, Me.Section(acDetail).Parent.Height)
    DrawWidth = 8
    '4ª coluna
    Me.Line (4000, 0)-Step(0, Me.Section(acDetail).Parent.Height)
    DrawWidth = 8
    End Suub

    Há Hipótese de juntar os dois códigos para que o relatório assuma linhas e colunas?
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3469
    Registrado : 04/04/2010

    Re: Linhas e colunas em branco no relatório

    Mensagem  Avelino Sampaio em 16/1/2018, 19:20

    Luis

    veja se este meu artigo ajuda (copie e cole o endereço abaixo no seu navegador):

    usandoaccess.com.br/dicas/criando-linhas-em-relatorio.asp?id=1

    Sucesso!

    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Linhas e colunas em branco no relatório

    Mensagem  Luís Antunes em 16/1/2018, 22:02



    Boas Avelino, grato pelo interesse
    Apliquei o seu código no relatório e deu erro em "If RS com a mensagem (Variável Não definida).
    Devo ter falhado algum passo.


    Código:
    Private Sub RodapéDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
    Dim j As Byte, K As Single, q As Byte
    K = 0.6 * 567
    If rs > 24 Then Exit Sub
    '-----------------------------------------------------------------------------------------
    'Definindo a altura do controle linha
    'Necessário para expandir a área do rodapé, a fim de comportar as linhas criadas pelo LINE
    '-----------------------------------------------------------------------------------------
    Me.Linha.Height = K * (24 - rs)
    '----------------------------------------
    'Criando as linhas com o controle LINE
    '----------------------------------------
    For j = 1 To (24 - rs)
        Me.Line (0, K * (1 + j))-(567 * 15, K * (1 + j) + 10), vbBlack, BF
    Next
    'rs = 0
    End Sub

    Atenciosamente

    Luís Antunes

      Data/hora atual: 19/12/2018, 16:21