report
Publicado por aldo (111 intervenciones) el 18/04/2007 21:48:45
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
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
Valora esta pregunta


0