Insert instructions on a form that won't appear when printed

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Am creating a form for users to fill in fields. WOuld like to inform them of
what is required in each field but don't want the instructions to appear when
the form is printed.
 
Several options. Chief of which are online forms, where you can add help in
the status line and to the F1 key, and macrobutton fields which can display
your prompt, which is typed over by the user. For more about online forms,
follow the links at http://addbalance.com/word/wordwebresources.htm#Forms or
http://word.mvps.org/FAQs/Customization/FillinTheBlanks.htm especially Dian
Chapman's series of articles. See
http://www.addbalance.com/usersguide/fields.htm#MacroButton and
http://www.mvps.org/word/FAQs/TblsFldsFms/UsingMacroButton.htm for more
about macrobutton fields.

Hope this helps,
--

Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.
 
Al,

I didn't test on a protected form, but I put instructions in a frame and
then use this series of macros to show on screen and hide in print:

Public Sub FilePrint()
' intercepts File > Print (Ctrl+P)
HideInstructions
Dialogs(wdDialogFilePrint).Show
UnhideInstructions
End Sub

Public Sub FilePrintDefault()
' intercepts Print button
HideInstructions
ActiveDocument.PrintOut Background:=True
UnhideInstructions
End Sub

Public Sub FilePrintPreview()

ActiveDocument.PrintPreview
HideInstructions
End Sub
Public Sub ClosePreview()
ActiveDocument.ClosePrintPreview
UnhideInstructions

End Sub


Sub HideInstructions()
Dim instFrame
Dim i As Integer

On Error Resume Next
Set instFrame = ActiveDocument.Frames
For i = 1 To instFrame.Count
With instFrame(i)
.Range.Font.Hidden = True
.Shading.BackgroundPatternColor = wdColorAutomatic
.Borders.OutsideLineStyle = wdLineStyleNone
End With
Next i
Err.Clear
End Sub
Sub UnhideInstructions()
Dim instFrame
Dim i As Integer

On Error Resume Next
Set instFrame = ActiveDocument.Frames
For i = 1 To instFrame.Count
With instFrame(i)
.Range.Font.Hidden = False
.Shading.BackgroundPatternColor = wdColorLightYellow
.Borders.OutsideLineStyle = wdLineStyleSingle
End With
Next i
Err.Clear
End Sub
 
Back
Top