Printing a recordset with grid lines and column names

[mcpham99]

Hi
How can I print a recordset that includes column names and grid lines?

I try to do this but it doesn't work:

Dim varOutput As String
varOutput = Adodc1.Recordset.GetString(adClipString)
rtfText.Text = varOutput

With dlgCommonDialog
.DialogTitle = "[Print]"
.CancelError = True
.ShowPrinter
If Err <> MSComDlg.cdlCancel Then
rtfText.SelPrint .hDC
End If
End With
Thanks in advance!

Mike P.