| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Снова Qreport!!!! [D6, WinXP]
OLa © (2002-05-15 07:05:00)Привет, уважаемые мастера!!! есть проблема нужно сначала печатать нечетные страницы, а потом четные, как это сделать? Заранее спасибо
Lusha (2002-05-15 11:05:00) [1]EndDoc;
end;
Lusha (2002-05-15 11:03:00) [2]Создать свое окно предварительного просмотра и навоять там нечто такое...
tRectDraw := Rect(0, 0, Printer.PageWidth, Printer.PageHeight);
with Printer do
begin
BeginDoc;
i := Self.QRPreview.QRPrinter.FirstPage;
while i <= Self.QRPreview.QRPrinter.LastPage do
begin
Canvas.StretchDraw(tRectDraw, Self.QRPreview.QRPrinter.GetPage(i));
NewPage;
inc(i, 2);
end;
i := Self.QRPreview.QRPrinter.FirstPage + 1;
while i <= Self.QRPreview.QRPrinter.LastPage do
begin
Canvas.StretchDraw(tRectDraw, Self.QRPreview.QRPrinter.GetPage(i));
if i < Self.QRPreview.QRPrinter.LastPage then NewPage;
inc(i, 2);
end;
Ola (2002-05-15 10:30:00) [3]а есть пример.....
Lusha (2002-05-15 09:54:00) [4]Написать свою процедуру печати. Сие несложно...
| |
