Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.22;
Скачать: 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 вся ветка

Текущий архив: 2006.01.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.028 c
9-1123566931
Shopot
2005-08-09 09:55
2006.01.22
Как сделать так, чтобы игра соединялась по модему.


14-1135615175
Mystic
2005-12-26 19:39
2006.01.22
Небольшой вопросик по Delphi


6-1128849804
Galiaf
2005-10-09 13:23
2006.01.22
Socket, отправить клиенту данные зная только его Ip.


6-1128664985
Del_programmer
2005-10-07 10:03
2006.01.22
IrDA


1-1134549868
neat
2005-12-14 11:44
2006.01.22
Включение/отключение компонента