MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Banco de dados Crescendo ao Imprimir Relatório

    Waltair M Souza
    Waltair M Souza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 104
    Registrado : 06/10/2012

    Banco de dados Crescendo ao Imprimir Relatório Empty Banco de dados Crescendo ao Imprimir Relatório

    Mensagem  Waltair M Souza em 10/6/2019, 17:13

    Olá amigos tudo bem?

    Cá estou com um problema e não achei jeito para resolver...

    Tenho um banco de dados que está rodando beleza com 380 megas no front end e 22 megas no back end

    Tenho um relatório que ao ser gerado me da 133 páginas, nele tenho pequenas imagens que são chamadas no evento ao formatar do relatório com o código abaixo

    Private Sub CabeçalhoDoGrupo2_Format(Cancel As Integer, FormatCount As Integer)

    On Error Resume Next
     Dim strImg1 As String
     Dim strImg2 As String
     strImg1 = Application.CurrentProject.Path & "\img\" & Me.iUbicacion & ".png"
     strImg2 = Application.CurrentProject.Path & "\img\vazio.png"
      If Me.iUbicacion <> "" Then
       Me.Img.Picture = strImg1
       Else
       Me.Img.Picture = strImg2
      End If
    End Sub


    Este código carrega em média umas 400 imagens no relatório porém elas têm no máximo 5 kbits cada por serem bem pequenas e simples, o que me dá apenas alguns megas no total

    Ao rodar o relatório meu banco vai para 2 gigas e assim permanece mesmo compactando ele depois.

    Desde já, agradeço qualquer auxilio dos nobres colegas.

    Windows 10 atualizado
    Office 2013 ainda 32 bits

    Grato amigos
    avatar
    jomarmattos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 11/10/2013

    Banco de dados Crescendo ao Imprimir Relatório Empty Re: Banco de dados Crescendo ao Imprimir Relatório

    Mensagem  jomarmattos em 27/6/2019, 16:22

    Olá!

    Você está VINCULANDO a imagem ou INCORPORANDO?

    Precisar ser: IMAGEM VINCULADA. (Caminho da imagem salva no micro)

    Espero que seja isso...

    Grato.
    Jomar.
    Waltair M Souza
    Waltair M Souza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 104
    Registrado : 06/10/2012

    Banco de dados Crescendo ao Imprimir Relatório Empty Re: Banco de dados Crescendo ao Imprimir Relatório

    Mensagem  Waltair M Souza em 28/6/2019, 20:16

    Boa tarde Jomar.

    Obrigado pelo interesse em ajudar...

    No meu caso a imagem é colocada no relatório em um controle de imagem com as seguintes propriedades

    Visível: Sim
    Tipo de imagem: vinculada
    Imagem: Nenhuma
    Modo tamanho: Zoom
    Largura: 3cm
    Altura 3Cm


    no evento ao formatar do formulário na Guia CabeçalhoDoGrupo2 tenho o seguinte código:

    Private Sub CabeçalhoDoGrupo2_Format(Cancel As Integer, FormatCount As Integer)
    On Error Resume Next
     Dim strImg1 As String
     Dim strImg2 As String
     strImg1 = Application.CurrentProject.Path & "\img\" & Me.TipoImagem & ".png"
     strImg2 = Application.CurrentProject.Path & "\img\vazio.png"
      If Me.TipoImagem <> "" Then
       Me.Img.Picture = strImg1
       Else
       Me.Img.Picture = strImg2
      End If
    End Sub


    ao abrir o relatório, a cada repetição do CabeçalhoDoGrupo2 uma imagem é selecionada conforme o controle me.TipoImagem muda de nome.

    Neste caso, as vezes em uma página pode ter ate 5 imagens diferentes e o relatório tem uma média de 135 páginas...

    As imagens tem no máximo 5kbits cada

    após a impressão do meu relatório fecho a aplicação e a mesma saltou de 100 megas para 2500 megas... porem não salvo nada de imagem no sistema apenas insiro elas no controle usando a opção imagem vinculada nunca inserida...

    Grato pela força Rolling Eyes

    Abraços

      Data/hora atual: 10/8/2020, 06:21