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

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

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

yangwenghd

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

加好友

发短信

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

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

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

yangwenghd

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

加好友

发短信

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

有点甜

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

加好友

发短信

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

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

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

e.Form.Page.Height = 15 '纸张高度为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("GroupBox2")

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

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

doc.Preview()

yangwenghd

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

加好友

发短信

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

有点甜

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

加好友

发短信

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

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

1、旋转参考这里

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

2、23楼的意思是设置左边距啊

3、打印多份，参考

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

Dim ps As new System.Drawing.Printing.PrinterSettings

ps.PrinterName = "HP LaserJet 6L"

ps.Copies = 2 '设置份数

doc.Print(ps) '打印

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17993 威望：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) '打印

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

有点甜

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

加好友

发短信

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

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

报什么错？有什么问题？

yangwenghd

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

加好友

发短信

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

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

感谢感谢

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

感谢感谢

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

yangwenghd

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

加好友

发短信

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

有点甜

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

加好友

发短信

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

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

参考

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

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

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

主题：打印Panel2内的内容