Delphi7 & FastReport 2.5打印二维码问题 Delphi 7Zint二维码Delphi7FastReport2.5 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 http://download.csdn.net/detail/lsh341999/8068039 二维码不就是一张图片嘛,只要能打印图片就行了,不用控件也可以。 sl := TStringList.Create; Printer := TPrinter.Create; try StartPrint(0, 0, Printer); except end; sl := TStringList(Printer.Printers); Printer.BeginDoc; temhi := img.Height; temwd := img.width; with strect do begin left := 10; top := 10; right := left + temwd; bottom := top + temhi; end; Printer.Canvas.StretchDraw(strect,img.picture.graphic); printer.EndDoc; printer.Free; 谢谢!这个是可以,但是也不仅仅是打印二维码,是要放到FastReport中,方便打印一些企业用的报表等。 请教!插入数据的问题! 在delphi中如何销毁DLL中创建的实例 万能取硬盘ID 为什么我的程序偶尔会出现这个错误 Exception EOSError,怎么查找错误源呢?请指点一下 如何确定sender参数? 如何在过程中写入语句,退出调研它的过程? 一个图形问题,请教方法 关于捕捉WinSocket编程中异常的问题! 运行delphi6的demo下的corba有错? 求 delphi 7 qrcode 解码 demo 文件保存到服务器的问题 运行时程序如何读程序自身
sl := TStringList.Create; Printer := TPrinter.Create;
try
StartPrint(0, 0, Printer);
except
end;
sl := TStringList(Printer.Printers);
Printer.BeginDoc;
temhi := img.Height;
temwd := img.width;
with strect do
begin
left := 10;
top := 10;
right := left + temwd;
bottom := top + temhi;
end;
Printer.Canvas.StretchDraw(strect,img.picture.graphic);
printer.EndDoc;
printer.Free;