rec.Open "select * from CASHBOOK where rcptdate between # " & Format(DTPicker1.Value, "mm/dd/yyyy") & " # and # " & Format(DTPicker2.Value, "mm/dd/yyyy") & "#", var
Do While Not rec.EOF
Set list2 = ListView2.ListItems.Add(, , rec!RCPTNO)
list2.SubItems(1) = rec!RCPTDATE
list2.SubItems(2) = rec!Name
list2.SubItems(3) = rec!rcptAMOUNT
Text1.Text = list2.SubItems(3) + Val(Text1.Text)
rec.MoveNext
Loop
rec.Close
What I have tried:
i want print listview items ( printing line )...