Prezados,
Usando o código a seguir consigo imprimir os dados de um relatório cujo registro está selecionado no formulário.
Desejo, ao invés de imprimir, somente visualizar o relatório referido. Se alguém puder me ajudar, ficarei grato.
O código:
Private Sub Comando120_Click()
On Error GoTo Comando177_Click_Err
DoCmd.OpenReport "rel_endereco_cliente", acNormal, "", "[Codigo]=[Forms]![frm_cad_cliente]![Codigo]", acNormal
Me.Visible = False
Comando177_Click_Exit:
Exit Sub
Comando177_Click_Err:
MsgBox Error$
Resume Comando177_Click_Exit
End Sub
Atenciosamente.
Usando o código a seguir consigo imprimir os dados de um relatório cujo registro está selecionado no formulário.
Desejo, ao invés de imprimir, somente visualizar o relatório referido. Se alguém puder me ajudar, ficarei grato.
O código:
Private Sub Comando120_Click()
On Error GoTo Comando177_Click_Err
DoCmd.OpenReport "rel_endereco_cliente", acNormal, "", "[Codigo]=[Forms]![frm_cad_cliente]![Codigo]", acNormal
Me.Visible = False
Comando177_Click_Exit:
Exit Sub
Comando177_Click_Err:
MsgBox Error$
Resume Comando177_Click_Exit
End Sub
Atenciosamente.