Hallo iedereen,
Ik ben bezig met een rapport te maken met de standaard report maker van
VB 6.0, en tot nu toe ging alles perfect. Maar nu zou ik een rapport willen maken met meerdere pagina's. De bedoeling is dat ik 1x een standaard rapport aanmaak en wanneer ik dit rapport aanroep dat ik dan meerdere pagina's kan genereeren. ik moet namelijk +/- 10 foto's (het aantal 10 is dynamisch) op "10" aparte pagina's krijgen. onderstaand vinden jullie mijn broncode. Ik weet alleen niet hoe ik deze extra pagina moet aanmaken ? Is er iemand die mij kan helpen ????
Is onderstaande manier trouwens de juiste, of bestaan er beter ?
Visual Basic code:
Public Sub AfdrukkenRapport()
Dim imgFoto As RptImage
Dim cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim RepClient As DataReport
Set cnn = New ADODB.Connection
cnn.Provider = "Microsoft.jet.oledb.4.0"
cnn.ConnectionString = "Data Source= " & "D:\VandereytOnder houdprog\Database\Onderhoud.mdb"
cnn.Open
Rst.Source = "Select * from inplanting"
Rst.ActiveConnection = cnn
Rst.Open
Rst.MoveFirst
Do Until Rst.EOF = True
Set imgFoto = testrapport.Sections("section1").Controls("imgFoto")
Set imgFoto.Picture = LoadPicture(Rst!root)
"Hier zou ik dan de statement willen zetten die ervoor zorgt dat mijn rapport een nieuwe pagina aanmaakt"
Loop
Set RepClient = testrapport
Set RepClient.DataSource = Rst
testrapport.Show vbModal
Rst.Close
cnn.Close
End Sub
Ik ben bezig met een rapport te maken met de standaard report maker van
VB 6.0, en tot nu toe ging alles perfect. Maar nu zou ik een rapport willen maken met meerdere pagina's. De bedoeling is dat ik 1x een standaard rapport aanmaak en wanneer ik dit rapport aanroep dat ik dan meerdere pagina's kan genereeren. ik moet namelijk +/- 10 foto's (het aantal 10 is dynamisch) op "10" aparte pagina's krijgen. onderstaand vinden jullie mijn broncode. Ik weet alleen niet hoe ik deze extra pagina moet aanmaken ? Is er iemand die mij kan helpen ????
Is onderstaande manier trouwens de juiste, of bestaan er beter ?
Visual Basic code:
Public Sub AfdrukkenRapport()
Dim imgFoto As RptImage
Dim cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim RepClient As DataReport
Set cnn = New ADODB.Connection
cnn.Provider = "Microsoft.jet.oledb.4.0"
cnn.ConnectionString = "Data Source= " & "D:\VandereytOnder houdprog\Database\Onderhoud.mdb"
cnn.Open
Rst.Source = "Select * from inplanting"
Rst.ActiveConnection = cnn
Rst.Open
Rst.MoveFirst
Do Until Rst.EOF = True
Set imgFoto = testrapport.Sections("section1").Controls("imgFoto")
Set imgFoto.Picture = LoadPicture(Rst!root)
"Hier zou ik dan de statement willen zetten die ervoor zorgt dat mijn rapport een nieuwe pagina aanmaakt"
Loop
Set RepClient = testrapport
Set RepClient.DataSource = Rst
testrapport.Show vbModal
Rst.Close
cnn.Close
End Sub
