Проблема с с правильным выводом полей БД в WORD

← →
Стражник (2003-06-21 12:58) [0]

Господа программисты!

Поскажите мне

Ескпорт в Word полей БД(Paradox) у меня происходит.
Но проблема в том что я не могу настроить вывод полей с определенных позиций в Word((

Выглядит примерно в WORDe у меня так

Петров Иван Иванович
Колесников Петр Геннадьевич
Пата Валентин Семенович

Не подскажите .. как это надо сделать ??
Сразу скажу... FORMATом пользовался... но из за шрифта.. опять сдвигает

С уважением Сергей

← →
Anatoly Podgoretsky (2003-06-21 13:06) [1]

Моноширинный шрифт и дополнения длины полей до фиксированной ширины. И дополнительную информацию как именно экспортируешь.

← →
Стражник (2003-06-21 13:47) [2]

2Anatoly Podgoretsky ©

var Direction,ee: OleVariant;
s: string;

begin
Query1.Open;
Query1.First;
WordApplication1.Documents.Add(EmptyParam,EmptyParam,EMPTYPARAM,EmptyParam);
WordDocument1.ConnectTo(wordApplication1.ActiveDocument);
s:=Format("|%-60s|%-10s|%-10s|%-12s",[Query1Fio.Value,Query1Fakult.Value,Query1Grupa.Value,Query1Room.value]);
WordApplication1.Selection.Text:=s+#13;
WordFont1.Size:=12;
WordApplication1.Selection.Collapse(Direction);
WordApplication1.visible:=true;
end;

← →
Стражник (2003-06-21 14:38) [3]

2Anatoly Podgoretsky ©

var Direction,ee: OleVariant;
s: string;

begin
Direction:=wdCollapseEnd;
Query1.Open;
Query1.First;
WordApplication1.Documents.Add(EmptyParam,EmptyParam,EMPTYPARAM,EmptyParam);
WordDocument1.ConnectTo(wordApplication1.ActiveDocument);
s:=Format("|%-60s|%-10s|%-10s|%-12s",[Query1Fio.Value,Query1Fakult.Value,Query1Grupa.Value,Query1Room.value]);
WordApplication1.Selection.Text:=s+#13;
WordFont1.Size:=12;
WordApplication1.Selection.Collapse(Direction);
WordApplication1.visible:=true;
end;

или как создать таблицу в WORD и перенести туда значения из полей БД

← →
Victor_Cr (2003-06-21 17:42) [4]

Как правильно сказал Anatoly Podgoretsky © (21.06.03 13:06)
есть вариант использовать шрифт Courier New или подобные ему, либо пользоватся табуляцией: Измени формат на

s:=Format("%-60s"#9"%-10s"#9"%-10s"#9"%-12s",[Query1Fio.Value,Query1Fakult.Value,Query1Grupa.Value,Query1Room.value]);

А можно и то и другое...

← →
Anatoly Podgoretsky (2003-06-21 19:49) [5]

Проблема с с правильным выводом полей БД в WORD Найти похожие ветки