Code:
Option Explicit
Dim rptRobnoPoslovanje As New RobnoPoslovanje
Dim db As CRAXDRT.Database
Dim rs As New ADODB.Recordset
Dim WithEvents sect As CRAXDRT.Section
Public Sub IzvjestajRobnoPoslovanje()
On Error Resume Next
Screen.MousePointer = vbHourglass
'Set rpt = crx.OpenReport(App.Path & "\Report\CR\RobnoPoslovanje.rpt")
Set db = rptRobnoPoslovanje.Database
Set sect = rptRobnoPoslovanje.Sections("PageHeaderSection1") 'PageHeaderSection1
rs.Open "select * from qruRobnoPoslovanje", CN, 1, 1
rptRobnoPoslovanje.Database.SetDataSource rs, 3, 1
crvIzvjestaj.ReportSource = rptRobnoPoslovanje
crvIzvjestaj.ViewReport
crvIzvjestaj.Zoom 1
Screen.MousePointer = vbDefault
End Sub
Private Sub sect_Format(ByVal pFormattingInfo As Object)
On Error Resume Next
With sect.ReportObjects
Set .Item("imgSlika").FormattedPicture = LoadPicture(INFORMACIJE_FIRME.SLIKA)
End With
End Sub
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!