标题:VB通用对话框打印遇到问题 求大神帮忙解决
取消只看楼主
小梁同志
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2017-7-17
结帖率:0
已结贴  问题点数:20 回复次数:1 
VB通用对话框打印遇到问题 求大神帮忙解决
我自己做了一个简单的程序用的是通用对话框 上面做了几个按钮第一个是打开命令按钮第二个是保存命令按钮 第三个打印按钮
里面全部是的是通用对话框我运行先点打印 可以出现打印机选择对话框 如果我先点的是打开命令按钮 在点击打印 此时就不出现打印机选择对话框而是直接打印  求大神帮我分析一下原因


Private Sub cmdOpen_Click()
Dim StrText As String
On Error GoTo Note '当出现错误时,跳转到Note语句
With CommonDialog1
.DialogTitle = "打开对话框"
.InitDir = "D:/"
.Filter = "Word文档(*.doc) |*.doc|文本文件(*.txt) |*.txt|所有文件(*.*) |*.*"
.FilterIndex = 1
Text1.Text = ""
.ShowOpen '或使用CommonDialog1.Action=1
Open .FileName For Input As #1
End With
If Err.Number = 0 Then '如果打开文件正确
Do While Not EOF(1)
Line Input #1, StrText
Text1 = Text1 + StrText + vbCrLf 'vbCrLf是系统常量,为回车换行符
'Text1=Text1+StrText+(Chr(13)+(Chr(10))
Loop
Close #1
End If
Note:
End Sub
Private Sub cmdPrinter_Click()
Dim i As Integer
CommonDialog1.ShowPrinter '或使用CommonDialog1.Action=5
For i = 1 To CommonDialog1.Copies
Printer.Print Text1.Text
Next i
Printer.EndDoc '结束打印
End Sub
Private Sub cmdSave_Click()
With CommonDialog1
.DialogTitle = "另存为对话框"
.InitDir = "C:/"
.Filter = "Word文档(*.doc)|*.doc|文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
.FilterIndex = 1
.DefaultExt = "*.Txt"
.Action = 2 '或使用CommondDialog1.ShowSave
Open .FileName For Output As #2
End With
For i = 1 To Len(Text1)
Print #2, Mid$(Text1, i, 1);
Next i
Close #2
End Sub

[此贴子已经被作者于2017-7-17 18:15编辑过]

搜索更多相关主题的帖子: 对话框 打印 Sub Text1 End 
2017-07-17 16:32
小梁同志
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2017-7-17
得分:0 
求大神出手帮助,小弟万分感谢

[此贴子已经被作者于2017-7-17 18:14编辑过]

2017-07-17 16:34



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-479442-1-1.html




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

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