求教！用vb如何实现打印一文本文件 （在线等）

[shanshan712]

是一个commond_click事件，文件已经打开，用ts.ReadLine可以逐行读出
加入CommonDialog控件，怎么传数据到打印机呢？
紧急！！请各位赐教！！！

[啊呀]

printer.print 字符串

[shanshan712]

我现在出来的代码是这样的，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

[sangshuyezi]

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

[sangshuyezi]

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

[啊呀]

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

[啊呀]

CommonDialog 控件（“打印”对话框）


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

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

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

属性 决定
Copies 打印的份数。
FromPage 开始打印页。
ToPage 结束打印页。
hDC 所选打印机的设备描述体。

[shanshan712]

谢谢两位热心人！！！
但我把这个单独拿来测试，还是打不出来…………………………

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

[啊呀]

你的代码我试过了，可以打出来的
检查打印机设置吧

[shanshan712]

呵呵，果然是打印机的问题！！！谢谢谢谢！！！！！！！！！