Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » Configuración de márgenes en MDE

Access - Configuración de márgenes en MDE

Volver
Nuevo Tema
<<>>
 
Vista:

Configuración de márgenes en MDE

Publicado por Carmen (1 intervención) el 29/06/2004 00:57:23
Hola. Tengo el sig. problema. Los márgenes de los reportes se desconfiguran y logré controlar eso configurando los márgenes por código usando "rpt.PrtMip ". Pero cuando convierto el MDB a MDE no reconoce el comando.
Podrían decirme como configurar márgenes por código que sea aceptado en el MDE?
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:Configuración de márgenes en MDE

Publicado por Jesus (861 intervenciones) el 30/06/2004 00:37:37
No tiene por que pasarte eso, mira si tienes el código puesto en el lugar apropiado.
Este es el código que tengo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub SetMarginsToDefault(ByVal strName As String)
    Dim PrtMipString As str_PRTMIP
    Dim PM As type_PRTMIP
    Dim rpt As Report
      ' Abrir el informe.
    DoCmd.OpenReport strName, acDesign
    Set rpt = Reports(strName)
    PrtMipString.strRGB = rpt.PrtMip
    LSet PM = PrtMipString
      ' Set margins.
    PM.xLeftMargin = 1 * 1440
    PM.yTopMargin = 1 * 1440
    PM.xRightMargin = 1 * 1440
    PM.yBotMargin = 1 * 1440
      ' Actualiza property.
    LSet PrtMipString = PM
    rpt.PrtMip = PrtMipString.strRGB
     Set rpt = Nothing
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