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

Отчёт в Delphi   Найти похожие ветки 

← →
Анатолий   (2002-01-03 05:42) [0]

Как создать отчёты в Word? С чего начать? Для этой цели нужен Delphi начиная с 6 версии ?

---

← →
gek   (2002-01-03 07:06) [1]

Нет, и под Delph2 работает

---

← →
MrBeer ©   (2002-01-03 08:44) [2]

ya etim delom seichas balujusj, realno D3+ (no v D3 net takoi veschi kak EmptyParam) tak chto ludshe D4+.

Hotya EmptyParam mozhno sozdatj:

var
EmptyParam: OleVariant;
(*Eto v konce unita postavitj*)
initialization
TVarData (EmptyParam).VType := varError;
TVarData (EmptyParam).VError := DISP_E_PARAMNOTFOUND;
end.

Best regards, MrBeer.

---

← →
SlavaG   (2002-01-03 21:10) [3]

Реально работающаяя программа, может быть и ламерство, но тем неменее все работает, (создается шаблон с закладками и в него на места закладок грузим все че захотим)
//********проверяем есть ли Ворд на машине********сформировать документ Worda***********
If ConfigPrWord.AsBoolean then
Begin
try // Если Word уже запущен
MsWord := GetActiveOleObject("Word.Application"); // Взять ссылку на запущенный OLE объект
except
try // Word не запущен, запустить
MsWord := CreateOleObject("Word.Application"); // Создать ссылку на зарегистрированный OLE объект
Sleep(1000); //задерка в 4 секунды-ждем когда его мозги очухаются
MsWord.Visible := True;
except
ShowMessage("Внимание! Не могу запустить Microsoft Word.");
Exit;
end;
end;
MSWord.Documents.Add(Template:=PathTable+"\Zapros.dot",NewTemplate:=0); // Создать новый документ используя шаблон
MsWord.Selection.Goto(Name:="TableSud");
MsWord.Selection.TypeText(TableSud.AsString);
MsWord.Selection.Goto(Name:="TableNvxod");
MsWord.Selection.TypeText(TableNvxod.AsString);
MsWord.Selection.Goto(Name:="TableIstec");
MsWord.Selection.TypeText(TableIstec.AsString);
MsWord.Selection.Goto(Name:="TableOtvetchik");
MsWord.Selection.TypeText(TableOtvetchik.AsString);
MsWord.Selection.Goto(Name:="TableSumma");
MsWord.Selection.TypeText(TableSumma.AsString);
MsWord.Selection.Goto(Name:="TablePeredanoEXP");
MsWord.Selection.TypeText(TablePeredanoEXP.AsString);
end;
end;

---

← →
MrBeer ©   (2002-01-05 15:15) [4]

Nashol tut na russkom - http://www.sources.ru/delphi/delphi_word.shtml

Best regards.

---

← →
Анатолий   (2002-01-06 06:17) [5]

Спасибо за подсказку MrBeer

---

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

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



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