USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Active Reports 2.0
Rodrigo F.
JABOTICABAL
SP - BRASIL
Postada em 01/11/2005 23:12 hs            
Pessoal qual função utilizo para mandar para impressão um relatório do Active Reports ?
 

Rodrigo Ferreira

MSN - rjpferreira@hotmail.com

     
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 02/11/2005 08:47 hs            

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

Jesus Cristo é O Senhor!!!
     
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página