Imprimir

Con este código dentro de un botón:
Dim X As Printer
For Each X In Printers
   If X.Orientation = vbPRORPortrait Then
      ' La define como predeterminada del sistema.
      Set Printer = X
      ' Sale del bucle.
      Exit For
   End If
Next
Printer. Print "La calidad de esta página es 1"
Printer. Print "La calidad de esta página es 2"
Printer. Print "La calidad de esta página es 3"
Printer. Print "La calidad de esta página es 4"
Printer. Print "La calidad de esta página es 5"
Printer. EndDoc
Printer. Print "La calidad de esta página es 6"
Printer. Print "La calidad de esta página es 7"
Printer. Print "La calidad de esta página es 8"
Printer. Print "La calidad de esta página es 9"
Printer. Print "La calidad de esta página es 10"
Printer. EndDoc
Imprimes en dos páginas diferentes las frases 'La calidad de esta página es ...' en diferentes lineas y por la impresora predeterminada. Deberías recorrer el data grid e imprimirlo.
La otra opción es con un DataReport
Y la última opción que conozco es con los componentes:
    Microsoft Common Dialog Control 6.0
    Microsoft Rich Textbox Control 6.0