[Resolvido]Linhas e colunas em branco no relatório

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?

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!

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

Boas
Afinal resolvi o problema da variável, não estava definida.

Luís Antunes