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