Crystal Report & VB6

[eddoul2]

Bonjour,

Je voudrais pouvoir visualiser un report fait sous Crystal dans une form VB.
J'ai référencé dans le projet : Crystal Viewer Control 9.
Dans une form, j'ai placé un objet CRViewer9.
Maintenant, je ne sais pas comment faire pour visualiser le report que j'ai créé.
J'ai essayéADDVIEW, mais apparemment marche pas.

Est-ce que quelqu'un pourrait me dire comment faire ?
Existe-t-il de la doc en ligne qui explique le pourquoi du comment ? Les docs que j'ai trouvé reste trés succintes.


Par avance, merci.


Bonne soirée


PS : si vous avez un bout de code, il serait le bien venu.

 

[dassal]

Public Sub PrintReport(ReportName As String, SelectionFormula1 As String, Nombre As Integer)
'************************************************************
'*
'* Procedure Name : PrintReport
'*
'* Created : 2004/03/28 Lassad
'* Modified : yyyy/mm/dd XX
'*
'* Parameters : ReportName : Nom du rappourt "Etat" a imprimer sans l'extention
'* SelectionFormula1 : Formule de selectyion des enregistrement a imprimer
'* Nombre : nombre de table qu'utilise l'etat
'* Return value : Nothing
'*
'* Description : ....
'*
'***********************************************************

On Error GoTo err_message
Const strFCT_NAME = " PrintReport"
Dim rep
Dim i As Integer

With frmMain.Crw ' tout en supposant que t'as un controle Crystal qui s'apelle CRW sur une feuille qui s'appelle FrmMain

' txt = "pdsora7.dll," & DDB & "," & DDB & "," & Login & "," & PwdL ' ces deux ligne sont necessaire si tu veut faire un econnexion Oracle
'xx = .LogOnServer("p2sora7.dll", Dbase, "", Login, Pword)

rep = MsgBox(" Vers Imprimante ? ", vbQuestion + vbYesNo + vbDefaultButton1, " Gestion ")
If rep = vbNo Then
.Destination = 0 ' Aperçu de l'etat
Else
.Destination = crptToPrinter ' impression de l'etat
End If
' xx = .Connect
For i = 0 To Nombre - 1 'ce ligne sont necessaire pour la mise ajours des table utilisé dans l'etat
.DataFiles(i) = wpdb '& "\param.mdb" ' la variable Wpdb contient le chemein complet de la base
Next i
For i = Nombre To 10
.DataFiles(i) = ""
Next i

.ReportFileName = App.Path & "\Reports\" & Trim(ReportName) & ".rpt" ' ici je suppose que l'etat existe a l'emplacement courant dans un sous repertiore "Report"
.SelectionFormula = SelectionFormula1
.WindowState = crptMaximized
.WindowShowProgressCtls = True
.WindowShowPrintSetupBtn = True

If .PrintReport <> 0 Then ' il ya un probleme d'impression , aperçu , il faut traiter l'erreur
End If
End With
Exit Sub

End Sub


por plus d'infos tu pet me contacter sur le benaisla@e-i.com

 

[KangOl]

balise

 :o

 

[dassal]

alors tu me suit toujour :kaola:

 

[KangOl]

:heink:

 

[zeb]

LOL
J'ai l'impression d'assister à un dialogue de sourd.

bassal> Arrête d'exumer tous ces vieux topics.
KangOl> Je crois que notre ami bassal ne sait qui où il est (sinon il aurait lu

Vous devez être connecté pour voir les liens.

) ni qui ce que tu es.

 

[issam14200]

voilà le code la feuille de mon appliaction que j'ai créé

#
Public m_Application As New CRAXDDRT.Application
Public m_Report As New CRAXDDRT.Report
---------------------------------------------------
Private Sub Form_Load()

Call Form_Resize

Dim ReportFile As String

ReportFile = App.Path & "\EXPORT\monfichier.rpt"
Set m_Report = m_Application.OpenReport(ReportFile) ===> le probléme si situe là je crois
CRViewer.ReportSource = m_Report
CRViewer.Zoom 1
CRViewer.ViewReport
Screen.MousePointer = vbDefault

End Sub
---------------------------------------------------
Sub Form_Resize()

CRViewer.Top = 0
CRViewer.Left = 0
CRViewer.Height = Me.ScaleHeight
CRViewer.Width = Me.ScaleWidth

End Sub
#


bonne chance

 

[Storos]

1. Tu viens de déterrer un sujet vieux de presque 5 ans... :sweat:

2. Lorsque tu postes du code, tu dois le mettre entre des balises [cpp]...