Option Explicit
Dim Report1 As New CrystalReport1
.....
....
.....
Private Sub Form_Load()
Report1.DiscardSavedData
CRViewer1.ReportSource = Report1
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
CRViewer1.Zoom (100)
End Sub
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
Sub sauvegarde()
Dim crxExportOptions As CRAXDRT.ExportOptions
Set crxExportOptions = Report1.ExportOptions
crxExportOptions.FormatType = crEFTPortableDocFormat
crxExportOptions.DestinationType = crEDTDiskFile
crxExportOptions.DiskFileName = App.Path & "Rapport.pdf"
crxExportOptions.PDFExportAllPages = True
Report1.Export False
end sub
Voilà une partie du code qui marche sur la machine surlaquelle je l'ai programmé mais pas sur d'autres ou je veux l'utiliser.
Je crois que c'est à cause des dll de crystal reports mais je n'ia aucune idée duquel exactement sachant que j'ai utilisé aussi bien CRAXDRT.dll que CRAXDDRT.dll et que je travaille avec la version 8.5 developper.
jaimerais savoir également s'il y a un kit que je pourrais installer sur la machine cible pour ne pas avoir de problèmes avec Crystal reports;
Merci pour votre aide