hvorfor vi denne program kode stump ikke skrive billede ud på alle slags
printer !!
jeg kan godt skrive ud på en hp5si(600dpi), men ikke på en brother p-touch
(360dpi)
procedure TForm1.Button1Click(Sender: TObject);
var
bmp:tbitmap;
begin
bmp:=tbitmap.Create;
bmp.LoadFromFile('c:\dokumenter\logo.bmp');
with printer do
begin
if ps.Execute then
begin
begindoc;
canvas.StretchDraw(rect(10,10,50,50),bmp);
canvas.font.Name:='clarial';
canvas.Font.size:=8;
canvas.TextOut(30,30,'hej');
enddoc;
end;
end;
end;
end.
Kenneth
|