Delphi Bitmap an den Drucker senden

Thema durchsuchen

Ansicht

Themen-Optionen

Bitmap an den Drucker senden

Ein Thema von Moony · begonnen am 13. Mär 2008 · letzter Beitrag vom 19. Mär 2008

Antwort

matashen

Registriert seit: 29. Jan 2007
Ort: daheim
484 Beiträge

Delphi 10.2 Tokyo 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.