Se connecter avec
S'enregistrer | Connectez-vous

Crystal Report & VB6

Dernière réponse : dans Programmation

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.

Autres pages sur : crystal report vb6

Lassé par la pub ? Créez un compte

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

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
Lassé par la pub ? Créez un compte

Créer un nouveau sujet