Как сделать 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.

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

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

грабля из граблей. :(
вот код
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 вылазит :(
что делать помогите пожалуйста.

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

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

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

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

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