Hallo,
ich habe im moment diese Prozedur mit Bmps. Wie funktioniert das mit Jpgs? Desweiteren gibt es noch ein Problem mit der Größe der ausgedruckten Bilder. Die Bmps haben eine Auflösung von 2048 *1536, jedoch sind diese beim Ausdrucken nur ca. 6,5cm* 8.6cm. Die Bilder sollten im Klassischenfotoformat 9*13 oder größer ausgedruckt werden. 2 bilder pro Seite. Später wollte ich noch Text drunter drucken lassen. Wenn es mit Jpgs genausogut geht dann wäre das besser. Die Bilder müsste ich dann nicht erst umwandeln.
Hier mein Code:
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:
| procedure TForm1.DruckenClick(Sender: TObject); var Bmp,Bmp2: TBitmap; begin Bmp := TBitmap.Create; Bmp2 := TBitmap.Create; try Bmp.LoadFromFile('MyBitmap.bmp'); Bmp2.LoadFromFile('MyBitmap2.bmp'); with Printer do begin BeginDoc; Canvas.Draw((PageWidth - Bmp.Width) div 2, (PageHeight - Bmp.Height) div 5, Bmp); Canvas.Draw((PageWidth - Bmp.Width) div 2, (PageHeight - Bmp.Height) * 4 div 5, Bmp2); EndDoc; end; finally Bmp.Free; end; |
- Irgendwie übernimmt das Forum hier nicht die äußere Form der Prozedur
Bischen unübersichtlich so.
Code-Tags hinzugefügt. Tino