printing problem

[keyur]

hello everybody, well just started vb programming recently.. and have a problem.. actually in our data entry from which i have prepared using vb as front and access as back end. now i have fields in it and one command button.. the command button has to print the record that has been recently entered and also have to add a new record.. i tried but nothing seems to work.. if u could help me out i will be thankful tried booksonline and its mentioning to use printer objects tried tht but its not clicking
TIA
keyur

[Wokawidget]

Private Sub Command1_Click()
Dim intCounter As Integer
    Set con = New Connection
    con.Open "SQL_STSOP_DSN"
    Set rec = con.Execute("SELECT * FROM ENGINEERS")
    If Not rec.EOF Then
        For intCounter = 0 To rec.Fields.Count - 1
            Printer.Print rec.Fields(intCounter).Name & vbTab & rec.Fields(intCounter).Value
        Next intCounter
    End If
    rec.Close
    Set rec = Nothing
    con.Close
    Set con = Nothing
    Printer.EndDoc
End Sub

This is using ado recordsets and connections...
The formatting and allignment of the data it prints out is a bit rough, but you get the general idea...

Hope this helps.

[Hack]

If you are using MS Access, then why not create a nicely formatted Access report, and simply print it from VB?