Start New Discussion within our Software Development Community

Hi all,
Working in a Pos System and using this code for print all product from the list. The code wrk fine the only prb is:
The text begin printing from the middle of paper and not from the left side. Where is the prb?
This is the code:

Private Sub cmdPrint_Click()
Dim WhatDay$, Count%
Dim Tab1%, Tab2%, StoreCurrY%

If frmPOS.List1.ListCount = 0 Then
MsgBox "No has selectado ningun producto", , gStanCap
Exit Sub
End If

Printer.EndDoc
Tab1 = 0
Tab2 = 0
With Printer

.Font = "Courrier New"
.FontSize = 12
.FontBold = True
.FontUnderline = True
.FontSize = 12
.FontUnderline = False

Printer.Print
Printer.Print

.CurrentX = .CurrentX + 1
.FontBold = False
Printer.Print

Do
.CurrentX = Tab1
StoreCurrY = .CurrentY
Printer.Print frmPOS.List1.List(Count)
If Count + 1 = frmPOS.List1.ListCount Then .FontUnderline = True
.CurrentX = Tab2
.CurrentY = StoreCurrY
Printer.Print
Count = Count + 1
Loop While Count < frmPOS.List1.ListCount

.FontUnderline = False
.FontBold = True

.CurrentX = Tab2
.FontBold = True
.FontSize = 14
.CurrentX = (.Width - .TextWidth(" TOTAL:- " & frmPOS.txtTotal)) / 2
Printer.Print "TOTAL:- " & frmPOS.txtTotal
Printer.Print

.CurrentX = Tab1
.FontBold = True
.FontSize = 14
.CurrentX = (.Width - .TextWidth(" GRACIAS POR SU VISITA ")) / 2
Printer.Print " GRACIAS POR SU VISITA "

Printer.EndDoc

End With

End Sub

I`m using a epson tm-u220d and the paper size is 76x292 mm

Tks in advance
Costel

Hi Cos,

Can you try populating the contents to a HTML File instead of issuing a direct print? By this way you can open the HTML file and use print preview to see how it looks.


Regards
Marikanna

This article has been dead for over six months. Start a new discussion instead.