Canvas an Drucker senden und drucken

[daniel8520]

Hallo,

ich hab ein kleines Problem:
Wie kann man ein Canvas ausdrucken?
Ich hab es so probiert:

Delphi-Quellcode:

begin
   Printer.BeginDoc;
   Printer.Canvas := MeinTImage.Canvas;
   Printer.EndDoc;
end;

Dabei musst ich leider feststellen, dass das Canvas des Printers nur zum lesen da ist.
Wie kann man das denn anderst lösen?

[shmia]

Delphi-Quellcode:

begin
   Printer.BeginDoc;
   MeinTImage.PaintTo(Printer.Canvas.Handle, 100, 100);
   // da aber die Pixels deines Images auf dem Drucker 1 zu 1 umgesetzt werden
   // wird dein Bild recht klein werden
   Printer.EndDoc;
end;

[atreju2oo0]

Delphi-Quellcode:

var Printer:TPrinter;
begin
Printer:=TPrinter.Create;
with Printer do
  begin
    Orientation:=poLandscape;
    BeginDoc;
    Refresh;
    Canvas.CopyMode:=cmSrcCopy;
    Canvas.CopyRect(Rect(0,0,PageWidth,PageHeight),
                    Zeichenfenster.Canvas,
                    Rect(0,0,560,450));
    EndDoc;
    Destroy;
  end;
end;

Das funktioniert auf das ganze Blatt passend...

[daniel8520]

Cool thx.

Funkt das auch bei Laserdrckern???
hab gehört, dass ein Laserdrucker die Befhle anderst interpretiert!

[atreju2oo0]

Kanns leider nicht ausprobieren aber ich würde mal davon ausgehen...
Vielleicht ändern sich die Farben etwas...
:gruebel:

[mytar]

MeinTImage.PaintTo(Printer.Canvas.Handle, 100, 100);

Ich finde keine Methode PaintTo in TImage?

mytar

[Steve]

Ne Alternative wär auch StrechDraw, StrechDraw..

Gruß
Stephan

[mytar]

Danke!

Aber kann mir niemand zu "PaintTo" weiterhelfen?

[mytar]

ich glaube nicht STRECHDRAW sondern STRETCHDRAW.

Bei mir hat nichts geklappt.

Statt immer alles auszudrucken, und den Drucker hab ich am anderen PC, drucke ich einfach alles als PDF-Datei. Das Dokument ist immer weiß.

Nochmals:

Ich hab in meinen TImage etwas gezeichnet.

Ich möchte nun das ganze Image ausdrucken, und davor noch etwas hineinschreiben.
Das Hineinschreiben funktioniert, ja mit TextOut(..), das passt.

Aber das Image bringe ich einfach nichts in den Printer?

was soll ich machen?

[shmia]

Zitat:

Zitat von mytar

Statt immer alles auszudrucken, und den Drucker hab ich am anderen PC, drucke ich einfach alles als PDF-Datei. Das Dokument ist immer weiß.

Da liegt der Hase im Pfeffer !
Der PDF-Treiber kann nicht alle GDI Funktionen korrekt umsetzen.
Du müsstest mal das PixelFormat des Image verändern:
Image1.Picture.Bitmap.PixelFormat := pf8bit;