Hallo,
ich haben seit kurzem ein Problem mit einer Druckroutine unter Windows XP Home.
Über den folgenden Programmcode lade ich eine Bitmap in eine Printer.Canvas Druckroutine
und drucke diese nach dem fertigstellen der Seite mit Printer.EndDoc aus.
Die Routine funktioniert bereits seit einiger Zeit unter Windows 95/98 und 2000.
Nun habe ich die Anwendung auf einem Windows XP Home System installiert. Dort wird aber
nur der eingetragene Text ausgedruckt, die Grafik fehlt im Ausdruck. Eine Fehlermeldung
wird nicht ausgegeben. Die Grafikdatei wird auch erkannt und geladen.
Wer kann mir einen Tipp geben ?
Bitmap := TBitmap.Create;
Zeile := 'Grafik.BMP';
If FileExists(Zeile) Then Begin
Try with Bitmap do Begin
LoadFromFile(Zeile);
Transparent := True;
TransparentMode := tmAuto;
Printer.canvas.Draw(250,150,BitMap);
End;
Finally Bitmap.Free;
Printer.EndDoc;
