|
Registriert seit: 29. Jan 2007
Ort: daheim
460 Beiträge
Delphi XE2 Enterprise
|
Re: Bitmap an den Drucker senden
14. Mär 2008, 19:11
Dein Fehler liegt vermutlich lediglich in der Zeile wo das Bild gedruckt werden soll
StretchDIBits(PrntHandle, 0 - X, 0 - Y, 1027, 648, 0, 0,
Druckerhandle,device.left=0-X ??? Wenn du beim Nullpunkt X Absziehst wo wird vermutlich das Bild ausgegeben links neben dem Papier? gleiches Gilt für 0-Y hast du schonmal den wert einfach auf 0 gestezt// Hab ich kommentiert mit Destination = ZIEL
myGraphic.Width, myGraphic.Height, BitmapImage,
TBitmapInfo(BitmapHeader^), DIB_RGB_COLORS, SRCCOPY);
Mal kurz die Zeile zerpflückt
Gruß Matthias
Matthias
Das Leben ist eines der härtesten.
|