[Resolvido]Valor TextBox não aparece na impressão.

Boa tarde galera.

Ao imprimir meu relatório, os textbox contidos nele esta indo vazio na hora de imprimir.

Exemplo, na vizualização modo Exibição relatório aparece dessa maneira:


Quando vou imprimir (clicando no botão imprimir do relatório) aparece assim:


Alguem sabe o pq disso?

Ja tentei de varias maneiras e não consegui.

Desde ja Muito Obrigado!

Amigo, para que possamos lhe ajudar, terá que postar essa parte para que possamos analisar!

Eu estava jogando as informações para o textbox assim:

Código:


Set BD3 = CurrentDb()
Set Matab3 = BD3.OpenRecordset("vw_Seguimento_Estoque")

Matab3.MoveLast
QtdRegistro = Matab3.RecordCount
Matab3.MoveFirst

For Z = 1 To 36
    For t = 1 To QtdRegistro
        vgSomaProduto(Z) = vgSomaProduto(Z) + (Matab3.Fields(0) * Matab3.Fields(Y))
        Matab3.MoveNext
    Next
    Matab3.MoveFirst
    Y = Y + 1
Next

Matab3.Close
BD3.Close

For t = 1 To 36
    Label_Index = 1
    While Label_Index <= 36 ' vai em cada label para colocar os respectivos valores
      strNum = "lbD" & Label_Index
      strNum2 = "tp" & Label_Index
      Set controle = Me(strNum)
      Set controle2 = Me(strNum2)
            If controle.Caption = Left(CStr(vgVetorDias(t)), 5) Then
                controle2.Value = vgVetorProduto(Label_Index)
            End If
      Label_Index = Label_Index + 1
    Wend
Next


Por algum motivo quando eu mandava imprimir os textbox ficavam nulos.

Resolvi meu problema lincando o textbox a uma função que me retorna o valor do mesmo, assim ele busca a informação e joga no textbox.

Ficando assim:

No Textbox
Fonte de Controle: =SelectTotalProduto(1)

Agora quando mando imprimir os numeros aparecem.

Obrigado.