Ciao!
Vorrei riuscire a stampare una parte della mia immagine (Img).
Uso questo codice:
codice:
procedure TForm.btStampaClick(Sender: TObject);
 var
    CurrentPrinter: TPrinter;
 const
  Rect:Trect=(left:0;Top:0;Right:200;Bottom:200);

  begin
    CurrentPrinter := Printer;
    BoundsRect:=Rect;

    if   StampaSetup.Execute then

    CurrentPrinter.BeginDoc;
    Img.AutoSize:=true;
    Img.scalemode:=smstretch;
    Img.Bitmap.Drawto(Printer.Canvas.Handle, Printer.Canvas.ClipRect,Img.Bitmap.BoundsRect);
    CurrentPrinter.EndDoc;

end;
...ma assolutamente non ci riesco. Forse, visto il codice è normale che sia così. Potreste darmi un suggerimento ?