Visual Basic - report

hola:

este es el codigo para mostrar el report y luego desde el icono de impresora mandar e imprimir...

Set rsPacientes = New Recordset
rsPacientes.Open "Select pac.*,os.denomina,p.pronom from " & _
"Pacientes pac inner join osociales os on pac.rnos=os.rnos " & _
"inner join pro p on pac.procod=p.procod " & _
"Where pac.NroHC = " & txtNroHC.Text & "", gdbHC, adOpenDynamic, adLockOptimistic

If Not rsPacientes.EOF Then
Load rptPacientes
Set rptPacientes.Ado.Recordset = rsPacientes

rptPacientes.Ado.ConnectionTimeout = 20
rptPacientes.Ado.LockType = 0 ' ReadOnly
rptPacientes.printreport
Else
MsgBox "No existen datos con ese código de paciente", vbCritical, "Dato inexistente"
End If

la consulta es la siguiente...
como hago para que no me salga el report por pantalla y me lo mande directamente a la impresora sin tener que verlo y darle click al icono???
probe con rptpacientes.print y no me manda nada... algo debo estar haciendo mal, no?
y el report esta como visible=false (para que no salga por pantalla).

alguien me puede ayudar?
gracias
Aldo