[Resolvido]Preenchimento de linha e colunas até ao fim da folha

Tenho um problema com um relatório que, deveria imprimir linhas e colunas até ao fim da folha conforme o código em baixo.
Quando aumento o detalhe a folha preenche as linhas pretendidas mas, os dados saem em várias folhas.
Segue em anexo um pdf com 2 relatórios. Um com os dados todos e o outro com apenas um dado, os seguintes,dados, estão distribuídos por 4 folhas.

Código:

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

'Este código teve a ajuda de João Paulo
'http://www.maximoaccess.com/t31221-resolvidoadicionar-2-colunas-no-relatorio

Dim K As Variant
Const lngCols As Long = 2 'Altere para as suas especificações (nº de colunas)
Const lngRows As Long = 24 '1440 twips por polegada (Nº de Linhas)
Const lngV As Long = 0.35 * 1440 '3/10 polegada por cada linha (Medida entre Linhas)
Const lngH As Long = 3.35 * 1440  '1.2 'polegadas de largura (Largura das colunas)
Const lngToptPos As Long = 1 * 50   'posição vertical do topo da linha
Const lngLeftPos As Long = 1 + 850  'posição da linha à esquerda

'desenha as linhas horizontais

For K = lngToptPos To lngToptPos + lngRows * lngV Step lngV
Me.Line (lngLeftPos, K)-Step(9650, 0) '1181 = Cumprimento da linha 3 cm
DrawWidth = 10
'Me.Line (lngLeftPos, K)-Step(lngCols * lngH, 0)
Next 'K
'1 ª coluna
Me.Line (835, 25)-Step(0, 12140) 'Medida à esquerda e ao topo
DrawWidth = 10 'espessura da Linha
'2ª coluna
Me.Line (2500, 25)-Step(0, 12140)
DrawWidth = 10
''3ª coluna
Me.Line (9000, 25)-Step(0, 12140)
DrawWidth = 10
'4ª coluna
Me.Line (10500, 25)-Step(0, 12140)
DrawWidth = 10

End Sub


Luís Antunes

Olá Luis Antunes,

Faltou o anexo, veja como fazer:
https://www.maximoaccess.com/t28813-como-adicionar-arquivo-ficheiro-a-mensagem-no-forum

Abraço

Boa Noite Teixera
Pensei que tinha enviado o anexo, aqui vai desta vez.

Olá Luis Antunes,
Estive a ver os anexos, compreendi o que pretende (grelha).

1) Pode indicar o tópico de origem do código que postou na mensagem nº 1.
2) Também seria mais fácil para analalisar ter postado a base de dados com os objectos envolvidos para se testar.

Um solução simples para o que pretende é:
Calcular quantas linhas tem cada pagina (exemplo 20)
Alterar a origem dos dados para uma tebela temporaria e calcular se o total de linhas a reportar é multiplo de 20.
Se não for, calcular a diferença para 20.
Depois adicionar linhas em branco da diferença.

Exemplo 30 linhas de registo , adicionando 10 em branco sai direitinho.

Se poder atender o ponto 1 e 2 , gostaria de conhecer e testar esse código.

Abraço

Boa Noite Teixera
Vou anexar o meu projecto. quando abrir a base de dados escolha o ano 2015 e o mês de maio e depois mande imprimir. Os dados do relatório ficam separados por várias linhas.

Fico-lhe agradecido pelo interesse

Luís Antunes

Olá Luis Antunes,
Hoje baixei o seu exemplo e estive a ver o código.
Aparentemente só faz a "grelha" quando o detalhe tem espaço, pela lógica o xetalhe deveria ser do tamanho das linhas e preencher o restante.
Eu normalmente para esse efeito uso tabela temporária e adiciono linhas em branco da diferença.

Vi que tem outro tópico em que conseguiu aplicar este código:
https://www.maximoaccess.com/t31221-resolvidoadicionar-2-colunas-no-relatorio
Se possível complete com exemplo para estudar melhor.

Abraço

ahteixeira

Pensei melhor.
Os modelos, originais, estão em excel. fica mais fácil transferir os dados para as folhas de excel.
De qualquer maneira obrigado pelo seu interesse.


Luís Antunes

Olá Luis Antunes,
Obrigado pelo retorno, o fórum agradece.
Abraço