我用printer打印一个panel,打印出的结果是一个特别小的图象,我想打印这个panel的实际大小,该怎么办?分不够再加! panel1.PaintTo(printer.Canvas,panel1.Top,panel2.Left); 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 SetMapMode(printer.canvas.handle, mm_Lometric); // 0.1mm用这个试试看! 因为我也在学习这个! 如果楼主测试成功。请在这里留言,告诉我好吗? to kl2000() :没有成功啊! BeginDoc; scaleX:=GetDeviceCaps(Handle,logPixelsX) div Screen.PixelsPerInch * 2; scaleY:=GetDeviceCaps(Handle,logPixelsY) div Screen.PixelsPerInch * 2; //Canvas.Draw(0,0,FImg.Picture.Graphic); Canvas.StretchDraw(Rect(FImg.Left div 2 ,FImg.Top,(FImg.Width + FImg.Left) * scaleX ,(FImg.Top + FImg.Height) * scaleY),FImg.Picture.Graphic); //Canvas.CopyRect(Rect(0,0,FImg.Width,FImg.Height),Canvas,Rect(0,0,PageWidth,PageHeight)); EndDoc;//那你只有改变一下了! 用分辨率转换拉 如何用delphi打包java文件成exe? 写网络桌面程序,我应该用那些组件啊? 请问如何在程序中Excel与Access数据的导入导出 当TRichEdit控件的onchange事件触发如何知道控件中的文本变化是什么? 小弟初学,请问怎么实现点击treeview根目录上的+号时,不要让它的子目录展开,当满足一定条件时再让它展开。 关于 GBGrid 问题,高手请帮帮小弟! 请问应用图片文件的变量是什么?具体怎么用的! 两个小问题 高手帮忙 经典文章:我的回忆和一些不大有趣的故事(转载) 关于SetWindowsHookEx的问题 intrawen & rave update pack
用这个试试看! 因为我也在学习这个! 如果楼主测试成功。
请在这里留言,告诉我好吗?
没有成功啊!
scaleX:=GetDeviceCaps(Handle,logPixelsX) div Screen.PixelsPerInch * 2;
scaleY:=GetDeviceCaps(Handle,logPixelsY) div Screen.PixelsPerInch * 2;
//Canvas.Draw(0,0,FImg.Picture.Graphic);
Canvas.StretchDraw(Rect(FImg.Left div 2 ,FImg.Top,(FImg.Width + FImg.Left) * scaleX ,(FImg.Top + FImg.Height) * scaleY),FImg.Picture.Graphic);
//Canvas.CopyRect(Rect(0,0,FImg.Width,FImg.Height),Canvas,Rect(0,0,PageWidth,PageHeight));
EndDoc;
//那你只有改变一下了! 用分辨率转换拉