[Resolvido]Adicionar 2 colunas no Relatório

Este código completa-me o relatório, tenha ou não tenha dados, com linhas e colunas.
As linhas só preciso de espaça-las e quantifica-las . As colunas o mesmo.
A Questão é que necessitava de colocar as colunas, no relatório, com medidas diferentes . O código dispõe as colunas  com igual medida.  
   
Exemplo do que necessito:  |  Campo da descrição                          |   Valor   |
                                                                                        

Código:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Const lngCols As Long = 2 'Altere para as suas especificações (nº de colunas)
Const lngRows As Long = 20 '1440 twips por polegada (Nº de Linhas)
Const lngV As Long = 0.3 * 1440 '3/10 polegada por cada linha (Medida entre Linhas)
Const lngH As Long = 5 * 1440 '1.2 'polegadas de largura (Largura das colunas)
Const lngToptPos As Long = 0.3 * 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

Atenciosamente

Luís Antunes

Amigo, ajudaria muito se postasse um exemplo de como esta ou deveria estar seu relatorio.

Porem, veja esse exeplo aqui:
https://www.maximoaccess.com/t28402-dividir-texto-a-cima-de-65mil-caracteres-em-caixas-de-texto-em-relatorio-com-ate-64-000-caracteres-por-caixa-e-texto?highlight=dividir
A pesar de não ter nada a ver com o seu problema, la tem uma função que adiciona Espaços x vezes... Dessa forma utilizando uma fonte Monospace é possível ter as colunas alinhadas independente da quantidade de caracteres.
Veja se é isso que precisa.

Atenção, somente é possível utilizando fonte Monospace pois essas fontes independente do caracter será ocupado o mesmo espaço. Diferente das demais fontes.

Boa tarde Fábio.
Mais uma vez lhe fico agradecido por se envolver.
O que pretendo é recriar um modelo do serviço que vou juntar como anexo.
Este modelo está feito em Excel.
Estive a ver o exemplo, na ultima página, nem as linhas ou colunas ficam preenchidas até ao fim da página

Luís Antunes

Olá a todos;

Você pode fazer o que pretende, separadamente.

Exemplo de 3 colunas, você ajusta como quiser;

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
'linha do topo
Me.Line (100, 0)-Step(Me.Section(acDetail).Parent.Height - 2050, 0)
DrawWidth = 8
'linha do fundo
Me.Line (100, 5950)-Step(Me.Section(acDetail).Parent.Height - 2050, 0)
DrawWidth = 8
End Sub

Boa Noite J.Paulo
Obrigado pelo código, ele põe-me as colunas no sítio só que não controla, ou não sei, o cumprimento da linha.
Juntei o seu código, ao da minha primeira mensagem de linhas Horizontais, e acontece o mesmo, as linhas passam para a outra página

É possível controlar o cumprimento das linhas e, se não der muito trabalho, juntar os dois códigos

Atenciosamente

Luís Antunes

O comprimento das linhas é manipulável onde diz "Me.Section(acDetail).Parent.Height".

Se você substituir o Me.Section(acDetail).Parent.Height por 1181 polegadas que é equivalente a 3cm por exemplo, vai ter sempre o cumprimento de 3cm nessa linha.

J. Paulo Bons dias
Já consegui regular a altura da colunas.
Como é que consigo regular o cumprimento da linha neste código?

Código:


Const lngRows As Long = 23 '1440 twips por polegada Nº de Linhas
Const lngV As Long = 0.4 * 1440 '3/10 polegada por cada linha Medida entre Linas
Const lngToptPos As Long = 0.6 * 1440 'posição vertical do topo da linha
Const lngLeftPos As Long = -600 + 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


Atenciosamente

Luís Antunes

Linha com 3cm;

Me.Line (lngLeftPos, k)-Step(1181, 0)

J. Paulo

Já consegui resolver o meu problema com o presente código
Agradeço a todos pelas dicas.

Código:

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.4 * 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 = 0.65 * 1440  '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(lngCols * lngH, 0)
Next K
'1 ª coluna
Me.Line (830, 900)-Step(0, 12150) 'Medida à esquerda e ao topo
DrawWidth = 8 'espessura da Linha
'2ª coluna
Me.Line (2500, 900)-Step(0, 12150)
DrawWidth = 8
''3ª coluna
Me.Line (9000, 900)-Step(0, 12150)
DrawWidth = 8
'4ª coluna
Me.Line (10500, 900)-Step(0, 12150)
DrawWidth = 8


Cumprimentos

Luís Antunes

Esqueci de dar o assunto como resolvido

Cumprimentos

Luís Antunes

Perfeito J. Paulo

Fico-lhe agradecido

Luís Antunes

Fico feliz.

Obrigado pelo retorno o forum agradece.

Olá a todos,

Luís Antunes, pode postar uma base de dados com dados de amostragem com a utilização do código desta questão.
Os membros do fórum agradecem.

Abraço

João Paulo
Enviei a BD na minha mensagem 111 a propósito de uma dúvida relacionada com este mesmo assunto.
Posso enviar a mesma base de dados para este tópico se for mais prático.

Luis Antunes

Olá;

Claro que sim.