How can I get my macro to revert to original colours

[tweacle]

I have a macro of which the end of its shown.

With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth050pt
.DefaultBorderColor = wdColorAutomatic
End With
ActivePrinter = "\\bly-svr1\Control Bletchley LJ 4050"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument
Item:= _
wdPrintDocumentContent, Copies:=1, Pages:=""
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True
PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0
PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActiveWindow.Close
End Sub

The problem I have is that its saving the document when it closes and
want it to close and NOT SAVE. Can anyone help

 

[Doug Robbins - Word MVP]

Insert

ActiveDocument.Saved = True

before the ActiveWindow.Close

--
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