how do I set "gutter" margins?

[Jan]

Hi:

I was so sure this was easy that I left it for the last minute and now
I'm stuck. I'm working on the student directory for my kids' school and
since it will be printed on 3-hole punch paper, we need the margins to
switch: big left margin on the even-numbered pages, big right margin on
the odd-numbered pages. But I can't for the life of me figure out how
to set this up, programmatically or otherwise. I searched the archives,
etc. and saw references to prtmip, but the examples don't seem to fit
what I'm doing and frankly I find them really hard to understand regardless.

Anyone have any thoughts, before I have to reformat the whole thing with
1-inch margins all around?

Thanks.

Jan

[Allen Browne]

Access does not give you gutter margins like Word does, so you have to use
code in the Format event of the Page Header to move all the controls over to
the right if the page number is even.

This example moves the controls half an inch to the right. (Measurements are
in twips, where 1440 twips = 1 inch.) Be sure to set up the page so there is
nothing in the rightmost half inch.

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As
Integer)
Dim ctl As Control
Dim iGutter As Integer

'Use half an inch gutter on the even pages.
If (Me.Page Mod 2) = 0 Then
iGutter = 720
End If

For Each ctl In Me.Controls
If IsNumeric(ctl.Tag) Then
ctl.Left = CInt(ctl.Tag) + iGutter
End If
Next
End Sub

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Jan" <ja*@dontspamme.comwrote in message
news:13*************@corp.supernews.com...

>
I was so sure this was easy that I left it for the last minute and now I'm
stuck. I'm working on the student directory for my kids' school and since
it will be printed on 3-hole punch paper, we need the margins to switch:
big left margin on the even-numbered pages, big right margin on the
odd-numbered pages. But I can't for the life of me figure out how to set
this up, programmatically or otherwise. I searched the archives, etc. and
saw references to prtmip, but the examples don't seem to fit what I'm
doing and frankly I find them really hard to understand regardless.

Anyone have any thoughts, before I have to reformat the whole thing with
1-inch margins all around?

Thanks.

Jan

[Jan]

Hi, Allen:

Thanks so much; I was hoping someone would have a quick answer.

One question: looks like you're setting the tag of each control to be
the original left position of the control. Is there a reason for not
just saying
ctl.left=ctl.left+gutter

Thanks.

Jan

Allen Browne wrote:

Access does not give you gutter margins like Word does, so you have to
use code in the Format event of the Page Header to move all the controls
over to the right if the page number is even.

This example moves the controls half an inch to the right. (Measurements
are in twips, where 1440 twips = 1 inch.) Be sure to set up the page so
there is nothing in the rightmost half inch.

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As
Integer)
Dim ctl As Control
Dim iGutter As Integer

'Use half an inch gutter on the even pages.
If (Me.Page Mod 2) = 0 Then
iGutter = 720
End If

For Each ctl In Me.Controls
If IsNumeric(ctl.Tag) Then
ctl.Left = CInt(ctl.Tag) + iGutter
End If
Next
End Sub

[Jan]

OK, I've been working with this for a while now and I've hit another hitch.

(I understand, btw, why I have to put the left margin in the tag;
otherwise the controls continue to march across the page till they fall
off the right side!)

But the problem now is that this particular report is set up in columns,
and while my controls are shifting nicely from side to side, my column
placements seem not to be moving. In particular, the "space between
columns" seems to be in a fixed spot, so on the "big-left-margin" pages
(where all the controls are shifted right), the columns are forced
narrower because the cut-off seems to be fixed. Does that make any sense?

Any ideas?

Jan

Allen Browne wrote:

Access does not give you gutter margins like Word does, so you have
to use code in the Format event of the Page Header to move all the
controls over to the right if the page number is even.

This example moves the controls half an inch to the right.
(Measurements are in twips, where 1440 twips = 1 inch.) Be sure to
set up the page so there is nothing in the rightmost half inch.

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount
As Integer) Dim ctl As Control Dim iGutter As Integer

'Use half an inch gutter on the even pages. If (Me.Page Mod 2) = 0
Then iGutter = 720 End If

For Each ctl In Me.Controls If IsNumeric(ctl.Tag) Then ctl.Left =
CInt(ctl.Tag) + iGutter End If Next End Sub

[Allen Browne]

Yes: this is less than ideal for a page with multiple columns.

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Jan" <ja*@dontspamme.comwrote in message
news:13*************@corp.supernews.com...

OK, I've been working with this for a while now and I've hit another
hitch.

(I understand, btw, why I have to put the left margin in the tag;
otherwise the controls continue to march across the page till they fall
off the right side!)

But the problem now is that this particular report is set up in columns,
and while my controls are shifting nicely from side to side, my column
placements seem not to be moving. In particular, the "space between
columns" seems to be in a fixed spot, so on the "big-left-margin" pages
(where all the controls are shifted right), the columns are forced
narrower because the cut-off seems to be fixed. Does that make any sense?

Any ideas?

Jan

Allen Browne wrote:

>Access does not give you gutter margins like Word does, so you have
to use code in the Format event of the Page Header to move all the
controls over to the right if the page number is even.

This example moves the controls half an inch to the right.
(Measurements are in twips, where 1440 twips = 1 inch.) Be sure to
set up the page so there is nothing in the rightmost half inch.

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount
As Integer) Dim ctl As Control Dim iGutter As Integer

'Use half an inch gutter on the even pages. If (Me.Page Mod 2) = 0
Then iGutter = 720 End If

For Each ctl In Me.Controls If IsNumeric(ctl.Tag) Then ctl.Left =
CInt(ctl.Tag) + iGutter End If Next End Sub

[Jan]

Any solutions to that problem? I do have a fallback option but it's not
so great graphically.

Allen Browne wrote:

Yes: this is less than ideal for a page with multiple columns.

[Salad]

Jan wrote:

Any solutions to that problem? I do have a fallback option but it's not
so great graphically.

Unfortunately a report writer is not a word processor.

If you had data in row/columns in Excel, could you create a report like
you want? If so, maybe you can create a query a Word Doc could use for
the source or export it to Excel.

Allen Browne wrote:

>Yes: this is less than ideal for a page with multiple columns.

[Jan]

Yeah, well, it's pretty last minute at this point (they want to print
the directory tomorrow) and so I'm just going to use my fallback option.
This is one of those volunteer projects that is way bigger than it
should be, and there are times when I just have to call it quits.

Thanks Salad and Allen for your help; I've gotten 90% there and it's
just going to have to be good enough.

Jan

Salad wrote:

Jan wrote:

>Any solutions to that problem? I do have a fallback option but
it's not so great graphically.

Unfortunately a report writer is not a word processor.

If you had data in row/columns in Excel, could you create a report
like you want? If so, maybe you can create a query a Word Doc could
use for the source or export it to Excel.

>Allen Browne wrote:

>>Yes: this is less than ideal for a page with multiple columns.