Visual Basic - DOS GRANDES PROBLEMAS.. A VER SI ME LOGRAN AYUDAR

Life is soft - evento anual de software empresarial
 
Vista:

DOS GRANDES PROBLEMAS.. A VER SI ME LOGRAN AYUDAR

Publicado por Efren (185 intervenciones) el 27/04/2003 18:37:21
BUEN EL PRIMERO DE ELLOS NO ES TAN DIFICIL SI CONOCEIS UN POQUITO
1.- Como cambiar la orientacion de una hoja del data report.... la quiero horizontal a lo largo porque tengo demasiados campo y los quiero porner asi... como lo hago?? no me da la propiedad ORIENTATION QUE ALGUNOS ME HA DICHO QUE PONGA.. datareport.orientation = .... no me da esa propiedad
2.- ESTE SI ES UN GRAVE PROBLEMA.... TENGO UN REPORTE QUE PARA ABRILO TENGO LO SIGUIENTE:
Private Sub cmdrep_libpres_Click()
DataEnvironment1.rsPrestamosS.Open
DataEnvironment1.rsPrestamosS.Requery
DataReport7.Show
End Sub
Y AL CERRARLO LO SIGUIENTE:
Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)
DataEnvironment1.rsPrestamosS.Close
End Sub
este lo tengo en un form donde tengo 8 botones con diferentes reportes... cuando presione este reporte por inicio antes de presionar otros si lo abre facilmente y me proporciona los dato adecuadamente, pero cuando lo abro despues del primer reporte me dice que el objeto esta abierto.. y ya revise el primer reporte y en ningun momento hago referencia al 7.. no se que sea.. no se porque me dice que esta abierto si no lo abro en ningun momento.. ya me canse de buscarlo... de antemano gracias por tu atencion!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:DOS GRANDES PROBLEMAS.. A VER SI ME LOGRAN AYUD

Publicado por J2ML (464 intervenciones) el 28/04/2003 15:19:10
1.- no se si te sirva de mucho pero probastes con el objeto printer para re-orientar la hoja:
printer.orientation = 1 (Creo que 1 es el valor para horizontal y 0 para Vertical no lo recuerdo..)
2.- Prueba colocando al cerrar:
Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)
DataEnvironment1.rsPrestamosS.Close
Set DataEnvironment1.rsPrestamosS = Nothing 'ó algo por el estilo
End Sub

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar