打印Panel2内的内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打印Panel2内的内容

共有3999人关注过本帖树形打印复制链接主题：打印Panel2内的内容

yangwenghd

小大 31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/7/23 12:39:00 [只看该作者]

为什么我怎么设置都灰蒙灰蒙的呢，加粗还是没有变化。可以和右边的横着的效果一样吗？感谢感谢

Dim fnt As New Font("宋体",12,FontStyle.Bold )

Dim msg As String = e.form.controls("Label17").text

g.DrawString(msg,fnt,Brushes.Black,-10,0)

msg = e.form.controls("Label16").text

g.DrawString(msg,fnt,Brushes.Black,-10,16)

msg = e.form.controls("Label17").text

g.DrawString(msg,fnt,Brushes.Black,-10,35)

msg = e.form.controls("Label16").text

g.DrawString(msg,fnt,Brushes.Black,-10,51)

'p.Repaint()

[此贴子已经被作者于2018/7/23 12:55:00编辑过]

有点甜

小大 32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/23 15:05:00 [只看该作者]

1、实例发上来测试；

2、你需要什么效果？加粗显示？

yangwenghd

小大 33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/7/24 9:32:00 [只看该作者]

此主题相关图片如下：qq截图20180724092902.jpg

此主题相关图片如下：img_20180723_113001.jpg

感谢感谢点击预览，然后两边的字符可以完全一样那？不然打印出来是模糊的，感谢感谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:打印效果.table

有点甜

小大 34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/24 10:47:00 [只看该作者]

多画几次试试

g.DrawString(msg,fnt,Brushes.Black,0,0)
g.DrawString(msg,fnt,Brushes.Black,0,0)
g.DrawString(msg,fnt,Brushes.Black,0,0)

yangwenghd

小大 35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/7/24 14:36:00 [只看该作者]

感谢感谢，还是以的，感觉就是那种边缘被羽化了的感觉，我先学习帮助，看还是能不能直接旋转Label，感谢感谢

有点甜

小大 36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/24 15:10:00 [只看该作者]

以下是引用yangwenghd在2018/7/24 14:36:00的发言：
感谢感谢，还是以的，感觉就是那种边缘被羽化了的感觉，我先学习帮助，看还是能不能直接旋转Label，感谢感谢

1、你试试这样打印旋转的字符，看是否正常

http://www.foxtable.com/webhelp/scr/1168.htm

2、如果1也不正常，说明是打印机问题，旋转后都是一样的效果；如果1没问题，简单修改一下代码，给doc插入一个旋转的字符串即可。

yangwenghd

小大 37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/7/24 17:27:00 [只看该作者]

感谢感谢用方法1可以的，感谢，这个怎么定位呀，感谢感谢

Dim rt As New prt.RenderText '定义一个文本对象

rt.Text = e.form.controls("Label17").text '设置文本对象的内容

rt.Style.TextColor = Color.Red '字符颜色设为红色

rt.Style.TextAngle = -90 '顺时钟旋转45度

doc.Body.Children.Add(rt) '将文本对象加入到报表

Dim fnt As New Font("宋体",12)

Dim msg As String = e.form.controls("Label17").text

g.DrawString(msg,fnt,Brushes.Black,-10,0)

msg = e.form.controls("Label16").text

g.DrawString(msg,fnt,Brushes.Black,-10,16)

msg = e.form.controls("Label17").text

g.DrawString(msg,fnt,Brushes.Black,-10,35)

msg = e.form.controls("Label16").text

g.DrawString(msg,fnt,Brushes.Black,-10,51)

e.Form.Page.Width =110 '纸张宽度为100毫米

e.Form.Page.Height = 35 '纸张高度为120毫米

'e.Form.Page.LeftMargin = e.form.controls("NumericComboBox1").value

e.Form.Page.LeftMargin = 0 '设置左边距

e.Form.Page.RightMargin = 0 '设置右边距

e.Form.Page.TopMargin = 0 '设置上边距

e.Form.Page.BottomMargin = 0 '设置下边距

Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox1")

Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)

doc.PageSetting.Landscape = True '横向打印

'Dim ps As new System.Drawing.Printing.PrinterSettings

'ps.Copies = e.Form.Controls("NumericComboBox1").Text

'doc.Print(ps) '打印

doc.Preview() '预览

有点甜

小大 38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/24 17:30:00 [只看该作者]

参考代码

Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
doc.PageSetting.Landscape = True '横向打印
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Style.TextColor = Color.Red '字符颜色设为红色
rt.Style.TextAngle = -90 '顺时钟旋转45度
rt.x = 10
rt.y = 20

yangwenghd

小大 39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17993 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/7/24 17:48:00 [只看该作者]

这个是那里的问题，没有旋转呢，感谢感谢

e.Form.Page.Width =110 '纸张宽度为100毫米

e.Form.Page.Height = 135 '纸张高度为120毫米

'e.Form.Page.LeftMargin = e.form.controls("NumericComboBox1").value

e.Form.Page.LeftMargin = 0 '设置左边距

e.Form.Page.RightMargin = 0 '设置右边距

e.Form.Page.TopMargin = 0 '设置上边距

e.Form.Page.BottomMargin = 0 '设置下边距

Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox1")

Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)

doc.PageSetting.Landscape = True '横向打印

Dim rt As New prt.RenderText '定义一个文本对象

rt.Text = e.form.controls("Label40").text '设置文本对象的内容

rt.Style.TextColor = Color.Red '字符颜色设为红色

rt.Style.TextAngle = -90 '顺时钟旋转45度

rt.x = 10

rt.y = 20

rt.Text = e.form.controls("Label41").text '设置文本对象的内容

rt.Style.TextColor = Color.Red '字符颜色设为红色

rt.Style.TextAngle = -90 '顺时钟旋转45度

rt.x = 10

rt.y = 20

'Dim ps As new System.Drawing.Printing.PrinterSettings

'ps.Copies = e.Form.Controls("NumericComboBox1").Text

'doc.Print(ps) '打印

doc.Preview() '预览

有点蓝

小大 40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106168 积分：539957 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/7/24 20:31:00 [只看该作者]

e.Form.Page.Width =110 '纸张宽度为100毫米

e.Form.Page.Height = 135 '纸张高度为120毫米

'e.Form.Page.LeftMargin = e.form.controls("NumericComboBox1").value

e.Form.Page.LeftMargin = 0 '设置左边距

e.Form.Page.RightMargin = 0 '设置右边距

e.Form.Page.TopMargin = 0 '设置上边距

e.Form.Page.BottomMargin = 0 '设置下边距

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

doc.PageSetting.Landscape = True '横向打印

Dim rt As New prt.RenderText '定义一个文本对象

rt.Text = "123456" '设置文本对象的内容

rt.Style.TextColor = Color.Red '字符颜色设为红色

rt.Style.TextAngle = -90 '顺时钟旋转45度

rt.x = 10

rt.y = 20

doc.Body.Children.Add(rt)

rt = New prt.RenderText

rt.Text = "123456"

rt.Style.TextColor = Color.Red '字符颜色设为红色

rt.Style.TextAngle = -90 '顺时钟旋转45度

rt.x = 40

rt.y = 20

doc.Body.Children.Add(rt)

'Dim ps As new System.Drawing.Printing.PrinterSettings

'ps.Copies = e.Form.Controls("NumericComboBox1").Text

'doc.Print(ps) '打印

doc.Preview() '预览

下一主题 >> << 上一主题

总数 48 上一页 1 2 3 4 5 下一页

主题：打印Panel2内的内容