Hello,

  I am printing tickets on my pre printed paper. Sorry, already i posted this problem a long back. But still not succeed. I am generating output and storing in a text file. When the print button is clicked, the data is read from the textfile and directs to the printer. I need to count the no of lines. so, i am copying to text file. This is my code...

Dim ret As Integer
Printer.PrintQuality = -1
Printer.FontName = "draft 10cpi"
Printer.FontBold = False
Printer.FontItalic = False
Printer.FontSize = 8

ret = MsgBox("Print(Y/N)", vbYesNo)

If ret = 6 Then printcontents


Dim objfile As Object, ln As Integer, ctext As Object
Set ctext = fso.CreateTextFile("c:\tempprint.txt", True)
ctext.WriteLine txtResult.Text
ctext.Close
Set ctext = Nothing
txtResult.Text = ""
Set objfile = fso.OpenTextFile("c:\tempprint.txt", ForReading, True)
ln = 1
Do While Not objfile.AtEndOfStream
    Printer.Print objfile.ReadLine()
    Printer.Print
    Printer.Print
    Printer.Print
    ln = ln + 3
Loop

Printer.EndDoc

My problem is, vertical spacing. According to the code, i am printing 3 lines in each iteration. After printing some lines the lines are moving up/down not in the proper way. Why is this happening? I am strucked at this place. Pls help me.

C the link how its printing. That is my pre printed ticket and the output printed from the code.

http://m.1asphost.com/tsimsha/images/ticket.jpg

Everytime i need to print minimum >500 lines(tickets). So i need to print faster. Thats why i am using printer.print with Draft 10cpi font. I need to print continuously until the tickets are over without any interruption or interaction.
Actually this is available in foxpro 2.5. There its printing correctly. I modified the application to VB. I have this problem.

Sorry for the long problem. But i want to explain clearly.
Finally, how can i set the equal vertical spacing. And the paper width also not sufficient in VB where as in foxpro the same width but no problem.

Thax in advance

Before printing set the printer.currentY to the right value.
Find the distance between two rows and call that DY:

dim y as double
y = ...position of first row here...

loop:
printer.currentY = y
print.print "line of text"
y = y + dy

Marco

Hi,

  Thanx for the reply. I tried that one but still same problem.

When i just print on the form the currentY value its showing 400,800,1200...
I incremented the same value for each ticket. But not succeed. What could be the problem. I tried all the ways. CurrentX works fine whereas currentY not.
When i print the same text file from DOS prompt its printing nice.

If i use shell("batchfile.bat")
any problem?? coz the printing time from start to end is about 30 mts(many tickets at a time).

Thanx

which printer are you using? print a test rectangle:

printer.scalemode = vbmillimeters
printer.line (20,20)-step(100,100),,B
printer.enddoc

and see if the size of the rectangle is correct

Marco

Hi,
  I am using Epson LQ 580 on Win Me.

I triend u r suggession. I printed the line.
The horizontal position is correct (100 mm) and the vertical position is 99mm only.
What could be the problem.

Thanx in advance

do not ask me, ask Epson... the driver can be wrong, or the printer internal motor not calibrated... anyway this is not a software bug. Try another printer.

m.