Ir para conteúdo
Fórum Script Brasil
  • 0

Subrelatório Com Visual Basic - Subreport


Guest Joao Maciel

Pergunta

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

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0
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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...