Change Fonts in a Module

[AverageBear]

I have created a module that runs a subreport that is part of resume. I need to format the subreport with different 3 fonts/styles.

 

[scking]

Each textbox in the report can have its font set as a property during design mode. Your description was so short and uninformative I assume most are confused and won't answer. Module is generally refered to as the code module external from a report. If you want to set the fonts on the report during runtime then you need to use the OnFormat property of the detail section and code the changes based on your criteria.

Steve King



Steve King Growth follows a healthy professional curiosity

 

[AverageBear]

Thank you, scking! I created a report using the 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 (using code to eliminate white space in a report) shown on the Microsoft support site. Here's an example of the report design:

SPECIFIC KNOWLEDGE AND EXPERTISE
[ul][li][knowledge1][/li]
.
.
.
[knowledge9]

Consulting firms: [consulting]

Construction firms: [construction]

Other firms: [otherfirms]

Here's a representative sample of the module:

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.