SoloCodigo

que pasa con este foro, es algo tan sencillo y no se respondio
dilate mas en poner la pregunta que en resolverlo por mi cuenta
solo era de abrir el  administrador corporativo,administrador,seleccionar la bd
luego la tabla, click derecho y en le mensaje emergente seleccionar diseño
y luego cambiar los tipos de datos

a denegado el acceso al mismo

Public Sub Main()

If App.PrevInstance = False Then
Set Coneccion = New ADODB.Connection
With Coneccion
.Provider = "SQLOLEDB.1" 'Proveedor
.ConnectionString = "User ID=sa;Initial Catalog=dbLabNHME;Data Source=LocalServer" 'origen de datos
.Open
End With
Login.Show vbModal

ElseIf App.PrevInstance = True Then
MsgBox "El programa ya esta en ejecución", vbInformation
end if

el mensaje emergen te Es:
ConectionOpen....No Existe el Servidor Sql Server o se ha denegado el acceso al Servidor

Creé una coneccion SQL desde el odbc
me dijeron que le hacia falta ingrezar el dominio y esto me recomendaron
como lo adaptaria lo sig al codigo que uso

"Esta es la cadena
server=DAITWS02;database=dbSAHME;Trusted_Connection=False;User ID=;Password=[PW];
= usuario
[PW] = contraseña
Utilice esta opción en maquinas dentro de dominio si no se logra conectar,
Sobre todo si la instalación se hizo con un usuario del dominio.
Trusted_Connection=False "

help me

Quiero por ejemplo que al cerrar el MDI en el evento unload me cierre
todos los child que eventulmente podrian no haberse cerrado de forma
incorrecta por un estilo  modeless o alguno que se dejo sin cerrar y
que deja en el administrador de tarea de window abierto el ejecutable aunque
se cierre aparentemente, ESTA ES MI IDEA
 
    Dim frm as form
    for each frm in MDI
    If TypeOf  frm is MDI then
         unload frm
    End if
   NEXT
 el error q me manda es "que se requiere un objeto"  que es frm
 ****
 Parecido a este
 ****
Sub Limpiar(ByVal frm As Form)
     For Each c In frm
     If TypeOf c Is TextBox Or TypeOf c Is ComboBox Then
           c.Text = ""
    End If
    If TypeOf c Is OptionButton Or TypeOf c Is CheckBox Then
           c.Value = False
        End If
    Next
End Sub

es q utilizo esto en el evento MDI UNLOAD

 Unload Me
 Unload BuscarExamen
 Unload BuscarMedicos
 Unload formResultadosBaar
 Unload formResultadosCultivoyAntibi
 Unload ListaExamenes
 Unload ListaPatologia
 Unload MedicosActivos
 Unload Login
 Unload MedicosActivos
 etc, etc que resulve pero no es lo optimo
 denme otra idea

Ok, te entiendo no habias ajustado los margenes como en  ms word, eso pasa
lo unico que te aconsejo es que en ves de terminar la rutina con
CrystalReport2.PrintReport
usa

CrystalReport1.WindowState = crptMaximized
CrystalReport1.Action = 1
la ultima linea por si no sabras te despliega el reporte
y te da la opcion para imprimirlo o no, es bueno usarlo en general
por q a veces solo necesitas visulizar informacion y si lo queres imprimir
solo das click al icono de impresion que el rpt te lo da por defecto

bye, esta bonita tu foto lo q no entendi que genero sos,pero en fin
suerte

puede que sea la impesora que te de problema, habria que ver que tipo de letra
utilzas en los campos de impresion que no te imprime los datos im prime en otra impresora, algo asi me paso y tuve q acomodar los campos de otra forma para
darle mas ancho y mayor longitud en los reportes

ok tenes razon esta es la primera ves que utilicé este foro y no me previne
de que era VBA,  pero gracias de todos modos ya encontré el problema y se de be
a  que la tabla que cargo en datagrid es muy grande la corte a la mitad y ya no daba el problema y lo que pasaba era que dilataba el evento unload,
lo voy a cargar desde las propiedades

saludos