How do I print only checked off items from a checklist form

[mccreadyRN]

Is it possible to use Word to create a form with checkboxes. The form is
printed and used as a checkoff by endusers. Once the enduser completes the
paper form its submitted and data entry enters the checks on the electronic
form and from that creates a Word document with only the checked off items on
the list?

 

[Doug Robbins - Word MVP]

See the Boiler.zip on fellow MVP Graham Mayor's website at:

http://www.gmayor.com/downloads.htm

--
Hope this helps,

Doug Robbins - Word MVP

Please reply only to the newsgroups unless you wish to obtain my services on
a paid professional basis.

 

[Graham Mayor]

I am not sure how the boiler add-in as suggested by Doug will help. I wonder
if he picked the wrong link from my web site?
You can use the same form for printing and electronic submission, but
obviously any paper form will require transcribing to the PC form before you
can create a report. Having done that you need to see the link I believe
Doug intended - http://www.gmayor.com/ExtractDataFromForms.htm and maybe
also http://www.gmayor.com/SelectFile.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Doug Robbins - Word MVP]

I guess I might have read more into the task than was intended. I was
thinking that they wanted to create and print a document that was made up of
text items represented by the checked items on the paper form. That is
something more than just printing the items that were checked.

If the form was arranged as a two column table with the text associated with
each checkbox in the cells of the first column and the checkboxes in the
second column, running a macro containing the following code would delete
the rows for which the check box was not checked and then print out what
remained of the document:

Dim i As Long
With ActiveDocument
.Unprotect
With .Tables(1)
For i = .Rows.Count To 1 Step -1
If .Cell(i, 2).Range.FormFields(1).CheckBox.Value = False Then
.Rows(i).Delete
End If
Next i
End With
.PrintOut
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com