Dunque puoi risolvere il problema in due modi :
O usi il Crystal Report 4.6(incluso nel 3° cd di Visual Studio) o usi l'oggetto Printer.

Probabilmente per fare + in fretta userai il printer....

'////esempio/////
Private Sub cmdStampa_Click()

On Error GoTo MancaStampante
If MsgBox("Confermi la stampa?", vbYesNo + vbQuestion, "Stampa informazioni") = vbNo Then
Exit Sub
End If
Printer.PrintQuality = 300
Printer.TrackDefault = True
Printer.FontSize = 18
Printer.Print " INFORMAZIONI "
Printer.FontSize = 9
Printer.Print ""
Printer.Print ""
Printer.Print " Cognome : " & txtCognome.Text
Printer.Print ""
Printer.Print " Nome : " & txtNome.Text
Printer.Print ""
Printer.Print " Data di nascita : " & txtData.Text
Printer.EndDoc
MsgBox "Stampa eseguita correttamente.", vbOKOnly + vbInformation, "Stampa"
exit sub
MancaStampante:
If Err.Number = 482 Then
MsgBox "Non è stata rilevata alcuna stampante.", vbCritical + vbOKOnly, "Attenzione"
Exit Sub
End If
End Sub
'/////fine esempio


:metallica
è tutto....ciaooooo