Radial text help from Mike Williams or

In the Mike Williams and Henry "Radial Text" supplied code that
I've been tweaking, the following code allows me to place multiple
lines of radial text on the screen spaced .75" vertically from each
other. I first load a list box with the serial numbers and the read
back the list to the screen print.
This works perfectly.

For intCount = 0 To lstSerialNumbers.ListCount - 1
CircleText Me, 1.7, Ydim, txt_Radius_Hidden / 32, "SN" &
lstSerialNumbers.List(intCount)
Ydim = Ydim + 0.75
Next

I now want to send this same output to the printer.
The below code sends each serial number to the printer as separate
requests.
I want to group the serial numbers one under the other and send it to
the printer as a group.
I am printing to a 100'x 4" roll of stencil paper on a 24 pin dot
matrix printer so length is not an issue. The printer feeds forward for
tear-off after each print request.

For intCount = 0 To lstSerialNumbers.ListCount - 1
CircleText Printer, sMarginX, sMarginY, txt_Radius_Hidden / 32,
"SN" & lstSerialNumbers.List(intCount)
sMarginY = sMarginY + 0.75
Next

The output would look something like this only each serial number is
arced.

SN050136050001


SN050136050002


SN050136050003


SN050136050004

Thanks for any help,
RICK

Mike
Fri Dec 09 13:29:34 CST 2005

"2D Rick" <rbrowniii@compuserve.com> wrote in message
news:1134149102.401520.37120@g47g2000cwa.googlegroups.com...

> In the Mike Williams and Henry "Radial Text" supplied code
> that I've been tweaking, the following code allows me to place
> multiple lines of radial text on the screen spaced .75" vertically
> from each other. I first load a list box with the serial numbers
> and the read back the list to the screen print. This works
> perfectly. [snip] I now want to send this same output to the
> printer. The below code sends each serial number to the printer
> as separate requests. I want to group the serial numbers one
> under the other and send it to the printer as a group.

I'm not quite sure if I understand your question. I remember posting code
samples for you, but I'm not sure what they look like now you have modifed
them. Are you saying that when you output multiple "circles of text" the
printer scrolls to the start of the next page after each one? If so then
you're probably doing something in your code that actually requests a new
page or ends the print job. Perhaps if you explain your problem in more
detail, and post the *full* code that you are currently using we'll be able
to help some more. When you post the code, make sure that it is completely
self contained (so that any data it might under normal conditions get from
somewhere else it instead gets from within your code sample itself).

Mike

2D
Mon Dec 12 11:24:23 CST 2005

After some pokin at the code I found I had to move a few lines of code
outside the loop and now it works fine.
Thanks for your reply.
RICK