Subreport rotation

S

Steve

What are you trying to accomplish?

PC Datasheet
Providing Customers A Resource For Help With Access, Excel And Word
Applications
(e-mail address removed)
 
S

StopThisAdvertising

Steve said:
What are you trying to accomplish?

It's my guess that the OP is trying to rotate a subreport...
PC Datasheet
Providing Customers A Resource For Help With Access, Excel And Word
Applications
(e-mail address removed)

--
Steve, you have one of two choices:
-- Tell us you will stop advertising here, or...
-- get lost for another year or so...
http://home.tiscali.nl/arracom/whoissteve.html
(Until now 2495 pageloads, 1837 first-time visitors)

FYI: (this is also to inform those who do not understand...)
This is *not* about the sigline...although we do not 'love' it, we don't mind the current sigline.
But we will simply continue to hunt down *each and every* of your posts.

It is not relevant whether you advertised in *this* particular post or not...
Your pattern is: You post a few 'good' answers and then start to advertise again.

These groups are *not* your private hunting grounds!
You should know this by now.

ArnoR
 
S

Steve

I am still not sure of exactly what you want. Take a look at basing your
subform on a crosstab query. In a crosstab query, you can specify which
field(s) are displayed as rows, which field is displayed as columns and
which field is displayed at the intersection of each row and column.
However, a crosstab query is not updateabe. If this will not work for you,
post some sample data from your subform.

PC Datasheet
Providing Customers A Resource For Help With Access, Excel And Word
Applications
(e-mail address removed)
 
M

Michael

I have a main deposit sheet that has our side on the top 1/2 and a coded
part on the bottom couple inches. I have the bank portion in between those
and my boss wants it to be rotated so the test is vertical while the rows
that would normally appear top to bottom go left to right.

So in other words I want to rotate the subreport 90 degrees so that it it
fits perfectly into that space with the appearance that he wants.
 
S

Steve

As far as I know, there is no way to just rotate a form ninety degrees.

I don't understand why your boss would want this; it makes reading the data
more difficult. Wht does he want the change in format? Perhaps we can come
up with a compromise that he will be happy with.

PC Datasheet
Providing Customers A Resource For Help With Access, Excel And Word
Applications
(e-mail address removed)
 
M

Michael

Because it is a cut out sort of like paystub on check or a pro sporting
event ticket.
 
P

playmkr278

Not sure if my reply got through. The reasoning behind it is the same
reasoning behind a ticket and ticket stub. One goes one way and the other
goes the other way.
 
S

Steve

Sorry, as far as I know, there is no way to just rotate a form ninety
degrees.

You might want to look in lebans.com. He has a lot of tricks up his sleeve
and if you are going to find something, that's the most ;ilely place it will
be.

PC Datasheet
Providing Customers A Resource For Help With Access, Excel And Word
Applications
(e-mail address removed)
 
S

Stephen Lebans

Michael as I have told you earlier you cannot simply rotate a section of
your report 90 degrees. You cannot mix landscape and portrait within a
single report.

Why don't you simply use several of my RotateText ActiveX controls and allow
them to rotate the contents of the relevant section?

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
 
S

StopThisAdvertising

Steve said:
Sorry, as far as I know, there is no way to just rotate a form ninety
degrees.

You might want to look in lebans.com. He has a lot of tricks up his sleeve
and if you are going to find something, that's the most ;ilely place it will
be.

PC Datasheet
Providing Customers A Resource For Help With Access, Excel And Word
Applications
(e-mail address removed)

Hey Steve,

Look at the stats (Statcounter.com) to see the damage you have done to yourself.
Every time the link is shown, more and more people are reading about you.
http://home.tiscali.nl/arracom/SteveStats.html

Since you have been posting 'nice' the last couple of days the 'answering-machine' stops for now.
We will be watching you though...

ArnoR
 
J

John Marshall, MVP

You could consider using Word's mail merge function. You can place the
information in a Word table and then rotate the text.

John... Visio MVP
 
M

Michael

What I don't understand is that we have a label control that can be rotated
so it only stands to reason that a subreport should be able to be rotated
similarly because aren't they both controls?
 
M

Michael

Anyway to get it the right way for printing with as much automation (but
with as little code) as possible would be great.
 
M

Michael

The RotateLabel ActiveX control works great but I cannot get the resulting
labels to go the same direction because Access reports go top to bottom by
default. And if I put them all in the footer I cannot get them to loop so
I'd have to have a way to loop them with VB at that point.
 
M

Michael

Also, once again, how can you code rotation for one control (that doesn't
normally have rotation) but not for another?
 
M

Michael

What wouldn't the following create a control?

Dim Rotatereport As Object

' This is a Template Report with only one Control: RotateLabel
DoCmd.OpenReport "RptRotReport", acDesign

' New control in my Report
Set Rotatereport = CreateReportControl(rpt.Name, acCustomControl, acDetail,
, , x, y)

' Get OLE Data from Template Object RotText
Rotatereport.OleData = Reports!RptRotReport!RotReport.OleData
DoCmd.Restore

' Close Template Report
DoCmd.Close acReport, "RptRotReport"

' Do cosmetics
Rotatereport.Escapement = 90 ' Rotation
Rotatereport.ControlSource = "=VDONUMMER" ' Formula of Field
Rotatereport.SpecialEffect = 0 ' no Borders
Rotatereport.Width = 300
Rotatereport.Height = 1600
 
M

Michael

Why wouldn't the following create a control?

Dim Rotatereport As Object

' This is a Template Report with only one Control: RotateLabel
DoCmd.OpenReport "RptRotReport", acDesign

' New control in my Report
Set Rotatereport = CreateReportControl(rpt.Name, acCustomControl, acDetail,
, , x, y)

' Get OLE Data from Template Object RotText
Rotatereport.OleData = Reports!RptRotReport!RotReport.OleData
DoCmd.Restore

' Close Template Report
DoCmd.Close acReport, "RptRotReport"

' Do cosmetics
Rotatereport.Escapement = 90 ' Rotation
Rotatereport.ControlSource = "=VDONUMMER" ' Formula of Field
Rotatereport.SpecialEffect = 0 ' no Borders
Rotatereport.Width = 300
Rotatereport.Height = 1600
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top