rgpyheyeh Level: Protégé
 Registered: 23-09-2006 Posts: 5
|
Receipt Printing Prob!!!
Heelo Guyyzzzz!
Need your help on this coz my receipt is not properly printed.
title1 ....title4 are not aligned at the center (text are cut or "truncated")
Here is my code:
Printer.Scale (0, 0)-(80, 3276#)
Printer.FontName = "Arial"
Printer.FontSize = 8
Printer.CurrentY = 1
AlignCenter (title1)
Printer.Print title1
AlignCenter (Title2)
Printer.Print Title2
AlignCenter (Title3)
Printer.Print Title3
AlignCenter (Title4)
Printer.Print Title4
Printer.Print
Printer.EndDoc
where AlignCenter() is
Public Function AlignCenter(title) As Integer
Dim TWidth, THeight As Integer
On Error GoTo myErr
TWidth = Printer.TextWidth(title) / 2
Printer.CurrentX = Printer.ScaleWidth / 2 - TWidth
End Function
The model of the printer is EPSON TM-U220PA but unfortunately dont have the driver for this that's why i used the driver for EPSON TM-U200B.
your help is very much appreciated!!!!
[Edited by rgpyheyeh on 27-09-2006 at 07:44 AM GMT]
|