Checkbox on word document

kareltje · February 17th, 2005, 08:49 AM

hi,

When i set a checkbox on a document and i print the document the checkbox will be print also.
I don't want that.
How can i provide that it won't print with the document??

shattered · February 17th, 2005, 08:54 AM

Right click on the object (in this case the checkbox) and select Format Control. Click on the properties tab and uncheck the Print Object check box

kareltje · February 17th, 2005, 09:30 AM

Yes shattered you can do that in EXCEL, but not in word.

I know this is the form of excel vba but the form word vba does not excist as fare i have seen.

gcianfanelli · February 17th, 2005, 11:17 AM

To do this in Word VBA you'd need something like:

Code:

public Sub FilePrint()
  Dim wordShape As Word.inlineshape
  Dim foundControlShape As Boolean
  Dim printHiddenTextState As boolean

  For Each wordShape In ActiveDocument.InlineShapes
    with wordShape
      If .Type = wdInlineShapeOLEControlObject Then
        .Range.Font.Hidden = True
        foundControlShape = True
      End If
    end with
  Next

  printHiddenTextState = Application.Options.PrintHiddenText

  If foundControlShape Then
    Application.Options.PrintHiddenText = False
  End If

  Application.Dialogs(wdDialogFilePrint).Show

  If foundControlShape Then
    For Each wordShape in ActiveDocument.InlineShapes
      With wordShape
        If .Type = wdInlineShapeOLEControlObject Then
          .range.Font.hidden = false
        End If
      End With
    next
  End If

  application.Options.PrintHiddenText = printHiddenTextState
End Sub

Basically, you can loop through all OLE Control shapes in the document and set the hidden property of the font to True.

You may well need to beef up this code as it's only searching the body of the document for these control objects. Also, FilePrint only traps the Print option under the File menu (as well as Ctrl+P shortcut). To trap the print icon on the toolbar you'll need to declare a FilePrintDefault procedure, and do

Code:

ActiveDocument.PrintOut

rather than show the print dialog

good luck