Delphi работа с Word (таблицы)

[ScorpioN_T]

Всем доброго времени суток!
Delphi
word
Есть шаблон в word'e, одна страница, в нем таблица из 3 больших строк в два столбца ( получается 6 ячеек). В конце каждой ячейки (этой таблицы), есть еще две ячейки, в одну из этих ячеек МНЕ надо поместить Цифры.

Этот лист (после распечатки на бумагу) в дальнейшем будет резаться на ШЕСТЬ равных частей, нужно чтобы каждый, из частей был пронумерован.

Или как можно по другому создать приложение не пользуясь программой Word, т.е. через приложение Delphi.
Т.е. пускать на печать из программы, с возможностями:
-редактирования,
-вставки рисунка, как перед текстом и так же на фон
-вычерчивание таблицы

[FaTaL]

А Ворд Вас чем не устраивает? Что именно не получается? Указываете Cell где надо писать и вперёд.

[ScorpioN_T]

На счет word я передумал. (если есть шаблон, то его можно просто отредактировать и изменить под свой вкус).
А мне надо чтобы пользователь не смог его просмотреть, не говоря о редактировании.
П.С. эти листы нужны для чеков, поэтому надо чтобы к ШАБЛОНУ имел доступ ТОЛЬКО администратор.

[Аватар]

А мне надо чтобы пользователь не смог его просмотреть, не говоря о редактировании.

Можно шаблон зашить в ресурсный файл и брать оттуда. Или пользоваться генератором отчетов, их не один вариант есть

[ScorpioN_T]

Аватар
есть пример?

[Аватар]

Что касается работы с Word-ом, то CreateOLEObject('Word.Application') и вперед, изучив соответствующие объекты и методы Word-а. Есть еще компоненты в дельфях, позволяющие аналогичные действия делать, но с ними не работал. Генератор отчетов? А какой тут можно пример? Ищите бесплатный или покупайте умеющий кроме текстовки и с картинками в отчетах работать

[ScorpioN_T]

на форме расположен компонент Image, на кавасе которого нарисована таблица.
Как распечатать этот Image ?

код можно и пропустить, но всё же предоставлю его,
имеется следующий код

procedure TForm1.tables (x,y:integer);
var nx,ny:integer;
  i,j:byte;
begin
with image1 do
 begin

    canvas.Pen.Width:=1;
    nx:=57;
    ny:=0;
    for i:=0 to 1 do
    begin
     for j:=0 to 2 do
      begin
       canvas.TextOut(nx+10,60+ny,inttostr(checknumber));
       canvas.TextOut(nx+255,355+ny,inttostr(checknumber));
       checknumber:=checknumber+1;
       ny:=ny+320;
      end;
     nx:=nx+338;
     ny:=0;
    end;


    nx:=57;
    ny:=0;
    for i:=0 to 1 do
    begin
     for j:=0 to 2 do
     begin
      canvas.TextOut(nx+200,60+ny,'Äàòà: ');
       canvas.MoveTo(nx +93,57+ny);
       canvas.LineTo(nx +93,75+ny);
       canvas.MoveTo(nx+193,57+ny);
       canvas.LineTo(nx+193,75+ny);
       canvas.MoveTo(nx+233,57+ny);
       canvas.LineTo(nx+233,75+ny);
        canvas.MoveTo(57,75+ny);
        canvas.LineTo(733,75+ny);

          canvas.MoveTo(57,349+ny);
          canvas.LineTo(733,349+ny);
          canvas.MoveTo(nx+245,349+ny);
          canvas.LineTo(nx+245,377+ny);


      ny:=ny+320;
     end;
    nx:=395;
    ny:=0;
    end;

    canvas.Pen.Width:=2;
// niz i verh
    canvas.MoveTo(57,57);
    canvas.LineTo(733,57);
    canvas.MoveTo(57,1017);
    canvas.LineTo(733,1017);
// pravo i levo
    canvas.MoveTo(57,57);
    canvas.LineTo(57,1017);
    canvas.MoveTo(733,57);
    canvas.LineTo(733,1017);

// osnovnye linii
    canvas.MoveTo(395,57);
    canvas.LineTo(395,1017);

// osnovnye linii
//vertikal'
    canvas.MoveTo(395,57);
    canvas.LineTo(395,1017);
//horizontal'
    canvas.MoveTo(57,377);
    canvas.LineTo(733,377);
    canvas.MoveTo(57,697);
    canvas.LineTo(733,697);

 end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
checknumber:=1;
image1.Canvas.Pixels[10,10]:=clred;
image1.Height:=1090;
image1.Width:=790;

tables(50,50);

end;

П.С. искал через поисковик, в большинстве случаев натыкался на примеры с модулем Printers, но не разобрался как же всё таки отправить на печать МОИ Image.