Olá Amigos,

peguei um dica em um site de como chamar o subreprt e atribuir uma SQL, porem qdo abre o report  O SubReport aparece como link, ( qdo se clica nele ele abre em nova janela com os dados)

como faço pra abri-lo na mesma janela?

 

Set crxApp = CreateObject("crystalruntime.application")
Set crxRpt = crxApp.OpenReport(LcRPT)

 

    RS.Open strSQL, Conexao, adOpenKeyset, adLockPessimistic
    crxRpt.Database.SetDataSource RS

 

    RSSub.Open strSQLsub, Conexao, adOpenKeyset, adLockPessimistic
    crxRpt.OpenSubreport("nfm1").Database.SetDataSource RSSub