我用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;//那你只有改变一下了! 用分辨率转换拉 关于在dll中使用控件的问题 delphi 2007不规则出现编译错误(撞了鬼了) 全部分数求助:在DBGrid控件中如何实现象Excel表中的对行自动编号及对指定列自动汇总。 adodataset 或 dbgrid 有没有记录指针改变的事件? ARP包(监听、嗅探) 关于*的用法的一个问题---????? 如何发送消息!(30分钟结) 关于TListBox的一些问题? BDE初始化时出错怎么办?120分征答。 在程序中添加一个浏览文件夹的功能 关于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;
//那你只有改变一下了! 用分辨率转换拉