Текущий архив: 2002.05.27;
Скачать: CL | DM;

Вниз

Снова Qreport!!!!   Найти похожие ветки 

← →
OLa   (2002-05-15 07:05) [0]

Привет, уважаемые мастера!!! есть проблема нужно сначала печатать нечетные страницы, а потом четные, как это сделать? Заранее спасибо

---

← →
Lusha ©   (2002-05-15 09:54) [1]

Написать свою процедуру печати. Сие несложно...

---

← →
Ola   (2002-05-15 10:30) [2]

а есть пример.....

---

← →
Lusha ©   (2002-05-15 11:03) [3]

Создать свое окно предварительного просмотра и навоять там нечто такое...

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;

---

← →
Lusha ©   (2002-05-15 11:05) [4]

EndDoc;
end;

---

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

Текущий архив: 2002.05.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.009 c