Hello

Hello,

I use a component that do some nice things on the Printer's Canvas...but I would like to adapt the code to print two A5 on a single A4 paper.

Instead of changing all the logic of the component, I've tried something that work very well but not on all printers :(

I've replaced de Printer.NewPage call by a code that apply a SetWorldTransform() like this

if (PageNo > 1) and (PageNo and 1 = 1) then
Printer.NewPage;
with Printer.Canvas do
begin
// x' = x * eM11 + y * eM21 + eDx
// y' = x * eM12 + y * eM22 + eDy
XFORM.eM11 := 0;
XFORM.em12 := -(210/297); // A4 (210x297) -> A5 (148x210)
XFORM.em21 := +(210/297);
XFORM.em22 := 0;
if Printer.Orientation = poPortrait then
begin
XFORM.eDx := 0;
XFORM.eDy := Printer.PageHeight;
if PageNo and 1 = 0 then
begin
XFORM.eDy := XFORM.eDy / 2;
end;
end else begin
XFORM.eDx := 0;
XFORM.eDy := Printer.PageHeight;
if PageNo and 1 = 0 then
begin
XFORM.eDx := Printer.PageWidth / 2;
end;
end;
SetGraphicsMode(Handle, GM_ADVANCED);
SetWorldTransform(Handle, XFORM);
end;

Is there a known bug or something I've forgot ?

Thanks