Olá,

Quando quero dar um PrintPreview em uma planilha do Excel faço assim:

loExcel = createobject("Excel.Application")
loExcel.WorkBooks.Open("Teste.Xls")
loExcel.Visible = .t.
loExcel.ActiveWindow.SelectedSheets.PrintPreview
loExcel.Quit

Então após eu ter visualizado, clico no botão Fechar, e só depois disso ele passa para o Quit. Tudo Ok!


Já no Word faço:

loWord = createobject("Word.Application")
loWord.Documents.Open("Teste.Doc")
loWord.Visible = .t.
loWord.Documents.ActiveDocument.PrintPreview
loWord.Quit

Só que aí ele não espera eu visualizar e já passa pro Quit, direto.

Alguém sabe como eu resolvo isso?

Desde já agradeço.

Abraços,

Márcio Gonçalves
gomes@metha.com.br