Foto bei Druck auf dem Kopf ???

OliverN_26 · Beiträge: 252 Win7 64-Bit, WinXP SP3 Delphi 7 Enterprise

Hallo Delphi-Freunde.
Ich habe ein Programm geschrieben was eine kleine Adressdatenbank beinhaltet, wo man auch ein Foto mit abspeichern kann.
Wenn ich mir nun die Stammdaten dieser Person ausdrucken will, moechte ich dass das Foto mit auf dem Papier erscheint.
So weit so gut ... hab ein Formular gebastelt und das Foto druckt er auch ... NUR LEIDER AUF DEM KOPF?? WARUM??

Hier der Code womit ich das Bild an den Drucker sende

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

jpg := TJpegImage.Create;
bmp := TBitmap.Create;

try
  jpg.LoadFromImage(Dateiname);
  Rect := Bounds(100,YPos-910,jpg.Width,jpg.Height);
  Printer.Canvas.StretchDraw(Rect,jpg);
finally
  jpg.Free;
  bmp.Free;
end;

Hab ich da was falsch gemacht oder fehlt was?
Warum druckt er das Bild gespiegelt?

Vielen Dank im voraus.

lg olli

jaenicke · Verfasst: Do 12.11.09 10:20

Der Quelltext sieht soweit in Ordnung aus, vorausgesetzt XPos hat einen passenden Wert. :gruebel:

Was ist LoadFromImage? Gibt es das in neueren Versionen von Delphi? Oder ist das nicht der Originalquelltext?

Was die Koordinaten angeht: Hast du auf Millimeter umgestellt? Oder soll das nur für genau einen einzigen Drucker funktionieren?
Denn mit absoluten Werten würdest du bei Pixelkoordinaten beim Drucker natürlich bei einem anderen Blödsinn erhalten, wenn der eine andere Auflösung hat.

OliverN_26 · Beiträge: 252 Win7 64-Bit, WinXP SP3 Delphi 7 Enterprise

Hallo!

Also bei XPos und auch YPos sind Werte drin.
Bei LoadFromImage steht auch der richtige Dateiname drin.
Ich arbeite mit Delphi 7 Enterprise und da gibt es das :-)

Was eine Millimeter Umstellung angeht..keine Ahnung..ich habe es auf 2 Druckern
und dem Adobe Drucker getestet und da geht es. Muss man so was machen?

Hat doch aber auch erst mal nix damit zu tun dass er mir das Bild auf
dem Kopf druckt oder ???

lg

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme