Vektor Format anzeigen/drucken

[Gruber_Hans_12345]

danke für die hilfe, also die seite kann ich ausdrucken, allerdings muß ich die ganze seite etwas verschieben, da der drucker ränder hat, und ich das bild an position -4, -4 drucken muß zb

Die erste seite druckt nun das SVG richtig aus (allerdings noch verschoben)
meine zweite seite wäre ein versuch, das ganze zuerst in ein MetaFile zu schreiben und dieses dann etwas versetzt an den drucker zu schicken, allerdings kommt da nur eine leere seite raus

Delphi-Quellcode:

        temp.BeginDoc;
        grPrinter := TGPGraphics.Create(temp.Canvas.Handle);
        try
            grPrinter.SetPageUnit(UnitMillimeter);
            grPrinter.SetSmoothingMode(SmoothingModeAntiAlias);
            SVGImage1.SVG.PaintTo(grPrinter, Bounds, nil, 0);
        finally
            grPrinter.Free;
        end;
        temp.EndDoc;


        Graphics := TGPMetaFile.Create;
        SVGImage1.SVG.PaintTo(Graphics, Bounds, nil, 0);

        temp.BeginDoc;
        grPrinter   := TGPGraphics.Create(temp.Canvas.Handle);
        grPrinter.SetPageUnit(UnitMillimeter);
        grPrinter.SetSmoothingMode(SmoothingModeAntiAlias);
        grPrinter.DrawImage(Graphics, -4, -4);
        grPrinter.Free;
        temp.EndDoc;

        Graphics.Free;

zu den texten, habe ein problem : und zwar stimmt die positionierung nicht, er schreibt texte teilweise übereinander bzw zu weit zusammen

wenn du dir mal das beispiel anguckst (beim text : Firmenbuchgericht bzw den Teil mit dem flughafen)