Hallo,
ich versuche ein Bitmap aus einem TImage mit der Printers-
Unit auszudrucken:
Delphi-Quellcode:
uses
Printers, ...
...
with Printer do
begin
Title:='test'; //nötig für Adobe X
BeginDoc;
Canvas.TextOut(0,0,''); //ohne den erscheint auf dem Adobe X pdf nichts!!!???
Canvas.StretchDraw(Rect(0, 0, Image1.picture.Width, Image1.Picture.Height),
Image1.Picture.Graphic);
EndDoc;
end;
Grundsätzlich funktioniert das. Seltsam ist allerdings das Verhalten beim Drucken in den Adobe X PDF-Writer:
Wenn ich die Zeile
Canvas.TextOut(0,0,'');
auskommentiere, wird ein leeres Blatt gedruckt. Auf den anderen Druckern funktioniert es mit und ohne TextOut. Hat jemand eine Idee, warum das so ist? Habe ich bei der Initialisierung etwas vergessen?