Текущий архив: 2004.06.06;
Скачать: CL | DM;
Вниз
MS WORLD Найти похожие ветки
← →
GGREED (2004-05-22 21:16) [0]Добрый вечер, есть у меня еще один вопросик
Как можно создать отчет в MS World, например как бланк приказа, и вывести туда данные.
Спасибо.
← →
Inspired © (2004-05-23 01:53) [1]Лучше берите Excel, там расчертите бланк и оставьте место куда чего-то нужно вписать, потом через OLE его откройте и по нужным ячейкам (их номера вам конечно известны) разложите все необходимое. потом делаете visible = true и пользователь может давить на принтер. проверено
← →
Alexandr (2004-05-23 11:47) [2]можно и в word нарисовать заранее.
А потом по определенным закладкам определенными данными заполнять.
← →
Sergey Masloff (2004-05-23 12:24) [3]Alexandr (23.05.04 11:47) [2]
>можно и в word нарисовать заранее.
Можно но Excel работает значительно быстрее. Мне вообще кажется что Excel и Word делали разные команды программистов и в той что занималась Excel было очень мало индийских программистов.
← →
Гаврила © (2004-05-23 12:27) [4]>>Sergey Masloff (23.05.04 12:24) [3]
Разные и делали. И тех, которые делали Wor(l)d (:-)) потом расформировали
← →
GGREED (2004-05-23 13:01) [5]>Лучше берите Excel, там расчертите бланк и оставьте место куда >
>чего-то нужно вписать, потом через OLE его откройте и по нужным
>ячейкам (их номера вам конечно известны) разложите все
>необходимое. потом делаете visible = true и пользователь может
>давить на принтер. проверено
Примерчик можно, если можно, то подробнее
Спасибо
← →
Dumnok (2004-05-24 00:42) [6]
Klndr : array[1..12] of string = ("Января", "Февраля", "Марта",
"Апреля", "Мая", "Июня","Июля", "Августа", "Сентября",
"Октября", "Ноября", "Декабря");
......................................
procedure TF1.Word;
var
MW: Variant;
S,r1,r2,r3,r4,r5: string;
B: Boolean;
i,k: Integer;
Y,M,D: WORD;
begin
B:=false;
S:=ExtractFilePath(Application.ExeName);
if not IsOLEObjectInstalled("Word.Application") then
begin
ShowMessage("Word не установлен");
Exit;
end;
try
MW:=GetActiveOleObject("Word.Application");
except
B:=true;
end;
if B then
MW:=CreateOleObject("Word.Application");
MW.Documents.Add(S+"Text\Doc.dot");
MW.Visible:=true;
DecodeDate(Date,Y,M,D);
r5:="""+IntToStr(D)+"""+" "+Klndr[M]+" "+IntToStr(Y);
MW.Selection.GoTo(-1,0,0,"Dat2");
MW.selection.TypeText(r5);
MW:=Unassigned;
end;
← →
Dumnok (2004-05-24 00:46) [7]Только предварительно сделай закладку "Dat2" в шаблоне своего документа.
Страницы: 1 вся ветка
Текущий архив: 2004.06.06;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.109 c
