Printe fra TImage - TJPEGImage

//udskriv billede knap 1

var
  ScaleX, ScaleY: Integer;
  RR: TRect;

  begin
  with Printer do

  begin
    BeginDoc;

        try
      ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
      ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
      RR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY);
      Canvas.StretchDraw(RR, Image1.Picture.Graphic);

finally
      EndDoc;

    end;
  end;
end;

//printer indstillinger knap 2

PrinterSetupDialog1.Execute;

husk Printers i USES

Nu kommer der lige nogen flere spørgsmål, hvis det ikke er for meget ;P
1: hvis billedet er større end papiret, så kommer hele billedet ikke med. kan man ikke få den til at scalere ned hvis billedet er for stort? men helst ikke scalere op :\
2: kan man få den til at dreje billedet ud fra dimemsionerne på billedet, så når bredden er størst, så printer den landscape?
3: nu skal man indstille printeren hver gang man åbner programmet, kan man ikke få dataerne ud, så man kan gemme og hente dem fra fx. en *.ini?

håber ikke det er for meget spørgsmål :) men er helt lost med det der printe noget, det er første gang jeg har skulle bruge det :\

ja tænkte nok de kom, da logikken jo er at små børn ikke kan tage stilling til de indstillinger der er nødvendigt.

Men jeg kan hjælpe lidt i de spørgsmål....

//gem og hent printer indstillinger

prøv at browse lidt rundt her.....

http://www.swissdelphicenter.ch/en/tipsindex.php

Her er rigtig mange gode eksempler - prøv at søg på Print eller Print Image

ps....husk at læse Print tip øverst under author her kan være rettelser eller hint til evt fejl i funktionen o.l

http://www.swissdelphicenter.ch/en/showcode.php?id=1909

Generelt bør undgå at bruge VCL metoderne Draw og StretchDraw til at printe billeder. De metoder fungerer ikke på mange printere.
Hvis du vil vide mere om at printe billeder, så se her:
http://www.efg2.com/Lab/Library/Delphi/Printing/index.html
Kig efter "Printing Bitmaps".