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]Linhas e colunas em branco no relatório

    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]Linhas e colunas em branco no relatório Empty [Resolvido]Linhas e colunas em branco no relatório

    Mensagem  Luís Antunes 16/1/2018, 16:28

    Este código em baixo acrescenta linhas, em branco, num relatório
    Encontrei o código no Lik:
    'https://translate.google.pt/translate?hl=pt-PT&sl=en&u=https://www.pcreview.co.uk/threads/add-draw-blank-lines-to-access-report.2929347/&prev=search
    Código:
    Private LinePos As Long

    Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)

    LinePos = Me.Top + 2 * Me.Section(0).Height
    End Sub

    Private Sub Report_Page()
    For LinePos = LinePos To 10 * 1440 _
    Step Me.Section(0).Height
    Me.Line (2, LinePos)-(Me.Width, LinePos)
    Next LinePos
    End Sub

    Este código acrescenta linhas verticais do Relatório

    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
    End Suub

    Há Hipótese de juntar os dois códigos para que o relatório assuma linhas e colunas?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Linhas e colunas em branco no relatório Empty Re: [Resolvido]Linhas e colunas em branco no relatório

    Mensagem  Avelino Sampaio 16/1/2018, 19:20

    Luis

    veja se este meu artigo ajuda (copie e cole o endereço abaixo no seu navegador):

    usandoaccess.com.br/dicas/criando-linhas-em-relatorio.asp?id=1

    Sucesso!
    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]Linhas e colunas em branco no relatório Empty Re: [Resolvido]Linhas e colunas em branco no relatório

    Mensagem  Luís Antunes 16/1/2018, 22:02



    Boas Avelino, grato pelo interesse
    Apliquei o seu código no relatório e deu erro em "If RS com a mensagem (Variável Não definida).
    Devo ter falhado algum passo.


    Código:
    Private Sub RodapéDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
    Dim j As Byte, K As Single, q As Byte
    K = 0.6 * 567
    If rs > 24 Then Exit Sub
    '-----------------------------------------------------------------------------------------
    'Definindo a altura do controle linha
    'Necessário para expandir a área do rodapé, a fim de comportar as linhas criadas pelo LINE
    '-----------------------------------------------------------------------------------------
    Me.Linha.Height = K * (24 - rs)
    '----------------------------------------
    'Criando as linhas com o controle LINE
    '----------------------------------------
    For j = 1 To (24 - rs)
        Me.Line (0, K * (1 + j))-(567 * 15, K * (1 + j) + 10), vbBlack, BF
    Next
    'rs = 0
    End Sub

    Atenciosamente

    Luís Antunes
    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]Linhas e colunas em branco no relatório Empty Re: [Resolvido]Linhas e colunas em branco no relatório

    Mensagem  Luís Antunes 7/4/2021, 17:42

    Boas
    Afinal resolvi o problema da variável, não estava definida.

    Luís Antunes

    Conteúdo patrocinado


    [Resolvido]Linhas e colunas em branco no relatório Empty Re: [Resolvido]Linhas e colunas em branco no relatório

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 21:33