AverageBear
Technical User
I created a report using the standard design view. Within the report there are several different texts and text formatting. Because some of the data fields can be null, the report would have some white space. I decided to try using the example module ("Eliminating White Space in a Report with CanShrink and Code"
shown on the Microsoft support site. Here's an example of the report design:
SPECIFIC KNOWLEDGE AND EXPERTISE
.[knowledge1]
.
.
.
.[knowledge9]
Consulting firms: [consulting]
Construction firms: [construction]
Other firms: [otherfirms]
Here's a representative sample of the module I created:
Function KnowBlock$(KnowledgeIntro, Knowledge1, Knowledge2, Knowledge3, Knowledge4, Knowledge5, Knowledge6, Knowledge7, Knowledge8, Knowledge9, ExperienceList, ConsultEngrFirms, ConstructFirms, OtherFirmsEtc)
Dim A1$, A2$,...A11$, A12$, A13$, CR$
CR$ = Chr(13) & Chr(10)
A1$ = IIf(ISB(KnowledgeIntro), "", (KnowledgeIntro) & CR$ & CR$ & CR$)
A2$ = IIf(ISB(Knowledge1), "", B1$ & (Knowledge1) & CR$)
.
.
.
A11$ = IIf(ISB(ConsultEngrFirms), "", "Consulting Engineering Firms: " & (ConsultEngrFirms) & CR$)
A12$ = IIf(ISB(ConstructFirms), "", "Construction Firms: " & (ConstructFirms) & CR$)
A13$ = IIf(ISB(OtherFirmsEtc), "", "Other Firms, Etc: " & OtherFirmsEtc) & CR$)
KnowBlock$ = A1$ & A2$ & A3$ & A5$ & A6$ & A7$ & A8$ & A9$ & A10$ & A11$ & A12$ & A13$
End Function
The white spaces are eliminated, but now all the text is 10 point Times New Roman. I need to be able to format in the report with different fonts, add bullets, etc.
shown on the Microsoft support site. Here's an example of the report design:SPECIFIC KNOWLEDGE AND EXPERTISE
.[knowledge1]
.
.
.
.[knowledge9]
Consulting firms: [consulting]
Construction firms: [construction]
Other firms: [otherfirms]
Here's a representative sample of the module I created:
Function KnowBlock$(KnowledgeIntro, Knowledge1, Knowledge2, Knowledge3, Knowledge4, Knowledge5, Knowledge6, Knowledge7, Knowledge8, Knowledge9, ExperienceList, ConsultEngrFirms, ConstructFirms, OtherFirmsEtc)
Dim A1$, A2$,...A11$, A12$, A13$, CR$
CR$ = Chr(13) & Chr(10)
A1$ = IIf(ISB(KnowledgeIntro), "", (KnowledgeIntro) & CR$ & CR$ & CR$)
A2$ = IIf(ISB(Knowledge1), "", B1$ & (Knowledge1) & CR$)
.
.
.
A11$ = IIf(ISB(ConsultEngrFirms), "", "Consulting Engineering Firms: " & (ConsultEngrFirms) & CR$)
A12$ = IIf(ISB(ConstructFirms), "", "Construction Firms: " & (ConstructFirms) & CR$)
A13$ = IIf(ISB(OtherFirmsEtc), "", "Other Firms, Etc: " & OtherFirmsEtc) & CR$)
KnowBlock$ = A1$ & A2$ & A3$ & A5$ & A6$ & A7$ & A8$ & A9$ & A10$ & A11$ & A12$ & A13$
End Function
The white spaces are eliminated, but now all the text is 10 point Times New Roman. I need to be able to format in the report with different fonts, add bullets, etc.
