[Vansha]

Доброго времени.
Что нужно прописать, что бы при нажатии кнопки печать книги Excel, не выводилось сообщение «Вы хотите сохранить изменение в документе», а автоматом происходило сохранение и происходила печать всей книги Excel.

Код:

uses  
  ComObj;  

procedure TForm1.Button1Click(Sender: TObject);  
var  
  ExcelApp: OLEVariant;  
begin  
  ExcelApp := CreateOleObject('Excel.Application');  
  try  
    ExcelApp.Workbooks.Open('C:\test\3021.xls');  
      ExcelApp.ActiveSheet.PageSetup.Orientation := xlLandscape;  
     ExcelApp.Worksheets.PrintOut;  
  finally  
      if not VarIsEmpty(ExcelApp) then  
    begin  
      ExcelApp.Quit;  
      ExcelApp := Unassigned;  
    end;  
  end;  
end;