Скачать: CL | DM;

Печать документа 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 ..

---

← →
umbra ©   (2005-12-15 11:19) [6]

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

---

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

Спасибо всем

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.05 c