哪里有免费正式版的VB打印控件?

下例显示“打印”对话框。

Private Sub Command1_Click()
Dim BeginPage, EndPage, NumCopies, i
' 设置“取消”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 显示“打印”对话框
CommonDialog1.ShowPrinter
' 从该对话框取得选定的值
BeginPage = CommonDialog1.FromPage '开始页
EndPage = CommonDialog1.ToPage '结束页
NumCopies = CommonDialog1.Copies '打印份数
For i = 1 To NumCopies
' 此处放置将数据发送到打印机的代码

Next i
Exit Sub
ErrHandler：
' 用户按了“取消”按钮
Exit Sub
End Sub