How can I print the contents as shown (wysiwyg) of a DataGrid object.
Is there a way to hook it up with a DataReport object?

---

Clarification of Question by chris2002micrometer-ga on 23 Jul 2002 05:57 PDT

PaintPicture won't suffice. I need ASCII for character printer.

Private Sub cmdPrint_Click()     'For Print

  On Error GoTo err_print
  With CommonDialog1
  .Copies = 1
  .Flags = &H0&  
  .ShowPrinter
  For i = 1 To CommonDialog1.Copies
      Printer.Print Form2.DataGrid1
      Printer.NewPage
  Next i
 Printer.EndDoc
 On Error GoTo 0
 Exit Sub

err_print:

  On Error GoTo 0
  Exit Sub
  End With

End Sub

Dear patangay-ga,
First of all, thank you very much for your comment on my expired
question. I'd like to slip you the 4 bucks somehow. I pasted the code
and (of course) had to adapt a few things to fit my code. It almost
works, but I am only getting a blank page feed. The code is now:

 On Error GoTo err_print
  With CommonDialog1
  .Copies = 1
  .Flags = &H0&
  .ShowPrinter
  For i = 1 To CommonDialog1.Copies
      Printer.Print frmFtab1.grdDataGrid      //.Text
// I tried a few suffixes here like rows, headings, text, etc. but I
am not getting the content to print without a suffix. The table, of
course, has plenty of rows in it.
      Printer.NewPage <--- this works fine
  Next i
 Printer.EndDoc
 On Error GoTo 0
 Exit Sub
 
err_print:
 
  On Error GoTo 0
  Exit Sub
  End With