Hab's jetzt mal noch mit den anderen 2 Print-Procedures probiert. Funktioniert immer jetzt der Ausdruck, aber bei allen 3 Formen ist das Bild in die Länge verzerrt!
Delphi-Quellcode:
begin
img := TImage.Create(nil);
try
Img.Picture.Bitmap.Assign(DBImage1.Picture.Bitmap);
printpdf1.ImageOut(100,1100,Img);
//printpdf1.ImageOut(100,1100,TImage(Img));
//printpdf1.draw(100,1050, img);
finally
img.Free;
end;
end;
Hast du noch ne Idee? Hat es mit dem Font zu tun? Hier der Font, den ich kurz vorher für die Memo verwende, die beim Ausdruck noch vor dem Bild kommt:
Delphi-Quellcode:
printpdf1.Font.Name:=poHelveticaBold;
printPDF1.Font.Size:=20;
printPDF1.MemoOut(50,940, Memo1);
Wie findest du ansonsten die tnpdf-Komponente?
Mit deinem Verlaub, sende ich an Nishita diesen Hinweis, er bittet ja in seinem Readme-File um Verbesserungen seiner Komponente. Ist dies ok für Dich, Marabu?