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

Как сделать PREVIEW у TPrinter???   Найти похожие ветки 

← →
MadGhost ©   (2004-07-09 18:10) [0]

плизз,мастера помогите пожалуйста.
Хочу печатать через TPrinter т.е. сам создавать отчет и печатать. QuickReport сразу говорю у меня нет, да и смотрел обзоры этих генераторов отчетов, ен понравились скриншоты (
Так вот, сакжите пожалуйста как можно посмотреть что там получилось?
либо, как нить можно канвы копировать?
т.е. создаю я TCanvas в нем рисую все, все... потом открываю форму, туда переношу содержимое канвы (самый главный вопрос, как???) смотрю :) нравится, печатаю, т.е. переношу с TCanvas на принтер.
2. вопрос, как сделать форму бумаги планшетной?

---

← →
Тимохов ©   (2004-07-09 18:54) [1]

юзай tmetafilecanvas и tmetafile.
в справке по дельфи прилично описано - я в свое время разобрался.

---

← →
AndrewVolkov ©   (2004-07-09 21:10) [2]

1. Если не секрет, почему у тебя нету QR3 - он есть в поставке с Delphi?
2. А во вторых очень приличный репорт, хотя многие его и считают глюканутым. У меня он везде очень прилично работает и сваять из него можно чего хочешь.

---

← →
MadGhost ©   (2004-07-09 23:34) [3]

ни знай :( в моем свежеустановленном Delphi 7 нету почему то вкладки QReport (((, в 6-ке дома которая работает исправно вот уже каторый год, все есть, тока юзать я его не хочу ).
Если есть линк на хорошую документацию по репорту, был бы признателен очень.

---

← →
AndrewVolkov ©   (2004-07-10 00:51) [4]

1. Component->Install Packages->add
  ...Delphi7\Bin\dcltqr70.bpl //eto QChart
  ...Delphi7\Bin\dclqrt.bpl    //sam report
2. http://podgoretsky.com/ftp/Docs/Delphi/DX/qr3rus.doc
  там же по 2 можешь почитать

---

← →
MadGhost ©   (2004-07-12 08:46) [5]

решпект, спасибо большущее

---

← →
MadGhost ©   (2004-07-12 14:46) [6]

а как сформировать отчет не из табличных данных, т.е. не с базы данных.
из массива или как нибудь иначе.

---

← →
Anatoly Podgoretsky ©   (2004-07-12 14:52) [7]

Смотри в примерах и в документации. Печать баз частный случай любого генератора отчетов.

---

← →
Семен Сорокин ©   (2004-07-12 14:53) [8]

> MadGhost ©   (12.07.04 14:46) [6]
> а как сформировать отчет не из табличных данных, т.е. не
> с базы данных.
> из массива или как нибудь иначе.

кидаем QRSubDetail у него 2 события:
OnNeedData вызывается при печати каждой строки отчета, устанавливаем MoreData для того чтобы определиться будем ли печатать дальше и инкрементируем индекс массива.
OnBeforePrint - записываем в Caption QRLabel"ов (на QRSubDetail) значения из масива по индексу определенному в OnNeedData.

---

← →
MadGhost ©   (2004-07-12 21:31) [9]

оооо, благодарности нет предела :) я думал выводить отчеты это сложно :) спасибо открыли глаза.

Ещё один маленький вопросик.
в этом же отчете как можно текст повернуть на 90 градусов вверх, т.е. есть одно поле которое должно быть вертикально написано.
Можно так сделать?
заранее благодарен

---

← →
MadGhost ©   (2004-07-13 14:03) [10]

грабля из граблей. :(
вот код
procedure TQuickReport2.QuickRepNeedData(Sender: TObject;
 var MoreData: Boolean);
begin
if Form1.Counter > 0 then MoreData:=True;

 with Form1 do
   begin
   QRlabel41.Caption:=IntToStr(Counter);
   QRLabel42.Caption:="Test";
   Counter:=Counter-1;
   end;
end;

почему то при QuickRep1.Preview;
я вижу все 10 ячеек, а в принтер вылазит только одна :((((
скриншот прилагаю
http://madghost.tatais.ru/image/alcatel1.jpg
вот, а на принтер одна ячейка из DefaultBand1 вылазит :(
что делать помогите пожалуйста.

---

← →
Семен Сорокин ©   (2004-07-13 14:20) [11]

> почему то при QuickRep1.Preview;
> я вижу все 10 ячеек, а в принтер вылазит только одна :((((

дык на Print все действия повторяются, надо Counter инициализировать снова, вставь в конце строчку:
if not MoreData then
Counter := MaxCounterValue {значение принимаемое в начале}

---

← →
MadGhost ©   (2004-07-13 15:32) [12]

все спасибо большое разобрался :) действительно однобокость мысли :((((

БОЛЬШОЕ СПАСИБО.

---

Страницы: 1 вся ветка

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



Память: 0.48 MB
Время: 0.02 c