Доброго времени.
Что нужно прописать, что бы при нажатии кнопки печать книги 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;