[Delphi3] Drukowanie bitmapy wyświetlanej w TImage

0

Witam!

Mam taki problem - drukuję bitmapę wyświetloną w TImage :

procedure TForm1.Button1Click(Sender: TObject);
var
R:TRect;
begin
R:=Image1.ClientRect;
Printer.BeginDoc;
Printer.Canvas.CopyRect(Rect(200,200,1900,1400),Form1.Canvas,R);
Printer.EndDoc;}
end;

Ta procedura drukuje bitmapę w prostokącie o zadanych rozmiarach. Pytanie: Czy jest jakiś prosty sposób, żeby wydruk był obrócony o 90 stopni. (w orientacji poziomej)?

0

Wystarczy, że sobie obrócisz obrazek w canvasie (looknij gotowce i artykuły)

0
Printer.Orientation:=poLandscape;

(tak przynajmniej w Delphi7)

0

Dzięki:)
Wystaczy mi właściwość Orientation z Printers:)

1 użytkowników online, w tym zalogowanych: 0, gości: 1