MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Adicionar 2 colunas no Relatório

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 389
    Registrado : 05/04/2016

    [Resolvido]Adicionar 2 colunas no Relatório Empty [Resolvido]Adicionar 2 colunas no Relatório

    Mensagem  Luís Antunes 5/9/2017, 01:21

    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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Adicionar 2 colunas no Relatório Empty Re: [Resolvido]Adicionar 2 colunas no Relatório

    Mensagem  FabioPaes 5/9/2017, 13:55

    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.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 389
    Registrado : 05/04/2016

    [Resolvido]Adicionar 2 colunas no Relatório Empty Adicionar 2 colunas no Relatório

    Mensagem  Luís Antunes 5/9/2017, 14:28

    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
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido]Adicionar 2 colunas no Relatório Empty Re: [Resolvido]Adicionar 2 colunas no Relatório

    Mensagem  JPaulo 5/9/2017, 15:37

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Adicionar 2 colunas no Relatório Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Adicionar 2 colunas no Relatório Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Adicionar 2 colunas no Relatório Folder_announce_new Instruções SQL como utilizar...
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 389
    Registrado : 05/04/2016

    [Resolvido]Adicionar 2 colunas no Relatório Empty Adicionar 2 colunas no Relatório

    Mensagem  Luís Antunes 5/9/2017, 20:33

    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




    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido]Adicionar 2 colunas no Relatório Empty Re: [Resolvido]Adicionar 2 colunas no Relatório

    Mensagem  JPaulo 6/9/2017, 10:45

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Adicionar 2 colunas no Relatório Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Adicionar 2 colunas no Relatório Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Adicionar 2 colunas no Relatório Folder_announce_new Instruções SQL como utilizar...
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 389
    Registrado : 05/04/2016

    [Resolvido]Adicionar 2 colunas no Relatório Empty Adicionar 2 colunas no Relatório

    Mensagem  Luís Antunes 6/9/2017, 12:20

    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
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido]Adicionar 2 colunas no Relatório Empty Re: [Resolvido]Adicionar 2 colunas no Relatório

    Mensagem  JPaulo 6/9/2017, 13:58

    Linha com 3cm;

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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Adicionar 2 colunas no Relatório Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Adicionar 2 colunas no Relatório Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Adicionar 2 colunas no Relatório Folder_announce_new Instruções SQL como utilizar...
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 389
    Registrado : 05/04/2016

    [Resolvido]Adicionar 2 colunas no Relatório Empty Adicionar 2 colunas no Relatório

    Mensagem  Luís Antunes 6/9/2017, 15:56

    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
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 389
    Registrado : 05/04/2016

    [Resolvido]Adicionar 2 colunas no Relatório Empty Adicionar 2 colunas no Relatório

    Mensagem  Luís Antunes 6/9/2017, 15:58

    Esqueci de dar o assunto como resolvido

    Cumprimentos

    Luís Antunes
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 389
    Registrado : 05/04/2016

    [Resolvido]Adicionar 2 colunas no Relatório Empty [Resolvido]Adicionar 2 colunas no Relatório

    Mensagem  Luís Antunes 6/9/2017, 17:04

    Perfeito J. Paulo

    Fico-lhe agradecido

    Luís Antunes
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido]Adicionar 2 colunas no Relatório Empty Re: [Resolvido]Adicionar 2 colunas no Relatório

    Mensagem  JPaulo 6/9/2017, 17:14

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Adicionar 2 colunas no Relatório Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Adicionar 2 colunas no Relatório Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Adicionar 2 colunas no Relatório Folder_announce_new Instruções SQL como utilizar...
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7189
    Registrado : 15/03/2013

    [Resolvido]Adicionar 2 colunas no Relatório Empty Re: [Resolvido]Adicionar 2 colunas no Relatório

    Mensagem  ahteixeira 7/10/2017, 14:44

    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

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 389
    Registrado : 05/04/2016

    [Resolvido]Adicionar 2 colunas no Relatório Empty [Resolvido]Adicionar 2 colunas no Relatório

    Mensagem  Luís Antunes 10/10/2017, 13:57

    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
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido]Adicionar 2 colunas no Relatório Empty Re: [Resolvido]Adicionar 2 colunas no Relatório

    Mensagem  JPaulo 10/10/2017, 14:44

    Olá;

    Claro que sim.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Adicionar 2 colunas no Relatório Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Adicionar 2 colunas no Relatório Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Adicionar 2 colunas no Relatório Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 17/4/2021, 16:04