[Resolvido]Campo não fica oculto

Tenho o seguinte código para o botão de imprimir

Private Sub Comando570_Click()
On Error GoTo Err_Comando570_Click
Dim strArquivo As String
Dim strLocal As String
Dim bytVias, bytLoop As Byte

 bytVias = InputBox("Quantas vias deseja imprimir? ", "Impressão", 2)
 If bytVias <> "" And bytVias <= 6 Then
   For bytLoop = 1 To bytVias
     If bytLoop = 1 Then MsrVersao = "ORIGINAL"
     If bytLoop = 2 Then MsrVersao = "DUPLICADO"
     If bytLoop = 3 Then MsrVersao = "TRIPLICADO"
     If bytLoop = 4 Then MsrVersao = "QUADRUPLICADO"
     If bytLoop = 5 Then MsrVersao = "QUINTUPLICADO"
     If bytLoop = 6 Then MsrVersao = "SEXTUPLICADO"
DoCmd.Save
Select Case MsgBox("COLOCAR CUMPRIMENTOS?", vbInformation + vbYesNoCancel, [001])
Case vbYes
DoCmd.OpenReport "OficioNovo", acViewPreview, , "[001] = " & [001]
DoCmd.Maximize
strArquivo = Replace(Me!cam7, "/", "_") & " _ " & Me![001] & ".pdf"
strLocal = CurrentProject.Path & "\Oficios\Oficios Expedidos\" & strArquivo
DoCmd.OutputTo acOutputReport, "OficioNovo", acFormatPDF, strLocal
   DoCmd.PrintOut
DoCmd.Close
Case vbNo
DoCmd.OpenReport "OficioNovo", acViewPreview, , "[001] = " & [001]
Reports!OficioNovo!t12.Visible = False
DoCmd.Maximize
strArquivo = Replace(Me!cam7, "/", "_") & " _ " & Me![001] & ".pdf"
strLocal = CurrentProject.Path & "\Oficios\Oficios Expedidos\" & strArquivo
DoCmd.OutputTo acOutputReport, "OficioNovo", acFormatPDF, strLocal
   DoCmd.PrintOut
End Select
Exit_Comando570_Click:
   Exit Sub
Next
End If
Err_Comando570_Click:
   MsgBox Err.Description
   Resume Exit_Comando570_Click
   
End Sub

O problema é o que está a negrito, o campo t12 fica sempre visivel e quero que ao clicar não ele fique oculto.

Bom dia
Já tentou nas propriedades desse campo: Mostrar quando= Só no Ecrâ'
Pina

Olá a todos,
Experimente ver no modo Pré-visualizar, em certas situações em Vista de Relatório não são aplicadas.

Abraço

Nuno

Tenha em mente que um relatório, é um produto final que não aceita modificações, tanto no modo de visualização
como de impressão. Mesmo sendo visualizado é um relatório, não um formulário.

Para deixar de exibir ou exibir um controle oculto (invisivel)  no relatório use a propriedade Ao abrir.

Caso não funcione, temos ainda as propriedade Ao formatar e a propredade Ao impriimir da seção Detalhe.

Experimente

[]'s

Noob

Olá Noob, bem visto, nem tinha reparado nesse pormenor, continuação de boas festas.
Nuno, veja mensagem anterior do Noob.
Abraço

Obrigado a todos, já resolvi, coloco o texto num campo do Formulário e só depois é que previsoalizo o relatório, assim:

Private Sub Comando570_Click()
On Error GoTo Err_Comando570_Click
Dim strArquivo As String
Dim strLocal As String
Dim bytVias, bytLoop As Byte

 bytVias = InputBox("Quantas vias deseja imprimir? ", "Impressão", 2)
 If bytVias <> "" And bytVias <= 6 Then
   For bytLoop = 1 To bytVias
     If bytLoop = 1 Then MsrVersao = "ORIGINAL"
     If bytLoop = 2 Then MsrVersao = "DUPLICADO"
     If bytLoop = 3 Then MsrVersao = "TRIPLICADO"
     If bytLoop = 4 Then MsrVersao = "QUADRUPLICADO"
     If bytLoop = 5 Then MsrVersao = "QUINTUPLICADO"
     If bytLoop = 6 Then MsrVersao = "SEXTUPLICADO"
DoCmd.Save
Select Case MsgBox("COLOCAR CUMPRIMENTOS?", vbInformation + vbYesNoCancel, [001])
Case vbYes
Me.t11 = "Com os melhores cumprimentos"
DoCmd.RefreshRecord
DoCmd.OpenReport "OficioNovo", acViewPreview, , "[001] = " & [001]
DoCmd.Maximize
strArquivo = Replace(Me!cam7, "/", "_") & " _ " & Me![001] & ".pdf"
strLocal = CurrentProject.Path & "\Oficios\Oficios Expedidos\" & strArquivo
DoCmd.OutputTo acOutputReport, "OficioNovo", acFormatPDF, strLocal
   DoCmd.PrintOut
DoCmd.Close
Case vbNo
Me.t11 = ""
DoCmd.RefreshRecord
DoCmd.OpenReport "OficioNovo", acViewPreview, , "[001] = " & [001]
DoCmd.Maximize
strArquivo = Replace(Me!cam7, "/", "_") & " _ " & Me![001] & ".pdf"
strLocal = CurrentProject.Path & "\Oficios\Oficios Expedidos\" & strArquivo
DoCmd.OutputTo acOutputReport, "OficioNovo", acFormatPDF, strLocal
   DoCmd.PrintOut
End Select
Exit_Comando570_Click:
   Exit Sub
Next
End If
Err_Comando570_Click:
   MsgBox Err.Description
   Resume Exit_Comando570_Click
   
End Sub


Se não dá duma maneira, há que desenrascar de outra