Futura
|
PORTO FERREIRA
SP - BRASIL
|
|
Postada em 26/04/2006 18:43 hs
seguinte, estou precisando de um exemplo de como usar o crviewer no vb, para dispensar o uso da crystl32.ocx. Ouvi falar que ele é + rápido pois pode consultar com sqlquery, ao invés de selectionformula. E seria melhor ainda, se puder aproveitar os rpts que tenho feitos. |
|
|
|
|
|
|
|
Postada em 27/04/2006 11:49 hs
futura tem sim, é so adicionar o componente e pronto, e mudar o selection formula para o sqlquery.tudo pronto |
|
|
|
Futura
|
PORTO FERREIRA
SP - BRASIL
|
|
Postada em 05/05/2006 17:00 hs
Mas fica fica no vb, o que tenho que adicionar, e como chamar o relatório ????? |
|
|
|
|
|
Postada em 05/05/2006 17:18 hs
primeiro adicione o componente crviewer na sua barra de componentes , ai é so fazer isso ai e pronto. Option Explicit Dim Aplicacao As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
'****Esta a a Função de impressão para o REPORT VIEW CONTROL da Seagate
Public Sub Imprimir(Relatorio As String)
Set Report = Aplicacao.OpenReport(Relatorio) '***Setamos a Variavel do relatorio para pegar o Arquivo no Disco
Report.SQLQueryString = "select * from categories" ' where categoryid=1"
CRViewer1.ReportSource = Report '*** Estamos assumindo que "CRViewer1" e o Nome do Controle no Form1
CRViewer1.ViewReport '*** O Relatorio será Visualizado entes de ser Impresso
End Sub
Private Sub Command1_Click()
Imprimir App.Path & "categorias.rpt"
End Sub
|
|
|
|
Futura
|
PORTO FERREIRA
SP - BRASIL
|
|
Postada em 08/05/2006 08:29 hs
ok, vou tentar, obrigado """pelas ajudas"" |
|
|
|
Futura
|
PORTO FERREIRA
SP - BRASIL
|
|
Postada em 08/05/2006 20:30 hs
não deu certo, nestas duas linhas abaixo: Dim Aplicacao As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report retorna o erro: user-definied type not definied. , tentei com o crviewer, acho que é do 8.5, e com o crviewer9. cheguei até a instalar o crystal 11, que adquiri, mas nada, então qual o segredo ???????????????????
|
|
TÓPICO EDITADO
|
|
|
|
