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
Este código acrescenta linhas verticais do Relatório
Há Hipótese de juntar os dois códigos para que o relatório assuma linhas e colunas?
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?