You could set a variable Squash = width of cell / width of text and, if
Squash is less than 1 then loop through the text string printing one
character at a time (with CrLf suppressed) and after each character move the
CurrentX value back by an amount equal to Squash * width of character just
printed. I've seen dafter things in my time ;-)
Mike
Quote:
> Hello,
> Is there a way, when printing with VB, that I can scale/resize text in one
> direction.
> The exact application I'm thinking about is this.
> I have written a class module for printing out reports in a tabular
format.
> But every now and then, the user is bound to submit pieces of text which
are
> slightly larger than the 'cell' will hold. Therefore, I would like to be
> able to scale that particular text so it will fit within the 'cell'.
> I could print that text in a smaller font size, but that's not really what
> I'm looking for. I basically want to squash the text horizontally.
> Any ideas...
> TIA
> Steven Palmer.
Scaling Printed Text