[Resolvido]Visualizar impressão

Boa noite a todos.
Tenho o código abaixo que consegui aqui no fórum,
que imprime ao selecionar uma caixa de seleção.
Gostaria de visualizar a impressão antes de imprimir.
Alguém poderia me ajudar a adaptar este código.
Muito obrigado.

Private Sub OS_Click()
On Error GoTo Err_Codigo_Click

If IsNull(Me.Codigo) Then

MsgBox "Selecione um nome válido na lista", vbCritical, "Atenção"

Else

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "RelOSagendadas"

stLinkCriteria = "[Codigo]=" & Me![Codigo]
DoCmd.OpenReport stDocName, , , stLinkCriteria

End If

Exit_Codigo_Click:
Exit Sub

Err_Codigo_Click:
MsgBox Err.Description
Resume Exit_Codigo_Click
End Sub

Valeu Avelino, funcionou perfeitamente.
Obrigado.