Fejl i udskrivning af grafik

det kommer an på hvilken opløsning du printer ud i f.eks. hvis et billed er 300 x 300 pixel og printes ud i en opløsning på 300 x 300 dpi så er billedet kun 1 tomme stor, printes der i 600 x 600 dpi er den en ½ tomme. Du skal derfor kende udskrifts opløsningen og benytte strechcopy i stedet for copyrect så du kan skalér til den korrekt opløsning

Grunden til printes er forskelligt er formentlig fordi printer er sat til forskellig opløsning

Hej blackthorne
Det lyder meget fornuftigt.
kunne du ikke vise mig, hvad der skal laves om i min procedure ?

jeg kan ikke vise dig hvordan, da jeg sidder og arbejder. Men en nemere løsning er at benytte quickreport istedet for. det kan sagten benyttes uden at der benyttes en database.

Du kan læse hvormange pixel en page er på med printer.pageheight og pagewidth. Når du kender disse tal kan du gange det med en factor, som du kan skalere med så det passer til den ønskede størrelse.

desuden er det strechdraw istedet for strechcopy

Problemet er at du bruger konstanter til pheight og pwidth. Der findes en funktion er returnerer værdierne fra printeren istedet.
Prøv at lege lidt med GetDeviceCaps()
og Printer.PageHeight

Bare for at være nysgerrig : Hvad gør din funktion hvis du skriver ud over den første side???

Jeg havde forventet at se et : Printer.NewPage et eller andet sted, men det er nok bare mig :-)

PS : Hvis du får lavet din funktion rigtigt generel, kan du bruge den til også at lave et print preview (så skriver du bare til et TImage istedet.

Happy Coding

Jeg gætter på at du (efter at du har "valgt printer") skal have flg. 2 linier:

GetPrinter(Device, Name, Port, DevMode);
SetPrinter(Device, Name, Port, 0);

Disse sikre at PRINTER bliver initializeret med de "egenskaber" som din printer har (eksempelvis opløsning).

Ok pellelil

Men kunne du ikke lave et eks. der virker

Jeg har prøvet at lave et nyt program til
styring af grafik udskrift her har jeg mulighed
for at styre bredden på udskriftet.

Men når jeg printer, så kommer der ikke
noget billede ud, kun den tynde ramme der viser billedes størelse.

Er der en som kan se hvad det er jeg gør korkert




procedure TPrintBitmapForm.UdPrint(BilledBredde: Real;
                                  Image: TImage);
const
  CmPrTomme = 2.54;
var
  XPixelsPrTomme, YPixelsPrTomme: Integer;
  Forhold: Real;
  R: TRect;
begin
  if PrintDialog.Execute then
  begin
    Forhold := imgBitmap.Picture.Height / imgBitmap.Picture.Width;
    XPixelsPrTomme := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
    YPixelsPrTomme := GetDeviceCaps(Printer.Handle, LOGPIXELSY);
    R.Left := Round((Printer.PageWidth -
      BilledBredde / CmPrTomme * XPixelsPrTomme) / 2);
    R.Top := YPixelsPrTomme;
    R.Right := R.Left +
      Round(BilledBredde / CmPrTomme * XPixelsPrTomme);
    R.Bottom := R.Top +
      Round(BilledBredde * Forhold / CmPrTomme * YPixelsPrTomme);
    with Printer do
    begin
      BeginDoc;
      Canvas.StretchDraw(R, imgBitmap.Picture.Graphic);
      Canvas.Rectangle(R.Left, R.Top, R.Right, R.Bottom);
      EndDoc;
    end;
  end;
end;

korkert !!! ja det danske sprog er en svær en (Forkert)
Hilsen Anold

Hej folket

Brug ikke mere tid på mit spørgsmål da jeg selv har fundet løsningen
Hilsen Anold

Hey Arnold, kan du ikke lige dele din viden med mig. har samme problem med udskrift af billeder. Får kun udskrevet den tynde ramme (Canvas.Rectangle(R.Left, R.Top, R.Right, R.Bottom); Hvad gør jeg.
Har nogle point du kan få, men er ny her og ved ikke helt hvordan jeg giver dig dem :-)