Pessoal qual função utilizo para mandar para impressão um relatório do Active Reports ?

 

Dim sPath As String
Dim rpt As rprRelAreas

Me.MousePointer = 11

sPath = App.path & "Bdimobiliaria.MDB"
sSql = "select * from Tbl_Areas where Codigo_AR =" & Me.txtcodAR
    Set RST.ActiveConnection = cnBd
    RST.CursorLocation = adUseClient
    RST.Open sSql, , adOpenStatic, adLockBatchOptimistic
    RST.ActiveConnection = Nothing
    Set rpt = New rprRelAreas
    rpt.DataControl1.Recordset = RST
    rpt.Show 1
    Set rpt = Nothing