Foxtable(狐表)用户栏目专家坐堂 → [求助]DrawString做的painter控件打印时会有很强的颗粒感


  共有4323人关注过本帖树形打印复制链接

主题:[求助]DrawString做的painter控件打印时会有很强的颗粒感

帅哥哟,离线,有人找我吗?
mickeygy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:28 积分:280 威望:0 精华:0 注册:2013/12/5 23:12:00
[求助]DrawString做的painter控件打印时会有很强的颗粒感  发帖心情 Post By:2014/1/14 23:39:00 [只看该作者]

 

为了能显示旋转90度的label,先用DrawString把想显示的字符串画成图片然后再旋转。

这样做出来的控件在屏幕上看挺正常的 怎么用打印机打印出来就有很强的的颗粒感?好像分辨率不够的样子。

请高手帮忙解答,谢谢先!

 

Dim p As WinForm.Painter = e.Form.Controls("Painter")
Dim w As Integer = p.Width
Dim h As Integer = p.Height
Dim g As Graphics = p.Graphics   '获取Graphics对象
Dim fnt As New Font("Arial",6)
Dim msg As String =  "ABCDEFGHIJKLMN"
Dim  sf As StringFormat = new StringFormat(StringFormat.GenericTypographic)
Dim  size As  SizeF = g.MeasureString(msg,fnt,1000,sf)
Dim sh =(h/2 - size.Height/2)
Dim sw =(w/2 -  size.Width/2)
g.TranslateTransform(w/2, h/2)
g.RotateTransform(-90)
g.TranslateTransform(-w/2, -h/2)
g.DrawString(msg,fnt,Brushes.BLACK,sw,sh)
g.TranslateTransform(w/2, h/2)
g.RotateTransform(90)
p.Repaint()


 回到顶部
帅哥哟,离线,有人找我吗?
mickeygy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:28 积分:280 威望:0 精华:0 注册:2013/12/5 23:12:00
  发帖心情 Post By:2014/1/15 22:21:00 [只看该作者]

求教。。。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/1/15 22:32:00 [只看该作者]

 路过,不知道

 回到顶部