Subrelatório Com Visual Basic - Subreport

[Guest Joao Maciel]

Olá

Criei um Relatório no Crystal Report 8 o qual utilizo c/ Visual Basic 6.

Sempre que visualizo no Visual Funciona 100%, o problema é que precisei criar um SubRelatório utilizando o Menu Insert, SubReport.

O Problema é que na hora de visualizar no vb da a seguinte mensagem "File could not be opened: "Tabela" not file location: "Tabela"".

Sendo que na Preview do Crystal ele não dá erro.

Um Detalhe eu utilizo senha, mas sempre funcionou beleza. (Banco de Dados MSAccess 97)

Acredito que o problema seja porque não especifico o nome do rpt do subrelatório.

Se alguém puder me passar a codificacao correta para funcionar com Subrelatório agradeço, veja abaixo minha codificação:

Dim Report_Aplication1 As New CRAXDRT.Application

Dim Report1 As New CRAXDRT.Report

Dim st_Path1 As String

Dim st_server1 As String

Dim st_user1 As String

Dim st_Password1 As String

Dim st_DataBase1 As String

On Error GoTo ErroImprime

With FrmImpressaoAnálise_Solo

st_DataBase1 = BancodeDados

st_Password1 = "aaayyy2323"

st_server1 = "Relatório de Análise de Solo"

st_user1 = ""

Set Report1 = Report_Aplication1.OpenReport(.TxtCaminho)

Report1.MorePrintEngineErrorMessages = True

Report1.EnableParameterPrompting = False

Report1.DiscardSavedData

Report1.PaperOrientation = crLandscape

Report1.PaperSize = crPaperLetter

If st_server1 <> "" Then

For I = 1 To Report1.Database.Tables.Count

Report1.Database.Tables.Item(I).SetLogOnInfo Trim(st_server1), Trim(st_DataBase1), Trim(st_user1), Trim(st_Password1)

Next

End If

Caso consigo a solucao antes, postarei p/ vocês, obrigado, meu email é jmaciel8403@uol.com.br

[Guest João Maciel]

Olá a Todos, Já resolvi o Problema:

Deixei de usar o CRViewer, e passei a utilizar esta Codificação que utiliza o crptToWindow:

Codifique no próprio Formulário:

CrystalReport1.ReportFileName = App.Path & "\Relatório.rpt"

CrystalReport1.DataFiles(0) = BancodeDados

CrystalReport1.CopiesToPrinter = 1

CrystalReport1.WindowControlBox = True

CrystalReport1.WindowState = crptMaximized

CrystalReport1.Destination = crptToWindow

CrystalReport1.Action = 1