Hi everyone,

This is my first post on this site.

I'm trying to put a simple print.print loop behind some databse records but am having problems with Vb 6 crashing. Im running the program in xp's 64 bit environment so perhaps thats the problem!

Could someone check my code to make sure thats not causing the problem. (i'm pretty sure it isn't!)

Private Sub cmdprintall_Click()

Printer.FontSize = 18
Printer.FontName = Calibri
Printer.FontBold = True
Printer.Print Tab(28); "Customer Records"
Printer.Print
Printer.Print
Printer.Print
With datcustomers.Recordset
.MoveFirst

Do

Printer.FontSize = 12
Printer.FontBold = False
Printer.Print Tab(30); "Firstname: " & txtfirstname.Text
Printer.Print Tab(30); "Surname: " & txtsurname.Text
Printer.Print Tab(30); "Age: " & txtage.Text
Printer.Print
Printer.Print ; Tab(30); "Balance: " & txtbalance.Text

If chkoverdrawn.Value = 0 Then
Printer.Print "In Credit"
Else
Printer.Print "OVERDRAWN"

.MoveNext

End If
Loop Until .EOF
End With
Printer.EndDoc
End Sub

Thanks for any help!!

__________________

---

This should get you on track:

Expand Your VB6 Printing Repertoire—Part I

__________________
Day Cares | Golf Courses | Disc Golf Courses | Campgrounds | Ice Rinks | Paintball Fields | Dentists | Plastic Surgeons | Aging Jokes
Catholic Churches | Lutheran Churches | Methodist Churches | Episcopal Churches | Clean Jokes

---