求教!用vb如何实现打印一文本文件 (在线等)

shanshan712 2004-08-26 02:42:46
是一个commond_click事件,文件已经打开,用ts.ReadLine可以逐行读出
加入CommonDialog控件,怎么传数据到打印机呢?
紧急!!请各位赐教!!!

...全文
154 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
shanshan712 2004-08-26
呵呵,果然是打印机的问题!!!谢谢谢谢!!!!!!!!!
回复
啊呀 2004-08-26
你的代码我试过了,可以打出来的
检查打印机设置吧
回复
shanshan712 2004-08-26
谢谢两位热心人!!!
但我把这个单独拿来测试,还是打不出来…………………………

Private Sub Command1_Click()

Dim outstr As String
outstr = "a!!!!!!!!!!!!!fengle !!!!"

Dim BeginPage, EndPage, NumCopies, Orientation
Dim m As Integer
'将 Cancel 设置成 True。
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
'显示“打印”对话框。
CommonDialog1.ShowPrinter
'从对话框中获取用户选定数值。
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
Orientation = CommonDialog1.Orientation
For m = 1 To NumCopies '————————呵呵,这个是打印份数,不是页数
'将数据发送到打印机
Printer.Print outstr

Next m
Printer.EndDoc

Exit Sub
ErrHandler:
'用户按下了“取消”按钮。
Exit Sub


'-------------------------------------------------

End Sub
回复
啊呀 2004-08-26
CommonDialog 控件(“打印”对话框)


通过使用 CommonDialog 控件的 ShowPrinter 方法可显示“打印”对话框。“打印”对话框可用以指定打印输出方式。可以指定被打印页的范围,打印质量,打印的份数等等。这个对话框还包含当前安装的打印机的信息,并允许配置或重新安装缺省打印机。

注意 这个对话框并不给打印机传送数据,只是指定希望打印数据的情况。如果 PrinterDefault 属性为 True,可以使用 Printer 对象按选定的格式打印数据。

在运行时,一旦“打印”对话框中作出选择,下列属性即包括与该选择有关的信息:

属性 决定
Copies 打印的份数。
FromPage 开始打印页。
ToPage 结束打印页。
hDC 所选打印机的设备描述体。
回复
啊呀 2004-08-26
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
Orientation = CommonDialog1.Orientation
For m = 1 To NumCopies
>>>NumCopies这个值是打印份数,不是页数,如果要打不同页,好像应该写成:
For m=BeginPage to EndPage
'在此放置代码,将数据发送到打印机
Printer.Print outstr
Printer.Print tmpstr >>> 以上两行是测试用的吧
Printer.EndDoc >>> 你是想要换页就用 printer.NewPage 吧
Next m
Exit Sub

回复
sangshuyezi 2004-08-26
楼主的代码
For m = 1 To NumCopies
'在此放置代码,将数据发送到打印机
Printer.Print outstr
Printer.Print tmpstr
''''这句代码要放最后结束打印的位置。
'Printer.EndDoc
Next m
Printer.EndDoc


回复
sangshuyezi 2004-08-26
Dim myStr(9) As String
Dim I As Integer
For I = 0 To 9
myStr(I) = CStr(I)
Printer.Print Space(10) & str(I)
Next I
Printer.EndDoc
回复
shanshan712 2004-08-26
我现在出来的代码是这样的,printer.print是那样用的么?
我是第一次用vb,谢谢了!!!
'将 Cancel 设置成 True。
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
'显示“打印”对话框。
CommonDialog1.ShowPrinter
'从对话框中获取用户选定数值。
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
Orientation = CommonDialog1.Orientation
For m = 1 To NumCopies
'在此放置代码,将数据发送到打印机
Printer.Print outstr
Printer.Print tmpstr
Printer.EndDoc
Next m
Exit Sub
ErrHandler:
'用户按下了“取消”按钮。
Exit Sub
回复
啊呀 2004-08-26
printer.print 字符串
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-08-26 02:42
社区公告
暂无公告