[Resolvido]Preecher o relatório com linhas em branco até o final da página.

Boa tarde Amigos.

Desculpe se estou com muitas duvidas sobre o Access é que eu estou me aprofundado um pouco para desenvolver alguns programas.
É o seguinte estou fazendo um relatório e precisava que ele ficasse como uma planilha do excel. Ex: Se houver somente uma linha ou mais com dados na seção detalhes mas não chegasse até o final da página, gostaria que fosse preenchido o restante da página com linhas em branco, pq o usuário iria anotar algumas obs. nessas linhas, não sei se é possivel eu procurei no forum mas não encontrei algo parecido.

Obrigado...

Dê uma pesquisada no site Usando Access que tem exatamente o que procura.

Boa tarde Criquio, tudo bem
Eu dei uma olhada no site Usando Access que vc me falou, mas nao estou conseguindo adaptar os codigos no meu relatório, teria como colocar linhas e colunas (uma Grade) , preenchendo o restante da secão detalhes até o final da pagina.
Vc saberia o procedimento?
Obrigado...

tente adaptar




Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Const lngCols As Long = 4 'Altere para as suas especificações
Const lngRows As Long = 10 '1440 twips por polegada
Const lngV As Long = 0.3 * 1440 '3/10 polegada por cada linha
Const lngH As Long = 1.2 * 1440 '1.2 'polegadas de largura
Const lngToptPos As Long = 2 * 1440 'posição vertical do topo da linha
Const lngLeftPos As Long = 0.5 + 1440 'posição da linha à esquerda
'desenha as linhas horizontais
For k = lngToptPos To lngToptPos + lngRows * lngV Step lngV
Me.Line (lngLeftPos, k)-Step(lngCols * lngH, 0)
Next k
'desenha as linhas verticais
For k = lngLeftPos To lngLeftPos + lngCols * lngH Step lngH
Me.Line (k, lngToptPos)-Step(0, lngRows * lngV)
Next k
End Sub

Boa noite Ricardo

Então eu copiei e colei esse codigo em um relatorio, mas nao acontece nada, será que está faltando alguma linha de codigo?

Obrigado...

Ok,

Resolvido