打印dbgrid內的數据表格

我只想打印dbgrid內的數据表格.
怎么我怎么打印都是整個From窗口.
怎么設置?
Private Sub print_Click(Index As Integer)
On Error GoTo error3
CommonDialog1.DialogTitle = "Please choose print!"
CommonDialog1.ShowPrinter
On Error GoTo error2
If CommonDialog1.CancelError Then
GoTo error2
Else
form1.PrintForm
Printer.EndDoc
End If
GoTo en
error2:
    MsgBox "取消打印!"
    GoTo en
error3:
    MsgBox "Can't find printer"
en: End Sub