| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Печать документа Excel [D7, WinXP]

M@D ©   (2005-12-15 09:48:00) 

Доброе утро.
У меня возникла проблема с печатью 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 11:31:00) [1]

Спасибо всем

---

umbra   (2005-12-15 11:19:00) [2]

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

---

k2   (2005-12-15 10:43:00) [3]

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

---

k2   (2005-12-15 10:42:00) [4]

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

---

M@D   (2005-12-15 10:36:00) [5]

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

---

alex_***   (2005-12-15 10:27:00) [6]

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

---

M@D   (2005-12-15 10:01:00) [7]

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

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;

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

---

Наверх