MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 100%

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

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

    Mensagem  Luís Antunes em 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 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 em 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 100%

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

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

    Mensagem  Luís Antunes em 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 100%

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

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

    Mensagem  JPaulo em 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 100%

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

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

    Mensagem  Luís Antunes em 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 100%

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

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

    Mensagem  JPaulo em 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 100%

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

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

    Mensagem  Luís Antunes em 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 100%

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

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

    Mensagem  JPaulo em 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 100%

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

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

    Mensagem  Luís Antunes em 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 100%

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

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

    Mensagem  Luís Antunes em 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 100%

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

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

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

    Perfeito J. Paulo

    Fico-lhe agradecido

    Luís Antunes
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em 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 100%

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

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

    Mensagem  ahteixeira em 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 100%

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

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

    Mensagem  Luís Antunes em 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 100%

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

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

    Mensagem  JPaulo em 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: 26/5/2020, 10:54