Problem beim Ausdruck einen BMP Datei unter Windows XP

[Carlos1997]

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;

:gruebel:

[Mario]

Probiere es mal ohne Transparenz, sollte es dann gehen, kannst Du so das Problem vielleicht umgehen.

[Luckie]

Es muss nicht an XP liegen. Es kann auch am Drucker liegen. Doe Pixel Angabe liegt bei der Druckerauflösung eventuell im nihct mehr Druckbarem Bereich. Gib da mal testweise 0,0 an. Um solche Probleme zu vermeiden sollte man den MapMode mit SetMapMode auf LOMETRIC oder HIGHMETRIC setzten, damit man unabhängig von der Auflösung des Druckers ist.

[Carlos1997]

Hallo,

zunächst mal vielen Dank für eure Tipps.

Habe beides mal ausprobiert und habe dabei folgendes festgestellt.

Habe am selben PC und Drucker Windows 98 installiert und siehe da Grafik wird
ohne Probleme gedruckt.
Nun habe ich wieder XY verwendet mit anderem Drucker, auch das hat gefunzt.

Programmänderung mit Transparenz habe ich noch nicht mit dem originaldrucker
probiert werde ich aber noch testen.

MFG
Carlos
:drunken: