Vektor Format anzeigen/drucken

[Gruber_Hans_12345]

Zitat von xaromz:

Hallo,

ich habe jetzt eine Routine, die Kerning berücksichtigt. Die Textdarstellung verlangsamt sich dadurch zwar etwas, aber nur um den Faktor 7-10 .
Die neue Version findet sich auf meiner Seite.

Gruß
xaromz

super!

also die schrift funktioniert jetzt perfekt ...

kannst du mir mit dem drucken noch mal kurz helfen?
Ich versuche die Seite, die genau 210*297 ist, original auf den drucker auszugeben (den Offset habe ich schon ausgerechnet)

aber wie kann ich die seite nun verschieben?

Delphi-Quellcode:

function MarginToMM(const Value, dpi : integer) : Extended;
begin
    Result  := ((Value * 254) / dpi) / 100;
end;

        temp.BeginDoc;

        grPrinter := TGPGraphics.Create(temp.Canvas.Handle);
        try
            grPrinter.SetPageUnit(UnitMillimeter);

            margin.x        := -MarginToMM(GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX), GetDeviceCaps(Printer.Handle, LOGPIXELSX));
            margin.y        := -MarginToMM(GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY), GetDeviceCaps(Printer.Handle, LOGPIXELSY));
            SVGImage1.SVG.PaintTo(grPrinter, Bounds, nil, 0);
        finally
            grPrinter.Free;
        end;

        temp.EndDoc;