[Resolvido]Visualizar Impressão.

Prezados,

Tenho este código onde faço filtro na tabela para gerar um relatório de ordem de serviço.

Meu é que o relatório está sendo lançado direto na minha impressora padrão, alguém sabe dizer como este relatório ficar na tela como Visualização de Impressão?

Código:

'Dim resposta As Variant
'resposta = InputBox("Informe a O.S ", "Ordem de Serviço")
'If resposta <> "" Then
'DoCmd.OpenReport "Relatorio de OS AudRep", , , "IDOS=" & resposta, acViewPreview, acWindowNormal
'      DoCmd.OpenReport "Relatorio de OS AudRep", , , "IDOS=" & resposta, acWindowNormal
     
'  DoCmd.OpenReport "Relatorio de OS AudRep", "& resposta, , , acWindowNormal"
'Else
'Exit Sub
'End If


Grato,

Avelino,

Obrigado.

Funcionou perfeitamente!