Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问doc.Print()如何打印多份？


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

主题：请问doc.Print()如何打印多份？
帅哥哟，离线，有人找我吗？
逛逛
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/4/22 8:21:00 [只看该作者]

原来是从这里转过去的，俺找了半天没找到。

 

这个俺也要用地，谢谢狐爸！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用狐狸爸爸在2014-4-22 8:17:00的发言：

来个硬的：

 

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Style.TextColor = Color.Red '字符颜色设为红色
rt.Style.TextAngle = -45 '顺时钟旋转45度
doc.Body.Children.Add(rt) '将文本对象加入到报表
For i As Integer = 1 To 50
    doc.Print()
Next

 

再来软的：

 

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Style.TextColor = Color.Red '字符颜色设为红色
rt.Style.TextAngle = -45 '顺时钟旋转45度
doc.Body.Children.Add(rt) '将文本对象加入到报表
Doc.PageSetting.ToPageSettings.PrinterSettings.Copies = 50
Doc.Print

 

[此贴子已经被作者于2014-4-22 8:17:35编辑过]

 

收藏......图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2014/4/22 9:12:00 [只看该作者]

硬的当然行，
软的还是行
软硬就是行，
因此是老大！
 回到顶部
帅哥哟，离线，有人找我吗？
hanxuntx
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2609 积分：16926 威望：0 精华：11 注册：2011/9/20 16:13:00 		  发帖心情 Post By：2014/4/22 9:50:00 [只看该作者]

图片点击可在新窗口打开查看老大威武
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2014/4/24 13:05:00 [只看该作者]

以下是引用狐狸爸爸在2014-4-22 8:17:00的发言：

来个硬的：

 

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Style.TextColor = Color.Red '字符颜色设为红色
rt.Style.TextAngle = -45 '顺时钟旋转45度
doc.Body.Children.Add(rt) '将文本对象加入到报表
For i As Integer = 1 To 50
    doc.Print()
Next

 

再来软的：

 

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Style.TextColor = Color.Red '字符颜色设为红色
rt.Style.TextAngle = -45 '顺时钟旋转45度
doc.Body.Children.Add(rt) '将文本对象加入到报表
Doc.PageSetting.ToPageSettings.PrinterSettings.Copies = 50
Doc.Print

 

[此贴子已经被作者于2014-4-22 8:17:35编辑过]


老大,軟的軟了軟了!
經試驗軟的不行,下面的只打印了1份:


Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
doc.Body.Children.Add(rt) '将文本对象加入到报表
Doc.PageSetting.ToPageSettings.PrinterSettings.Copies = 2 
doc.Print
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2014/4/24 13:18:00 [只看该作者]

以下是引用逛逛在2014-4-22 7:59:00的发言：

发现打印有扩展方法

Public Sub Print(ByVal printerSettings As System.Drawing.Printing.PrinterSettings)

俺没打印机测试，试试

 

Dim ps As new System.Drawing.Printing.PrinterSettings

ps.PrinterName = “打印机名”  ’设置打印机名
ps.Copies = 2   ‘设置份数

doc.Print(ps)     ‘打印



逛老大威武!測試可行!!!


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

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

rt.Text = "Hello Foxtable,I Love YOU!" '设置文本对象的内容

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

 

Dim ps As new System.Drawing.Printing.PrinterSettings

ps.PrinterName = "打印机名"  '设置打印机名

ps.Copies = 2   '设置份数

doc.Print(ps)     '打印
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 呵呵......

 回到顶部
帅哥哟，离线，有人找我吗？
zwjfx
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：146 积分：2622 威望：0 精华：0 注册：2014/3/18 12:20:00 		  发帖心情 Post By：2014/9/24 20:53:00 [只看该作者]

各位前辈，这个确实不行啊，在命令窗口运行以后只是一直走的白纸，没有内容

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用zwjfx在2014-9-24 20:53:00的发言：
各位前辈，这个确实不行啊，在命令窗口运行以后只是一直走的白纸，没有内容

 

上面的代码应该是有效的，你要拷贝正确代码。请测试16楼的代码。
 回到顶部
帅哥哟，离线，有人找我吗？
zwjfx
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：146 积分：2622 威望：0 精华：0 注册：2014/3/18 12:20:00 		  发帖心情 Post By：2014/9/24 21:04:00 [只看该作者]

确实是不行，麻烦给看看哪里出错，第一种可以打印一条，后面一种就是白纸


图片点击可在新窗口打开查看此主题相关图片如下：1.1.jpg
图片点击可在新窗口打开查看

这种可以打印一条


 


图片点击可在新窗口打开查看此主题相关图片如下：1.3.jpg
图片点击可在新窗口打开查看
这种就是出的白纸
[此贴子已经被作者于2014-9-24 21:06:27编辑过]
 回到顶部
总数 23 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询