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:

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]

[MTornau]

Interessant !

Nachdem ich eine Hintergrundgraphik in das TImage geladen hatte, wurde plötzlich gedruckt (Hintergrundgraphik und meine Zeichnung).
Allerdings bei einem 2bit nur Schwarz /weiss und bei einer 24bit Hintergrundgraphik auch vielfarbig.

Dieses Thema kann geschlossen werden !

[matashen]

Für dieses Thema hab ich schon Lösungen gepostet. Bitte die Suche bemühen.