How to open a blank version of a report?

[jjake]

I have a report that is generated from a form that i want to serve 2 purposes.

1. I filter the report based upon a record which i can then view data or print. (I have this working)

2. I click a button which opens the same report but in this case all the fields are blank which will allow me to print the report so an individual can handwrite in the fields.

I've read about changing the font color to white so that it is hidden but i have about 100 fields and i was wondering if their was a more efficient way so i don't need 100 lines of code.

 

[Ranman256]

make a blank report:
just take the existing report, save as ,rMyRptBlank.
remove the fields and the query.

 

[jjake]

My only problem with this is if i make changes i have to edit 2 reports each time. Also it is a report that has multiple sub reports.

 

[isladogs]

I have a report that is generated from a form that i want to serve 2 purposes.

1. I filter the report based upon a record which i can then view data or print. (I have this working)

2. I click a button which opens the same report but in this case all the fields are blank which will allow me to print the report so an individual can handwrite in the fields.

I've read about changing the font color to white so that it is hidden but i have about 100 fields and i was wondering if their was a more efficient way so i don't need 100 lines of code.

I can think of at least 3 ways:
a) You could do 1 or 2 in one report by setting the report record source from the form where option 1 has the 'normal record source' and option 2 has an empty record source

b) Create a record where all fields shown on the report are empty & filter for that in option 2 - note this won't work if you are showing the PK field in the report (unless you then make that one font colour = white)

c) Using the white font colour idea, set the tag value to be the same (e.g. X) for all controls you want to be blank. Then in the Format events for each report section add code something like:

For Each ctrl in Me.Controls
    If If ctrl.Tag = "X" And intOption=2 Then ctl.ForeColor=vbWhite
Next

intOption = 1 or 2 would of course be set on the form ...

Choose whichever you prefer (or understand best)

HTH