Ok - I've asked my MVP friends and here's a response:
It doesn't work in Word 2007.
Here are a couple of macros and a function that temporarily turn the colour
of the borders to white, prints the document and then turns the borders back
to black
Sub FilePrint()
PrintForm
End Sub
Sub FilePrintDefault()
PrintForm
End Sub
Function PrintForm()
Dim atable As Table
Application.ScreenUpdating = False
With ActiveDocument
.Unprotect
For Each atable In .Tables
With atable.Borders
.InsideColor = wdColorWhite
.OutsideColor = wdColorWhite
End With
Next atable
.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
.PrintFormsData = True
.PrintOut
.Unprotect
For Each atable In .Tables
With atable.Borders
.InsideColor = wdColorAutomatic
.OutsideColor = wdColorAutomatic
End With
Next atable
.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End With
Application.ScreenUpdating = True
End Function
--
Regards,
Doug Robbins - Word MVP