Hi,
du aber das ist doch fast dass, was du dem Drucker sagst.
Zitat von
mlspider:
rect:=Bounds(-10,-10,printer.pagewidth div 2,printer.pageheight div 2);
Leider wird die Größe von Timage auf dem Druckergebnis nicht beibehalten. Wie könnte man dieses Problem lösen?
Du legst hier als Größe des Image auf dem Druckercanvas fest, dass dein Bild mit halber Seitenbreite und halber Seitenhöhe ausgedruckt werden soll. Dein Bild ist nahezu quadratisch, eine normale Seite ist dass nicht. Also zerrst du das Bild ordentlich, da das Verhältnis der Seitenhöhe zur Seitenbreite deutlich anders als 1 ist (anders bei deinem Bild!)
Immer noch gezerrt aber etwas besser wäre ein
rect := Bounds(-10,-10,printer.pagewidth div 2,printer.pagewidth div 2);
So richtig schön wird es aber erst, wenn du ausrechnest wie du es optimal strecken kannst und das Seitenverhältnis gleich lässt.
Desweiteren kannst du hier im Forum noch einiges zum Drucken finden, insbesondere solltest du nach GetDeviceCaps suchen (da kannst du auch den Rand des Druckers bestimmen und die Einheiten festlegen, denn je nach Auflösung ist ein Pixel nicht gleich einem Pixel, was die Größe angeht!)
Gruß Der Unwissende