Printing a report control item sideways

[Mischeaux]

Is it possible to print some of the data on a report as if it were printing landscape? I am generating 8 1/2 x 11 purchase orders that are to print in the portrait direction. But I would like the Order Number to print sideways for easy filing. Is it possible?<br>
<br>
Thanks

 

[DougP]

The only way to do that is.<br>
Make Bitmaps of the numbers 0 thru 9 and orientated correctly then write a routine to place them on a report.<br>
The routine would have to look at say the &quot;Invoice&quot; number<br>
and march through it one number at a time.<br>
If you have say 6 digits in your Invoice number then you could put 6 blank images lined up next to each other.<br>
Then load a number 0-9 in each of the six images.<br>
<br>
If you tell us how many digits there are we can probably come up with something.<br>
<br>
<p> DougP<br><a href=mailto: dposton@universal1.com> dposton@universal1.com</a><br><a href= > </a><br>

 

[DougP]

Well I made this work on a form but not on a report<br>
---------------------<br>
Private Sub Form_Current()<br>
Dim ImagePath As String<br>
Dim DigitOne, DigitTwo, DigitThree, DigitFour As String<br>
<br>
ImagePath = &quot;P:\0-9 Images\&quot;<br>
DigitOne = Left(Me!Invoice, 1)<br>
DigitTwo = Mid(Me!Invoice, 2, 1)<br>
DigitThree = Mid(Me!Invoice, 3, 1)<br>
DigitFour = Mid(Me!Invoice, 4, 1)<br>
Image3.Picture = ImagePath & DigitOne & &quot;.gif&quot;<br>
Image4.Picture = ImagePath & DigitTwo & &quot;.gif&quot;<br>
Image5.Picture = ImagePath & DigitThree & &quot;.gif&quot;<br>
Image6.Picture = ImagePath & DigitFour & &quot;.gif&quot;<br>
End Sub<br>
------------------------<br>
It does not give any errors but does not show anything either.<br>
I goes through the motions<br>
Anyway...<br>
<br>
<p> DougP<br><a href=mailto: dposton@universal1.com> dposton@universal1.com</a><br><a href= > </a><br>