以下是引用西山居士在2007-6-10 19:09:02的发言：
可以先抓图到Picture控件中再打印出来，不过效果不是太好。

以下是引用西山居士在2007-6-11 20:03:32的发言：
你试试下面代码，我没测试：
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, theForm, 0, 0)
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
End Sub
Private Sub Command2_Click()
CommonDialog1.ShowPrinter
End Sub