| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1226 人关注过本帖
标题:[求助]一个打印份数问题
只看楼主 加入收藏
冷傲狐
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2005-12-17
收藏
 问题点数:0 回复次数:5 
[求助]一个打印份数问题
各位老大:下面是我写的代码,提示错误是:“实时错误:'482',打印机错误”
下面这样写的代码对不对呀?错在哪里呢?请高手指点,谢谢!
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox ("输入错误,请重新输入!")
Else
MsgBox ("请备好了吗?")
Printer.FontName = "楷体_GB2312"
Printer.FontSize = 12
Printer.Print Text1.Text
Printer.Print Text2.Text
Printer.Print Text3.Text
Printer.Copies = CInt(Text4.Text)
Printer.EndDoc
End If
End Sub

搜索更多相关主题的帖子: 打印机 Printer Sub ThenMsgBox 
2005-12-17 15:18
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

某些打印机不支持该属性,只能设置为1

Copies 属性

返回或设置需要打印的份数。对于 Printer 对象,在设计时不可用。

语法

object.Copies [= number]

Copies 属性语法包含下面部分:

部分 描述
Object 对象表达式,其值是“应用于”列表中的一个对象。
Number 数值表达式,指定需要打印的份数。该值必须是整型值。


说明

对于“打印”对话框,该属性返回在“份数”框中用户输入的份数。如果设置 CommonDialog 控件的 cdlPDUseDevModeCopies 标志,则该属性始终返回 1。

对于 Printer 对象,对多份打印可能进行、也可能不进行核对,这取决于打印机驱动程序。可以将整个文档或将每一页打印多份。对于不支持核对的打印机,设置 Copies = 1,然后在程序中使用循环,就可以将整个文档打印多份。

注意 Printer 对象属性的效果取决于打印机生产商提供的驱动程序。一些属性设置可能不起作用,或几个不同的属性设置具有相同的结果。如果设置值超出可接受范围,就会产生错误。更多的信息,参阅有关驱动程序的生产商文档。


天津网站建设 http://www./
2005-12-17 17:37
冷傲狐
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2005-12-17
收藏
得分:0 
谢谢版主这么详细,俺是初学者,对于这样的讲解俺都不明白,版主可否帮俺改改上面的代码,“Text4”是填写“打印份数”,比如我要打印十份,输入“10”就打印出十份出来,俺不知道怎么,谢谢!
2005-12-19 11:01
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
可以使用变通的方法,使用For循环输出10次。

天津网站建设 http://www./
2005-12-19 11:58
冷傲狐
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2005-12-17
收藏
得分:0 
可是并不是固定好每次都是10份的哦,因为每次打印量都不一样,所以那里不固定的数值,谢谢!
2005-12-19 14:49
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
晕,这个10还是你输入的参数呀

比如Text1是你输入的份数:

For I=1 To Text1.Text
....
'输出一份
....
Next

天津网站建设 http://www./
2005-12-19 15:29
快速回复:[求助]一个打印份数问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.038970 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved