Einzelnen Beitrag anzeigen

gullatrulla

Registriert seit: 11. Mai 2004
Ort: Malans (Schweiz)
43 Beiträge
 
Delphi 11 Alexandria
 
#1

Druck Image auf PDF kommt ohne Farbe

  Alt 26. Nov 2007, 13:42
Hi Delphi Folks

Ich plage mich zur Zeit mit folgendem Phänomen herum:

Ich drucke ein farbiges TImage auf meinen PDF-Drucker (PDF Creator 0.9.3).

Wenn der Standartdrucker von Windows auf diesem PDF-Drucker steht
funktioniert der Druck korrekt in Farbe. Wenn aber der Standartdrucker
z.B. auf einem HP Laserjet 2100 definiert ist, und ich den Drucker
mittels Printer.Printerindex übersteuere, wird das Image schwarz/weiss
im PDF ausgegeben.

[delphi]

procedure TForm1.Button1Click(Sender: TObject);
var Rect : TRect;
begin
Printer.PrinterIndex := 1; {ist PDF-Drucker}
Printer.BeginDoc;

with Printer.Canvas do begin
Rect := Bounds(1500, 500, 1000 , 500);
StretchDraw(Rect,Image.Picture.MetaFile);
end;
Printer.EndDoc;
end;

Wenn ich mittels TPrintDialog den Drucker übersteuere funktioniert es auch.
Es soll im Programm automatisch (ohne PrintDialog) funktionieren.

Wo liegt mein Denkfehler. Oder hat dies jemand anderes von Euch
auch schon gehabt (und evtl. sogar gelöst)

Herzlichen Dank zum voraus.
Roland
  Mit Zitat antworten Zitat