I posted this question before and got some help, but there
is just one thing that's giving me a BIG problem, and that
is... the form will not scroll!!!
The problem is that data at the bottom is not scrolled into
view. How do i achieve this ?
I would prefer to display the data on a form and not a DBGrid

p.s. How do I post the code like others with colours &
indent ?

here is the code....

Sub Scroll()
Dim vPos As Integer
Me.Cls
FontSize = 8
x = CurrentX
y = CurrentY
CurrentX = 300
CurrentY = y
For vPos = m_intLastPos To 100
While Not rst.EOF
Print rst!recno
CurrentY = y
CurrentX = 1600
Print rst!ItemNum
CurrentY = y
CurrentX = 3100
Print Format(rst!QtyRecvd, "###,##0")
CurrentY = y
CurrentX = 4600
Print rst!Descrip
CurrentY = y
CurrentX = 8100
Print Format(rst!unitprice, "##,###,##0.00")
CurrentY = y
CurrentX = 9600
value = rst!QtyRecvd * rst!unitprice
runtot = runtot + value
Print Format(value, "##,###,##0.00")
y = CurrentY
CurrentX = 300
rst.MoveNext
Wend
Next
m_intLastPos = VScroll1.value
' print total at end of report
If runtot > 0 Then
FontBold = True
FontUnderline = True
CurrentX = 8100
CurrentY = CurrentY + 500
y = CurrentY
Print "GRAND TOTAL"
CurrentX = 9600
CurrentY = y
Print Format(runtot, "##,###,##0.00")
FontBold = False
FontUnderline = False
Else
NothingFound
End If
Else
NothingFound
End If
End Sub