Início
![[Resolvido]Código de Linhas para relatório Empty](https://2img.net/i/empty.gif)
Luís Antunes 6/3/2018, 18:13Este código pertence ao Mestre Avelino.
Pretendia aumentar o cumprimento das linhas mas não sei como.
Luís Antunes
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