Registriert seit: 11. Mai 2004
Ort: Malans (Schweiz)
43 Beiträge
Delphi 11 Alexandria
|
Druck Image auf PDF kommt ohne Farbe
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
|