Hallo Volker,
heute morgen ging Deine Routine wieder nicht.
In der Tat hängt es vom Drucker ab. Z.B. funktionert es auf den pdf-Drucker eDocPrintPro 3.17.7, aber nicht auf den pdf-Drucker pdf-Factory 4.
png funktioniert nicht auf allen Druckern:
Delphi-Quellcode:
lPNG:= TPngImage.Create;
lPNG.LoadFromFile(ProgrammOrdner + 'Logo.png');
b:= TBitmap.Create;
try
b.Assign(lPNG);
printer.Canvas.StretchDraw(20, 20, 2500, 2500, b);
finally
FreeAndNil(b);
FreeAndNil(lPNG);
end;
jpg funktioniert:
Delphi-Quellcode:
lJPG:= TJPEGImage.Create;
lJPG.LoadFromFile(ProgrammOrdner + 'Logo.jpg');
b:= TBitmap.Create;
try
b.Assign(lJPG);
printer.Canvas.StretchDraw(20, 20, 2500, 2500, b);
finally
FreeAndNil(b);
FreeAndNil(lJPG);
end;
jpg funktioniert:
Delphi-Quellcode:
lJPG:= TJPEGImage.Create;
lJPG.LoadFromFile(ProgrammOrdner + 'Logo.jpg');
try
printer.Canvas.StretchDraw(20, 20, 2500, 2500, lJPG);
finally
FreeAndNil(lJPG);
end;