Скачать: 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 вся ветка

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



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