打印问题~~帮帮忙~~

[jackcaixia]

请教用CommonDialog 控件打印的方法~~请高手们贴出完整代码~~
Private Sub Command1_Click()
Dim BeginPage, EndPage, NumCopies, i
' 设置“取消”为 True
print1.CancelError = True
On Error GoTo ErrHandler
' 显示“打印”对话框
print1.ShowPrinter
' 从该对话框取得选定的值
BeginPage = print1.FromPage
EndPage = print1.ToPage
NumCopies = print1.Copies
For i = 1 To NumCopies
' 此处放置将数据发送到打印机的代码
Next i
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
以上代码只是设置打印格式~~但是我不知道用什么命令将设定好的打印格式发送到打印机上并打印出来~~请高手们指点一下~~谢谢~~
或者介绍一下其它打印控件~~最好简单一点的~~可以用几句代码就可解决的~~小弟悟性不高~~

[熊孩子开学喽]

http://topic.csdn.net/t/20040716/14/3181353.html

[of123]

Printer.Print strData '打印一行
......
Printer.EndDoc '结束