以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 怎么样设置一次打印多页? (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=86910) |
-- 作者:colink -- 发布时间:2016/6/28 18:41:00 -- 怎么样设置一次打印多页? 怎么样设置一页内容打印多份?我现在用循环语句多次打印,效率很低。谢谢! |
-- 作者:大红袍 -- 发布时间:2016/6/28 19:37:00 -- 参考
Dim doc As New PrintDoc \'定义一个报表
|
-- 作者:colink -- 发布时间:2016/6/29 8:29:00 -- 谢谢! |
-- 作者:colink -- 发布时间:2016/6/29 9:45:00 -- 我把代码加上去了,还是只打一页,代码如下,请帮忙指教。 Dim doc As New PrintDoc
Dim ra As New prt.RenderArea doc.PageSetting.Width = 60 doc.PageSetting.Height = 40 Doc.PageSetting.LeftMargin = 0 \'设置左边距 Doc.PageSetting.RightMargin = 0 \'设置右边距 Doc.PageSetting.TopMargin = 0 \'设置上边距 Doc.PageSetting.BottomMargin = 0 \'设置下边距 ra.Width = "Parent.Width" ra.Height = "Parent.Height" doc.Body.Children.Add(ra) Dim rt As prt.RenderText \'定义一个文本对象 rt = New prt.RenderText() \'创建文本对象 rt.Text = "合格证" \'设置文本对象的内容 rt.Width = "Auto" \'自动设置宽度 rt.Style.Font = New Font("宋体", 16, FontStyle.Bold) \'设置字体 rt.X = 22 \'指定水平位置 rt.y = 3 \'指定垂直位置 doc.Body.Children.Add(rt) \'将文本对象加入到报表 rt = New prt.RenderText() \'创建文本对象 rt.Text = "品名:" & txt \'设置文本对象的内容 rt.Width = "Auto" \'自动设置宽度 rt.Style.Font = New Font("宋体", 12, FontStyle.Bold) \'设置字体 rt.X = 2 \'指定水平位置 rt.y = 10 \'指定垂直位置 doc.Body.Children.Add(rt) \'将文本对象加入到报表 rt = New prt.RenderText() \'创建文本对象 rt.Text = "规格:" & txt2 \'设置文本对象的内容 rt.Width = "Auto" \'自动设置宽度 rt.Style.Font = New Font("宋体", 12, FontStyle.Bold) \'设置字体 rt.X = 2 \'指定水平位置 rt.y = 16 \'指定垂直位置 doc.Body.Children.Add(rt) \'将文本对象加入到报表 rt = New prt.RenderText() \'创建文本对象 rt.Text = "数量:" & txt3 \'设置文本对象的内容 rt.Width = "Auto" \'自动设置宽度 rt.Style.Font = New Font("宋体", 12, FontStyle.Bold) \'设置字体 rt.X = 2 \'指定水平位置 rt.y = 22 \'指定垂直位置 doc.Body.Children.Add(rt) \'将文本对象加入到报表 rt = New prt.RenderText() \'创建文本对象 rt.Text = "日期:" & txt5 \'设置文本对象的内容 rt.Width = "Auto" \'自动设置宽度 rt.Style.Font = New Font("宋体",12, FontStyle.Bold) \'设置字体 rt.X = 2 \'指定水平位置 rt.y = 28\'指定垂直位置 doc.Body.Children.Add(rt) \'将文本对象加入到报表 rt = New prt.RenderText() \'创建文本对象 rt.Text = "品检员:" & txt4 \'设置文本对象的内容 rt.Width = "Auto" \'自动设置宽度 rt.Style.Font = New Font("宋体",12, FontStyle.Bold) \'设置字体 rt.X = 2 \'指定水平位置 rt.y = 34 \'指定垂直位置 doc.Body.Children.Add(rt) \'将文本对象加入到报表 Doc.PageSetting.ToPageSettings.PrinterSettings.Copies = n doc.Print() |
-- 作者:大红袍 -- 发布时间:2016/6/29 9:47:00 -- 试试这样
Dim ps As new System.Drawing.Printing.PrinterSettings ps.PrinterName = "打印机名" \'设置打印机名 ps.Copies = 2 \'设置份数 doc.Print(ps) \'打印 |
-- 作者:colink -- 发布时间:2016/6/29 10:59:00 -- 后面这个行,非常感谢! |