ACC2000: Eliminating White Space in Reports with CanShrink & Code

• Microsoft Access 2000

SUMMARY

Before you print a form or a report, you can save space by conditionally reducing the size of the controls on the form or report. For example, you might want to reduce the size of text boxes that contain varied-length text, or reduce the size of text boxes bound to fields that could be empty.

Before you try to reduce the size of controls in reports, however, consider the following:

• Overlapping controls will not shrink, even when the CanShrink property is set to Yes.



• Controls shrink line by line (vertically). This means, for example, that if there is a group of controls placed on the left side of the page and a large control (for example, an OLE picture) on the right side of the page, the controls on the left side of the page will not shrink, unless the picture is blank and hidden.



• Space between controls is not affected by the CanShrink or CanGrow property.



• Controls located in the page header or page footer can shrink and grow. However, the sections do not have CanGrow and CanShrink properties. This means, you can still have blank space in a page header or page footer section (even though its controls may shrink).

http://www.microsoft.com/mcsp/

http://www.microsoft.com/support/supportnet/overview/overview.asp

MORE INFORMATION

A control containing null information automatically shrinks to nothing and disappears when its CanShrink property is set to Yes, but the space between the controls is not affected by the CanShrink property.

For example, say you have 11 controls in a column of a report, and there is .1 inch of space between each control. Even if all 11 controls contain null information and all 11 have their CanShrink property set to Yes, the space between the controls adds up to 1 inch. When you print the report, even though the 11 controls are not printed, the first control that does contain text will be printed 1 inch lower than you might expect because of all the accumulated space.

A good way to manage the size of your controls is to have as few controls as possible. This will minimize the white space between the controls.

The following example demonstrates how to print mailing labels by using a Visual Basic function to minimize the number of controls and to give you even spacing. Say you want to create mailing labels containing a name, business name, address, city, state, and zip code. You could use several different fields, but it would be better to use a single text box, as in the following step-by-step example.

CAUTION: Following the steps in this example will modify the sample database Northwind.mdb. You may want to back up the Northwind.mdb file and perform these steps on a copy of the database.

1. Create a new module and type the following line in the Declarations section if it is not already there:




Option Explicit 

2. Type the following procedures:




Function AddressBlock$ (AName, Addr1, Addr2, City, State, Zip)

   Dim A1$, A2$, A3$, A4$, CR$

   CR$ = Chr(13) & Chr(10)  'Carriage return and line feed.

   A1$ = IIf(ISB(AName),"",AName & CR$)
   A2$ = IIf(ISB(Addr1),"",Addr1 & CR$)
   A3$ = IIf(ISB(Addr2),"",Addr2 & CR$)
   A4$ = City & ", " & State & " " & Zip

   AddressBlock = A1$ & A2$ & A3$ & A4$   'Concatenate the strings.
End Function

Function ISB (V) As Integer
   If IsNull(V) or V = "" Then ISB = True Else ISB = False
End Function
 

3. To test this function, create a blank report based on the Employees table in Northwind.mdb. Set the Height property of the detail section to 0.1667 inches.



4. Create a single text box control with the CanGrow property set to Yes, the Height property set to 0.1667", and delete the associated label. Set the ControlSource property of the text box to the following expression:




=AddressBlock([LastName],[Title],[Address],[City],[Region],[PostalCode])

REFERENCES

For more information about the CanShrink or CanGrow property, click Microsoft Access Help on the Help menu, type CanShrink, CanGrow in the Office Assistant or the Answer Wizard, and then click Search to view the topic.

Additional query words: shrinking functions

Keywords : kbusage kbdta AccCon RptLayou
Version : WINDOWS:2000
Platform : WINDOWS
Issue type : kbhowto