Hi
The project I am working on has 2 printer outputs
which involves cash sums with 2 decimal places.
one works the other does not can you see what I am
doing wrong please.
This works fine and all cash sums line up correctly
I tried the same code on a 2nd form and it did not work
so I changed it to this code.
The main difference I can see is the 2nd one is in a For Loop
Can you help?
The project I am working on has 2 printer outputs
which involves cash sums with 2 decimal places.
one works the other does not can you see what I am
doing wrong please.
This works fine and all cash sums line up correctly
Code:
VB6
Printer.CurrentX = 2880
RSet strVal(0) = Format(v1Store(5), "#0.00")
pLine(6) = pStore(5) & Space(10) & strVal(0)
Printer.Print pLine(6)
Printer.CurrentX = 2880
Printer.CurrentY = Printer.CurrentY + 720
RSet strVal(1) = Format(v1Store(6), "#0.00")
pLine(7) = pStore(6) & Space(8) & strVal(1)
Printer.Print pLine(7)so I changed it to this code.
Code:
VB6
For i = 0 To 5
If Not pPart(p) = vbNullString Then
myY = Printer.CurrentY
Printer.Print pPart(p)
RSet strVal(i) = Format(txtInt(i), "#0.00")
Printer.CurrentY = myY
Printer.CurrentX = 7600
Printer.Print strVal(i)
Printer.CurrentX = 3000
p = p + 1
End If
Next iCan you help?