oWord = getOBJECT(,"Word.Application") oWord.activate oWord.ActiveDocument.printpreview() * Disable bars as neeeded =iSetWordBars(.f.) do while "preview"$LOWER(oWOrd.ActiveWindow.Caption) WAIT WINDOW TIMEOUT 1.0 "Close Word Print Preview to continue..." enddo * Enable bars =iSetWordBars(.t.) =messagebox('Press Ok to continue') oword=.null. *----------------- PROCEDURE iSetWordBars LPARAMETERS plValue oword.CommandBars("Menu Bar").Enabled = plValue *alternatives/additions are like: *oword.CommandBars("Menu Bar").Controls("File").Enabled = plValue *oword.CommandBars("Menu Bar").Controls("Edit").Enabled = plValue *oWord.CommandBars("Standard").Enabled = plValue *oWord.CommandBars("Formatting").Enabled = plValue>Yuri, I have just about everything working I need within the document, what I've run up against is an easy way of doing a print preview...here's what I have in simple form...