Banco de dados Crescendo ao Imprimir Relatório

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

Olá!

Você está VINCULANDO a imagem ou INCORPORANDO?

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

Espero que seja isso...

Grato.
Jomar.

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

Abraços