nach dem Drucken alles spiegelverkehrt ????

[guitar1]

hi,

ich drucke mit folgendem Code, ein TImage, welches ich auch als Druckvorschau verwende

Delphi-Quellcode:

  function DruckCanvas(Width, Height: Integer): TImage;// ist in einer andern unit aber das sollte ja nicht stören

  ...

if PrintDialog1.Execute then
begin
  Printer.Title:= CboxFormularart.Text+' '+LabNr.Caption;
  Printer.BeginDoc;
    SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC);
    Printer.Canvas.Draw(0, GetDeviceCaps(Printer.Handle,VERTSIZE)*-10,
      FormDruckansicht.DruckCanvas(GetDeviceCaps(Printer.Handle, HORZSIZE)*10,
      GetDeviceCaps(Printer.Handle, VERTSIZE)*10).Picture.Graphic);
  Printer.EndDoc
end;

es klappt auch alles soweit das es ausgedruckt wird, jedoch ist alles spiegelverkehrt!!
Was mach ich denn falsch?? in der Druckansicht ist alles perfekt richtig.

grüße
guitar1