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


2 participantes

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

    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Luís Antunes 20/9/2017, 18:29

    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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 24/9/2017, 13:39

    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Luís Antunes 26/9/2017, 20:54

    Boa Noite Teixera
    Pensei que tinha enviado o anexo, aqui vai desta vez.
    Anexos
    [Resolvido]Preenchimento de linha e colunas até ao fim da folha AttachmentRel_Rosto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (326 Kb) Baixado 5 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 28/9/2017, 16:22

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Luís Antunes 29/9/2017, 00:11

    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
    Anexos
    [Resolvido]Preenchimento de linha e colunas até ao fim da folha AttachmentRelatório.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (360 Kb) Baixado 8 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 7/10/2017, 17:14

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


    Respeito às regras : Respeito às Regras 100%

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

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

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

    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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 6/12/2017, 15:32

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 01:54