Dear All
Mau tanya nih, saya bikin script kaya gini.
Private Sub cmbPrint_Click()
Dim table As ADODB.Recordset
Dim sql As String
Dim i As Integer
Set table = New ADODB.Recordset
sql = "select * from transaksi"
table.Open sql, MdbConnection, adOpenDynamic, adLockOptimistic
table.MoveFirst
CrystalReport1.ReportFileName = App.Path + "\Reports\print_report.rpt"
CrystalReport1.DiscardSavedData = False
For i = 1 To table.RecordCount
CrystalReport1.Formulas(0) = "no = '" & table!no & "'"
CrystalReport1.Formulas(1) = "tanggal = '" & table!tanggal & "'"
CrystalReport1.Formulas(2) = "nama = '" & table!nama & "'"
CrystalReport1.Formulas(3) = "bayar = '" & table!bayar & "'"
CrystalReport1.Formulas(4) = "sisa = '" & table!sisa & "'"
table.MoveNext
Next
CrystalReport1.WindowTitle = "Print Report"
CrystalReport1.WindowState = 2
CrystalReport1.Destination = 0
CrystalReport1.Action = 1
End Sub
Masalahnya adalah cuma record terakhir yang tampil di detainya Cristal Report,
maunya semua record yang di looping di atas tampil (seperti kalau datanya
langsung
ngambil dari table)
NB : Saya pake CR version 6.
Makasih sebelumnya.
