Вывести изображение на печать. Небольшая проблема.

[Vova777]

Как повернуть изображение при печати с принтера на 90 градусов, ибо Printer.Orientation:= poLandscape; задает именно ориентацию поступающей бумаги в принтер, а не способа печати на ней.
Вот код, который применяю для печати:

procedure TForm6.Label8Click(Sender: TObject);
var
PRect: Trect;
PBitMap: TBitmap;
begin
PBitmap := TBitMap.Create;
PBitmap.LoadFromFile('C:\CNC SS v4.02\Addition\Img.bmp');
with PRect do
begin
left := 0;
top := 0;
right := Printer.PageWidth;
Bottom := Printer.PageHeight;
Printer.Orientation:= poLandscape;
end;
with printer do
begin
BeginDoc;
Canvas.StretchDraw(PRect, PBitmap);
EndDoc;
end;
PBitmap.Free;
end;