VB大虾帮帮我！！

来源：百度知道 编辑：UC知道 时间：2024/05/10 19:22:24
我有一个管理软件是用VB做的各个功能都好着里就是按打印后没动静``~~
哪位大虾能帮我写一下代码！！！！

试试下面的几段试试
（1）：
Private Sub Command5_Click()
On error Resume Next
Dim i As Integer
CommonDialog1.ShowPrinter
For i = 1 To CommonDialog1.Copies
Printer.Print Text1.text
Next i
Printer.EndDoc
End Sub

（2）
Private Sub Form_Click()
Dim Msg
On Error GoTo ErrorHandler
Print Form '打印窗体
Exit Sub
ErrorHandler:
Msg = "The form can't be printed."
MsgBox Msg
Resume Next
End Sub

http://zhidao.baidu.com/question/3849801.html?si=5

你的问题没写明白呀.