Canvas auf den Drucker schicken

**MTornau**

Moin !

Auf meiner Canvas ist ein Graph gezeichnet, den ich mit Hilfe des Druckers auf Papier bannen möchte.

Der Code dazu sieht so aus:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure Graphik_ausdrucken ();

var Feld : TRect;

    Faktor : integer;

const X0 = 100;

      Y0 = 100;    

begin

     // Vergrößungerungsfaktor bestimmen

     Faktor := Trunc((Printer.PageWidth - (2 * X0)) / Form_Kurven.Graph_Kurven.Width);

     // Ausgabefeld festlegen

     Feld.Left   := X0;

     Feld.Top    := Y0;

     Feld.Right  := X0 + Faktor * Form_Kurven.Graph_Kurven.Width;

     Feld.Bottom := Y0 + Faktor * Form_Kurven.Graph_Kurven.Height;

     if Main.PrintDialog.Execute then

        begin

        with Printer do

           begin

           BeginDoc;

           //Orientation        := poLandscape  ;

           //Canvas.Brush.Style := bsClear      ;

           //Canvas.Font.Name   := 'Courier New';

           //Canvas.font.Style  := [fsBold]     ;

           //Canvas.TextOut  (40,5,DateToStr(now)+' '+TimeToStr(now));

           Canvas.StretchDraw(Feld,Form_Kurven.Graph_Kurven.Picture.Graphic);

           Enddoc;

           end;

        end;

end;

Leider kommt ausser dem Text mit dem Datum und der Uhrzeit nichts an (die Seite mit den Graphen ist auch nicht weiss, der Graph exisitiert also schon).

Meine Frage ist jetzt, wo mache ich den Fehler ?

Grüße und Danke !

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]

Canvas auf den Drucker schicken

Canvas auf den Drucker schicken

Forumregeln