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

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

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

yangwenghd

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

加好友

发短信

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

Post By：2018/7/20 10:23:00 [显示全部帖子]

感谢感谢，哎，没有你们真不知道怎么活，可以了，昨天下午一天的时间都浪费在这个设置上面了，太感谢了。

yangwenghd

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

加好友

发短信

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

Post By：2018/7/20 10:38:00 [显示全部帖子]

感谢感谢太感谢了，

能在请教两个问题吗？

比如在窗口添加一个NumericComboBox1用来设置打印数量和打印坐标，比如GroupBox2打印和标签纸有些偏移，先通过代码来设置打印的位置，感谢感谢，一个怎么做呀。

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

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

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("GroupBox2")

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

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

doc.Preview()

感谢感谢

[此贴子已经被作者于2018/7/20 10:39:43编辑过]

yangwenghd

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

加好友

发短信

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

Post By：2018/7/20 11:13:00 [显示全部帖子]

感谢感谢在NumericComboBox1输入整数，打印还是打印的一张呢，感谢感谢

'Dim doc As New PrintDoc '定义一个报表

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

'rt.Text = e.form.controls("Label17").text

'rt.Text = e.form.controls("Label18").text

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

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

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

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

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

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 '横向打印

doc.Preview()

打印的时候可以直接设置某个 Label 旋转吗？感谢感谢

[此贴子已经被作者于2018/7/20 11:22:41编辑过]

yangwenghd

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

加好友

发短信

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

Post By：2018/7/20 12:07:00 [显示全部帖子]

感谢感谢

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

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

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

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) '打印

设置打印份数是那里出了问题啊，感谢感谢

yangwenghd

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

加好友

发短信

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

Post By：2018/7/20 13:25:00 [显示全部帖子]

感谢感谢

可以了，是我没有输入打印的数量，不好意思，填麻烦了，感谢感谢

感谢感谢

[此贴子已经被作者于2018/7/20 13:27:17编辑过]

yangwenghd

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

加好友

发短信

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

Post By：2018/7/23 11:40:00 [显示全部帖子]

能在帮忙看看这个吗？就是打印的效果不同，

在这里改字体不对吗？感谢感谢

Dim fnt As New Font("宋体",10.5pt, style=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)

感谢感谢

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

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

[此贴子已经被作者于2018/7/23 11:41:27编辑过]

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：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编辑过]

yangwenghd

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

加好友

发短信

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

Post By：2018/7/24 9:32:00 [显示全部帖子]

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

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

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

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

yangwenghd

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

加好友

发短信

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

Post By：2018/7/24 14:36:00 [显示全部帖子]

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

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：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() '预览

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

总数 26 上一页 1 2 3 下一页

主题：打印Panel2内的内容