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]Preenchimento de linha e colunas até ao fim da folha

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 302
    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 em Qua Set 20, 2017 6:29 pm

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6632
    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  ahteixeira em Dom Set 24, 2017 1:39 pm

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 302
    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 em Ter Set 26, 2017 8:54 pm

    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)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6632
    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  ahteixeira em Qui Set 28, 2017 4:22 pm

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

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 302
    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 em Sex Set 29, 2017 12:11 am

    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 7 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6632
    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  ahteixeira em Sab Out 07, 2017 5:14 pm

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

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 302
    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 em Ter Out 10, 2017 1:44 pm

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6632
    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  ahteixeira em Qua Dez 06, 2017 3:32 pm

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

      Data/hora atual: Ter Maio 26, 2020 11:31 am