GAME，图形处理/多媒体
Image打印问题？
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区如果在Image中调出了图片,怎么打都OK,
var
ScaleX, ScaleY: Real;
R: TRect;
begin
with Printer do
try
BeginDoc;
ScaleX := GetDeviceCaps(Printer.Handle, LOGPIXELSX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Printer.Handle, LOGPIXELSY) div PixelsPerInch;
R := Rect(0, 0, Round(Image2.Picture.Width * ScaleX),Round(Image2.Picture.Height * ScaleY));
Canvas.StretchDraw(R, Image2.Picture.Graphic);
finally
EndDoc;
end;
end;
如果我先调用这个清Image,然后写文字的东西,送打印就什么也打不出来
with image2 do
begin
Canvas.FillRect(rect(0,0,200,200));
Canvas.Font.Name:='宋体';
Canvas.Font.Size:=20;
Canvas.TextOut(10,10,'设备空号清单');
end;
end;
在D7下面出的问题
var
ScaleX, ScaleY: Real;
R: TRect;
begin
with Printer do
try
BeginDoc;
ScaleX := GetDeviceCaps(Printer.Handle, LOGPIXELSX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Printer.Handle, LOGPIXELSY) div PixelsPerInch;
R := Rect(0, 0, Round(Image2.Picture.Width * ScaleX),Round(Image2.Picture.Height * ScaleY));
Canvas.StretchDraw(R, Image2.Picture.Graphic);
finally
EndDoc;
end;
end;
如果我先调用这个清Image,然后写文字的东西,送打印就什么也打不出来
with image2 do
begin
Canvas.FillRect(rect(0,0,200,200));
Canvas.Font.Name:='宋体';
Canvas.Font.Size:=20;
Canvas.TextOut(10,10,'设备空号清单');
end;
end;
在D7下面出的问题
...全文
相关推荐
管家婆软件打印常见问题解决方案
四、关于插入图片问题9.6 打印管理器中,插入图片时,出现 bitmap image is mot valid 是什么原因？
C# 图片与Base64码的相互转化问题(代码详解)
下面我们将通过代码实例来介绍C# 图片与Base64码的相互转化问题。
2022年桌面运维工程师测试题.docx
一台黑白激光打印机，其打印出来旳文档，左半边颜色清晰正常，右半边颜色较浅，最有也许是什么问题？
php写一个函数,实现扫描并打印出自定目录下(含子目录)所有jpg文件名
$d) == "image/jpeg") { echo $deep . $d . "<br/>"; } } // 关闭目录资源 $dirSource->close();}?
图像转PDF Image2PDF.rar
**打印友好**：PDF文件在打印时能保持原始布局和质量，避免图像失真。转换图像到PDF的常用方法包括使用软件工具和在线服务：1.
