Печать базы

← →
Great DAN © (2002-05-04 11:11) [0]

Объясните пожалуйста как распечатать таблицу Парадокс 7
Ну я понимаю, что нужно обратиться к ячейке, потом отправить ее на принтер, ну а как именно это сделать и как провести инициализацию принтера?
Прошу помочь!

← →
Anatoly Podgoretsky © (2002-05-04 11:26) [1]

Проще использовать генератор отчетов, в комплекте есть Quick Report

← →
Great DAN © (2002-05-04 11:32) [2]

Ну я и qreport не знаю как использовать, первый раз вообще Дельфи вижу, если это возможно, покажите пожалуйста с подробными комментариями

← →
fnatali © (2002-05-04 12:53) [3]

Посмотри DELPHI\DEMOS\... - там есть примеры.

← →
Great DAN © (2002-05-04 13:12) [4]

Да мне бы основные процедуры и все, а так пока во всем лишнем разбираться, на это очень много времени уйдет

← →
Delirium © (2002-05-04 13:21) [5]

> Great DAN

Много времени уйдёт на пустую болтовню - изучи примеры, а когда что-то не поймёшь, тогда и спрашивай.

← →
nomshar © (2002-05-05 02:27) [6]

Есть очень много способов распечатать базу данных. Если, как ты говоришь, ты новичок в Delphi, то лучше пока в TPrinter даже и не совайся. Тут тебе как раз дали дельную мысль: используй QReport. Если не знаешь как, то прочти Help по этому делу.
А так можно сделать просто:
В своем приложении подключи новую форму. На нее брось компонент QuickRep1. В свойстве Bands установи HasDetail в true (там будут находится поля твоего будущего отчета). Далее в области под именем TЕDetailBand размести столько компонент TQRDBText, сколько тебе надо (в каждом из этих компонент будет отображаться по одному полю твоей таблицы).
Далее в свойстве DataSet каждого компонента TQRDBText задай имя компонента TTable (не знаю, как ты его назовешь). Впрочем, там выпадающий список, надеюсь, разберешься. После это в свойстве компонента TQRDBText задай имя поля твоей таблицы (опять же выбери из выпадающего списка). Ну вот и все. В принципе уже можешь печатать. Теперь в главной форме пишешь что-то вроде этого:
procedure TForm1.Button1Click(Sender: TObject); begin Form2.QuickRep1.Print; end; // А этой процедурой ты вызовешь окно предосмотра будущего отчета //Тоже самое можно сделать в DesignTime, нажав правую кнопку // мыши на компоненте TQuickRep и выбрав из контекстного меню // команду Preview. procedure TForm1.Button2Click(Sender: TObject); begin Form2.QuickRep1.Preview; end;

Вот в принципе и все.

Ну у меня вывелось на печать одна ячейка, а как это поместить в цикл? и еще: как иожно сделать такую таблицу, что бы вид был следующий:
|| Позиция | Цена | Количество || Позиция | Цена | Количество ||
Ну т.е. в несколько столбцов, и разделенными разными линиями.

Ничего в цикл помещать не надо, будет больше геморра. Просто я тебе не сказал, в свойстве DataSet компонента TQuickRep установи в значение имени компонента TTable, т.е. сделай также, как ты сделал в компонентах типа TQRDBText, и все у тебя получится. Каждый лист отображает одну строку, щелкая клавиши со стрелками (аля TNavigator), ты будешь перемещаться по строкам твоей таблицы. Вот и все.
Кстати, я тогда забыл сказать. Купи себе хорошую книгу по Delphi, чтобы потом не задавать таких простых вопросов. Например, купи себе книгу Архангельского "Программирование в Delphi 5". Там все очень просто, как раз для начинающих.

← →
Николай В. (2002-05-06 10:20) [9]

http://www.citforum.ru/cgi-bin/yandmarkup?HndlQuery=878678225&HndlDoc=12698&PageNum=0

Написано для Билдера, но в Дельфи все делается аналогично.

Печать базы Найти похожие ветки