Macro for that stops a picture from printing

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Martin H - 09 Oct 2007 14:21 GMT

Hi,

I'm using microsoft word 2003 and I want to set a JPEG in the header and
footer background to show the other people where to type but do not want this
to JPEG to print. I just want it to be in the document as a reference image
as it is to be pre-printed.

I had a reply that a macro is available to be able to do this, if so can
someone forward me in the right direction?

Thanks

Martin

Reply to this Message

Jean-Guy Marcil - 09 Oct 2007 15:01 GMT

Martin H was telling us:
Martin H nous racontait que :

> Hi,
>
[quoted text clipped - 5 lines]
> I had a reply that a macro is available to be able to do this, if so
> can someone forward me in the right direction?

Something like this to get you going:

'_______________________________________
Dim rgeHeader As Range
Dim rgeFooter As Range

Set rgeHeader =
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
Set rgeFooter =
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range

With rgeHeader
.ShapeRange.Delete
End With

With rgeFooter
.ShapeRange.Delete
End With

Application.Dialogs(wdDialogFilePrint).Show

ActiveDocument.Undo 2
'_______________________________________

Signature

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Reply to this Message