[tweacle[_4_]]

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 I
want it to close and NOT SAVE. Can anyone help?




--
tweacle

[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

"tweacle" wrote in message
...

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 I
want it to close and NOT SAVE. Can anyone help?




--
tweacle