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

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

...全文
263 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
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 字符串

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧