<br><font size=2 face="sans-serif">If you want you can hide the menu and toolbars with code like this on the Forms on open event</font>
<br>
<br><font size=2 face="sans-serif">hideCommandBars</font>
<br><font size=2 face="sans-serif">DoCmd.ShowToolbar "Unassigned_BM_Loans_Forms", acToolbarYes</font>
<br><font size=2 face="sans-serif">DoEvents</font>
<br>
<br><font size=2 face="sans-serif">Place this code in a module:</font>
<br><font size=2 face="sans-serif">Sub hideCommandBars()</font>
<br><font size=2 face="sans-serif">    Dim cbr As CommandBar</font>
<br><font size=2 face="sans-serif">    For Each cbr In CommandBars</font>
<br><font size=2 face="sans-serif">        hidebar cbr</font>
<br><font size=2 face="sans-serif">    Next cbr</font>
<br><font size=2 face="sans-serif">End Sub</font>
<br>
<br><font size=2 face="sans-serif">Sub listbar(level As Integer, thisbar As CommandBar)</font>
<br><font size=2 face="sans-serif">    Dim cbrctl As CommandBarControl</font>
<br><font size=2 face="sans-serif">    Dim indent As Integer</font>
<br><font size=2 face="sans-serif">    ' Indent the command bar depending on its level in</font>
<br><font size=2 face="sans-serif">    ' the menu structure.</font>
<br><font size=2 face="sans-serif">    For indent = 1 To level</font>
<br><font size=2 face="sans-serif">        'MsgBox "   "</font>
<br><font size=2 face="sans-serif">    Next indent</font>
<br><font size=2 face="sans-serif">    Select Case thisbar.Type</font>
<br><font size=2 face="sans-serif">        Case msoBarTypeMenuBar</font>
<br><font size=2 face="sans-serif">            MsgBox "Menu Bar: " & thisbar.name</font>
<br><font size=2 face="sans-serif">        Case msoBarTypeNormal</font>
<br><font size=2 face="sans-serif">            MsgBox "Toolbar: " & thisbar.name</font>
<br><font size=2 face="sans-serif">        Case msoBarTypePopup</font>
<br><font size=2 face="sans-serif">            MsgBox "Popup: " & thisbar.name</font>
<br><font size=2 face="sans-serif">    End Select</font>
<br><font size=2 face="sans-serif">    For Each cbrctl In thisbar.Controls</font>
<br><font size=2 face="sans-serif">    ' If the control doesn't have a command bar associated</font>
<br><font size=2 face="sans-serif">    ' with it, then don't print it.</font>
<br><font size=2 face="sans-serif">        If cbrctl.Type <> 1 And cbrctl.Type <> 2 _</font>
<br><font size=2 face="sans-serif">              And cbrctl.Type <> 4 And cbrctl.Type <> 16 _</font>
<br><font size=2 face="sans-serif">              And cbrctl.Type <> 18 Then</font>
<br><font size=2 face="sans-serif">            listbar level + 1, cbrctl.CommandBar</font>
<br><font size=2 face="sans-serif">        End If</font>
<br><font size=2 face="sans-serif">    Next cbrctl</font>
<br><font size=2 face="sans-serif">End Sub</font>
<br><font size=2 face="sans-serif">Sub hidebar(thisbar As CommandBar)</font>
<br><font size=2 face="sans-serif">    Dim cbrctl As CommandBarControl</font>
<br><font size=2 face="sans-serif">    Dim indent As Integer</font>
<br><font size=2 face="sans-serif">    ' Indent the command bar depending on its level in</font>
<br><font size=2 face="sans-serif">    ' the menu structure.</font>
<br><font size=2 face="sans-serif">    'For indent = 1 To level</font>
<br><font size=2 face="sans-serif">        'MsgBox "   "</font>
<br><font size=2 face="sans-serif">    'Next indent</font>
<br><font size=2 face="sans-serif">    Select Case thisbar.Type</font>
<br><font size=2 face="sans-serif">        Case msoBarTypeMenuBar</font>
<br><font size=2 face="sans-serif">            DoCmd.ShowToolbar thisbar.name, acToolbarNo</font>
<br><font size=2 face="sans-serif">        Case msoBarTypeNormal</font>
<br><font size=2 face="sans-serif">            DoCmd.ShowToolbar thisbar.name, acToolbarNo</font>
<br><font size=2 face="sans-serif">        Case msoBarTypePopup</font>
<br><font size=2 face="sans-serif">            DoCmd.ShowToolbar thisbar.name, acToolbarNo</font>
<br><font size=2 face="sans-serif">    End Select</font>
<br><font size=2 face="sans-serif">    'For Each cbrctl In thisbar.Controls</font>
<br><font size=2 face="sans-serif">    ' If the control doesn't have a command bar associated</font>
<br><font size=2 face="sans-serif">    ' with it, then don't print it.</font>
<br><font size=2 face="sans-serif">        'If cbrctl.Type <> 1 And cbrctl.Type <> 2 _</font>
<br><font size=2 face="sans-serif">              And cbrctl.Type <> 4 And cbrctl.Type <> 16 _</font>
<br><font size=2 face="sans-serif">              And cbrctl.Type <> 18 Then</font>
<br><font size=2 face="sans-serif">            'listbar level + 1, cbrctl.CommandBar</font>
<br><font size=2 face="sans-serif">        'End If</font>
<br><font size=2 face="sans-serif">    'Next cbrctl</font>
<br><font size=2 face="sans-serif">End Sub</font>
<br>
<br><font size=2 face="sans-serif">I also include the following in a module to get the menu and toolbars back:</font>
<br><font size=2 face="sans-serif">Sub showdefaultbar()</font>
<br><font size=2 face="sans-serif">DoCmd.ShowToolbar "Database", acToolbarYes</font>
<br><font size=2 face="sans-serif">DoCmd.ShowToolbar "Menu Bar", acToolbarYes</font>
<br>
<br><font size=2 face="sans-serif">End Sub</font>
<br>
<br><font size=2 face="sans-serif">Hope this helps</font>
<br>
<br>
<br>
<br>
<table width=100%>
<tr valign=top>
<td>
<td><font size=1 face="sans-serif"><b>"Rocky Smolin - Beach Access Software" <bchacc@san.rr.com></b></font>
<br><font size=1 face="sans-serif">Sent by: accessd-admin@databaseadvisors.com</font>
<p><font size=1 face="sans-serif">01/29/2003 02:00 PM</font>
<br><font size=1 face="sans-serif">Please respond to accessd</font>
<br>
<td><font size=1 face="Arial">        </font>
<br><font size=1 face="sans-serif">        To:        AccessD@databaseadvisors.com</font>
<br><font size=1 face="sans-serif">        cc:        </font>
<br><font size=1 face="sans-serif">        Subject:        [AccessD] How To Stop Printing</font></table>
<br>
<br>
<br><font size=2 face="Arial">Dear List:</font>
<br><font size=3 face="Times New Roman"> </font>
<br><font size=2 face="Arial">I have a user who, instead of printing the report which is attached to a button on a bound form, will hit the printer icon on the toolbar or click File-->Print and, of course, gets 200+ pages because it's printing all the records attached to the bound form.  </font>
<br><font size=3 face="Times New Roman"> </font>
<br><font size=2 face="Arial">He admits it's a bonehead thing to do but wonders if there's a way to prevent him from doing that (be serious, now).</font>
<br><font size=3 face="Times New Roman"> </font>
<br><font size=2 face="Arial">Is there a way to stop that?</font>
<br><font size=3 face="Times New Roman"> </font>
<br><font size=2 face="Arial">MTIA</font>
<br><font size=3 face="Times New Roman"> </font>
<br><font size=2 face="Arial">Rocky Smolin<br>
Beach Access Software</font>
<br><font size=3 face="Times New Roman"> </font>
<br>
<br>