Delphi + StringGrid + Excel . . .

[portible]

Есть программа которая должна печатать квитанции, которую мне помогли сделать и в которой я не сильно разбираюсь. =)

есть заполненный stringgrid2, и кнопка "Экспорт в Ексель" которая создает книгу и переносит весь stringgrid2 в ексель и сохраняет его в папку с программой.

 procedure TForm1.Button2Click(Sender: TObject);
var
Excel, WorkBook, Sheet:variant;
i, j: integer;
FName: string;
begin
FName :=extractfilepath(paramstr(0))+datetostr(date)+' report.xls';
Excel:=CreateOleObject('Excel.Application');
Excel.DisplayAlerts:=False;
Excel.Visible:= True;
Workbook:=Excel.
Workbooks.Add;
Workbook.SaveAs(FName);
Sheet:= Workbook.ActiveSheet;
for i:= 0 to StringGrid2.RowCount - 1 do
begin
for j:= 0 to StringGrid2.ColCount - 1 do
Sheet.Cells[i+1, j+1]:= StringGrid2.Cells[j, i];
end;
Sheet.Cells[2,8]:='Сумма дол. '+edit2.Text;
Sheet.Cells[3,8]:='Сумма евро. '+edit3.Text;
Workbook.Save;
Workbook.Close;
Excel.Quit;
Excel:= UnAssigned;
MessageBox(Handle,'Экспорт завершен!','Внимание!',0);
end;

есть ещё одна кнопка "Печать", которая должна печатать ту квитанцию которую только что создала программа и в дальнейшем...

P.S. при создании квитанции чтоб она не появлялась перед главной формой, и после печати ексель не оставался на панели задач.

Не знаю или activesheet.printout; подойдет. Прошу помощи.




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[portible]

Ребята помогите пожалуйста . . .

[<- DelpHIFanat ->]

Я бы сделал немного по-другому: вывел данные в отчёт Excel, и сразу же показал бы результат. Так, мне кажется, проще. А потом его можно сохранять как нужно, редактировать, печатать... Я немного изменил и отформатировал Ваш код (призываю форматировать код, не не писать так: сломайсебеглазакод, не для врагов ведь пишете, а, прежде всего, для себя).

[portible]

Я б с радостью так сделал но это преподаватель настаивает... Оо гемор...
и ещё чтоб в название сохранённого excel вставлялась не только дата но и время

вставляю timetostr(time)
выдает ошибку, как можно по другому вывести ??

procedure TForm1.Button2Click(Sender: TObject);
var
Excel, WorkBook, Sheet:variant;
i, j: integer;
FName: string;
begin
IF stringgrid2.Cells[0,1]='' then 

MessageBox(Handle,'Таблица пуста заполните её','Внимание!',0)

else begin

FName :=extractfilepath(paramstr(0))+datetostr(date)+timetostr(time)+' report.xls';

Excel:=CreateOleObject('Excel.Application');
Excel.DisplayAlerts:=False;
Excel.Visible:= True;

Workbook:=Excel.
Workbooks.Add;
Workbook.SaveAs(FName);
Sheet:= Workbook.ActiveSheet;

for i:= 0 to StringGrid2.RowCount - 1 do
begin

for j:= 0 to StringGrid2.ColCount - 1 do
Sheet.Cells[i+1, j+1]:= StringGrid2.Cells[j, i];
end;
Sheet.Cells[2,8]:='Сума,дол. '+edit2.Text;
Sheet.Cells[3,8]:='Сума,грн. '+edit3.Text;

Workbook.Save;
Workbook.Close;

Excel.Quit;
Excel:= UnAssigned;

MessageBox(Handle,'Єкспорт завершен','Внимание!',0);
end;
 end;

[<- DelpHIFanat ->]

Вот заменил и прокатывает.

FName :=extractfilepath(paramstr(0))+FormatDateTime('dd.mm.yyyy', Date)+' '+
FormatDateTime('hh.mm.ss', Time())+' report.xls';