IMAGEM NO BD E CRYSTAL REPORT

USUARIO.EXCLUIDOS 22/03/2005 10:57:58
#74235

fábio,

nao estou conseguindo alterar a figura, vc poderia verficar qual é o erro?

Dim Appl As New Application
Dim Report As Report
Dim WithEvents CrSecRH As Section
Dim WithEvents CrSecPH As Section
Dim CrSecs As Sections
Public Pic1 As OLEObject
Public Pic2 As OLEObject


Private Sub CrSecD_Format(ByVal pFormattingInfo As Object)
Set Pic1.FormattedPicture = LoadPicture("C:\Desenvolvimento\digiopc\DIGIOPC.bmp") 'changes the pic in the Page Header

End Sub


Private Sub Form_Load()
Set Report = Appl.OpenReport("C:\Desenvolvimento\digiopc\fladados.rpt", 1) 'opens the rpt.

Set CrSecPH = Report.Sections("D")

For I = 1 To CrSecPH.ReportObjects.Count
If CrSecPH.ReportObjects(I).Kind = 6 Then 'crOLEObject Then
Set Pic1 = CrSecPH.ReportObjects(339)
End If
Next I


CrystalReport1.ReportFileName = "C:\Desenvolvimento\digiopc\fladados.rpt"
CrystalReport1.Action = 1


End Sub