By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
435,294 Members | 2,681 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 435,294 IT Pros & Developers. It's quick & easy.

page breaks, printing and vba

P: n/a
hey... i have a report that groups on salespeople. the report footer is a
three part summary of the store's total data with 2 different departments for
parts 1 and 2 and a store total for part 3. part of the form that creates
the report is the ability to select a specific department. it is when that
happens, that i need 2 of the 3 parts of the report footer to be
visible=false. now i've got that working but here's the real problem.

there's a page break inbetween each of the 3 parts in the report footer.
when the unwanted section goes visible=false, the final report has 2 blank
pages. i tried having the page breaks go visible as well (thus preventing
the page from breaking) but the size of the report footer is so big that it's
not all on one page.

basically my report footer is 13.25 inches long
part 1 starts at 0 inches and is about 4.25 inches long with the page break
at 4.375 inches.
part 2 starts at 4.375 inches and is about 4.25 inches long with the page
break at 8.875 inches.
part 3 starts at 8.875 inches and is about 4.25 inches long with no page
break needed at the end.

if the page breaks are untouched, pages 6 and 7 of the report are blank when
parts 1 and 2 are visible=false and part 3 prints on page 8.

if the page breaks go visible=false with parts 1 and 2, page 6 is blank, page
7 has 95% of part 3 on it, only with a HUGE margin and page 8 has the last
line of part 3 on the very top of the page.

my code for the parts is (don't know if you need to know this or not):

Dim ctlCurr As Control
Dim usedctrls As Boolean
Dim newctrls As Boolean

usedctrls = IsNull(Forms!formquerybuilder.Controls!cboxdepartm ent)
newctrls = IsNull(Forms!formquerybuilder.Controls!cboxdepartm ent)

For Each ctlCurr In Me.Controls
If ctlCurr.Tag = "usedcontrols" Or ctlCurr.Tag = "newcontrols" Then
ctlCurr.Visible = usedctrls
End If
Next ctlCurr

i know it sounds incredibly anal of my to type out all the measurements and
all but i couldn't think of a better way to describe what was happening and
make it coherent.

any suggestions?

Message posted via
Jan 10 '06 #1
Share this Question
Share on Google+
1 Reply

P: n/a
Monsieur Unhelpful here - check your page margins. I'm not entirely
sure what you're trying to do because I really just scanned your post.
I've found that extra blank pages usually have something to do with the
margins being off a bit. Your situation seems to involve dynamically
changing the report length, though, so my suggestion may be completely

Jan 10 '06 #2

This discussion thread is closed

Replies have been disabled for this discussion.