Печать документа Excel

← →
M@D (2005-12-15 09:48) [0]

Доброе утро.
У меня возникла проблема с печатью Excel документа

procedure TForm1.print(Param: String; S: TStringGrid; In_Out:Boolean; Excel: TExcelApplication); begin Excel.Connect; Excel.Workbooks.Open(Path + Param, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, xlLCID); Excel.Cells.Item[22 + i,6] := MaskEdit2.Text Excel.Cells.PrintOut(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); Excel.Disconnect; Excel.Quit; end;

при печати просит сохранить документ или нет, а мне это совершенно не нужно.
Прописывал Excel.AlertBeforeOverwriting[xlLCID] := False;
не помогает.

← →
M@D (2005-12-15 10:01) [1]

кусок кода я просто вырезал из проги, вот прим

procedure TForm1.print; begin Excel.Connect; Excel.Workbooks.Open("c:\123.xls", EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, xlLCID); Excel.Cells.Item[22] := "1234567890"; Excel.Cells.PrintOut(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); Excel.Disconnect; Excel.Quit; end;

как можно сделать, чтоб он сохранял документ без запроса на сохранение?

← →
alex_*** © (2005-12-15 10:27) [2]

через ShellExecute не проще печатать?

← →
M@D (2005-12-15 10:36) [3]

Уже написана тонна текста проги, непеписывать не охота, да я и не знаю как.

← →
k2 © (2005-12-15 10:42) [4]

может тогда перед печатью стоит сделать Excel.SaveAs?
а если сохранять не надо и запроса штобы не было wbook.saved[xlLCID] := true;

← →
k2 © (2005-12-15 10:43) [5]

сорри в смысле wbook.SaveAs ..

Excel.Connect; Excel.DisplayAlerts := False; {.................................}

← →
M@D (2005-12-15 11:31) [7]

Спасибо всем

Печать документа Excel Найти похожие ветки