D
delphi999
Unregistered / Unconfirmed
GUEST, unregistred user!
我写了一个程序：
procedure TForm1.Button1Click(Sender: TObject);
var R : TRect;
begin
//打印
Printer.begin
Doc;
with Printer do
begin
//打印图片
R := Rect(StrToInt(edit2.Text),
StrToInt(edit1.Text),
StrToInt(edit3.Text),
StrToInt(edit4.Text));
Canvas.StretchDraw(R, Image1.Picture.Graphic);
EndDoc;
end;
//with printer
end;
在Canon激光打印机测试没问题。
但是在热敏小票打印机（商场打销售小票）那种就打不出来。
各位知道什么原因吗？
或者有什么更好的打印图像的方法。
procedure TForm1.Button1Click(Sender: TObject);
var R : TRect;
begin
//打印
Printer.begin
Doc;
with Printer do
begin
//打印图片
R := Rect(StrToInt(edit2.Text),
StrToInt(edit1.Text),
StrToInt(edit3.Text),
StrToInt(edit4.Text));
Canvas.StretchDraw(R, Image1.Picture.Graphic);
EndDoc;
end;
//with printer
end;
在Canon激光打印机测试没问题。
但是在热敏小票打印机（商场打销售小票）那种就打不出来。
各位知道什么原因吗？
或者有什么更好的打印图像的方法。