Must be an easy way

[eddcole]

Hi There,



I have a two page form, if I do not fill any info in on page two then it does not need to print. Is there an easy way to stop it printing other that only selecting page one once I'm in the print option? I have considered hiding the page unless a check box is checked but that would mean hiding every individual element in a massive code.

Any ideas guys

[Bulzie]

You should really print from reports, not forms but this might work on a button. You should check values in fields to see if page 2 is needed.


Dim MyForm As Form
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, MyForm.Name, True
If isnull(me.Page2Fielda) and isnull(me.Page2Fieldb) then

DoCmd.PrintOut acPages, 1, 1 'Print only page 1

Else

DoCmd.PrintOut 'Print all pages

End If
DoCmd.SelectObject acForm, MyForm.Name, False

[CJ_London]

forms are not really intended for printing, but you could look at having some code which checks if data has been completed on page 2 and if not changes all the controls on that page 'display when' property to Screen Only. Chances are it will still print a blank page though.

Another option would be to reduced the height of all controls to 0, move their top position to top of page then change the detail height to ensure it only prints one page - then put it all back again for the next record.

Or perhaps put all of page 2 into a subform, in which case you would only need to change the height and reposition one control.