печать листов excel

[ара]

Доброго времени суток!
изобразил вот такой код для печати страницы Excel:

procedure TForm1.Button1Click(Sender: TObject);
var MsExcel: Variant;

begin
 MsExcel := CreateOleObject('Excel.Application' );
 MsExcel.Workbooks.Open['D:\март.xlsx'];
 MsExcel.ActiveSheet.PrintOut;
MsExcel.ActiveWorkbook.Close;
MsExcel.Application.Quit;
end;

end.

Принтер не подключен, в результате чего выплывает окно с предложением сохранить файл. Если сохраняешь, то все работает дальше. Есле нажимаешь на ОТМЕНА, то сообщает об ошибке. Подскажите, плиз, как ее убрать?

[Grag]

MsExcel.DisplayAlerts:=false;

[ара]

Не получается! DisplayAlerts, помоему, бокирует запросы Excel. А у меня выпадает ошибка какого-то метода. Что еще можно попробывать?

[Tirendus]

Свойство DisplayAlerts не блокирует запросы, оно отключает окна с уведомлениями типа "Вы уверены, что хотите закрыть этот документ, не сохраняя его?". Если выпадает какая-то ошибка какого-то метода (точнее сказать не могу), и появляться она стала только после того, как вы применили DisplayAlerts, то именно это свойство вы каким-то образом указали неверно.

procedure TForm1.Button1Click(Sender: TObject);
var MsExcel: Variant;

begin
MsExcel := CreateOleObject('Excel.Application' );
MsExcel.Workbooks.Open['D:\март.xlsx'];
MsExcel.DisplayAlerts := False;
MsExcel.ActiveSheet.PrintOut;
MsExcel.ActiveWorkbook.Close;
MsExcel.Application.Quit;
end;

end.

По идее, вот так должно работать. И попробуйте все-таки этот код при подключенном принтере.

[Grag]

А не проще показать эту ошибку тут. Ну, хоть сделал бы снимок экрана, что ли! А то ломайте голову, что там у него происходит...

[ара]

Так то все работает. Но меня интересует ситуация, когда принтер не подключен. Вылезает окно с предложением сохранить файл который нужно напечатать. если его сохраняешь, то вопросов нет, все нормально. Но если пользователь нажмет ОТМЕНА, то выдает ошибку:"Метод PrintOut" из класса Worksheet завершен неверно". Как сделать так чтобы при таких действиях корректно все завершалось????

[Grag]

Еще уточни с каким Экселем работаешь? Используй обработку исключений, может поможет...

[ара]

эксель 2007, подскажи про обработку исключений. Еще с этим не сталкивался!??

[Grag]

try
.........
except
........
end;
Обработка исключительных ситуаций.

[ара]

Написал вот так:
procedure TForm1.Button1Click(Sender: TObject);
var MsExcel: Variant;

begin
MsExcel := CreateOleObject('Excel.Application' );
MsExcel.Workbooks.Open['D:\март.xlsx'];
MsExcel.DisplayAlerts := False;
try
MsExcel.ActiveSheet.PrintOut;
except
MsExcel.ActiveWorkbook.Close;
MsExcel.Application.Quit;
end;
end;



end.
Таже ошибка