Autor Tema: Cambiar márgenes  (Leído 1976 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 203
Cambiar márgenes
« en: Noviembre 20, 2012, 01:15:15 pm »
Palabras clave: cambiar, modificar, establecer, definir, márgenes, informe, reporte
Autor: Búho
Extraído de: La web del Búho

Objetivo:
Definir los márgenes de un informe en tiempo de ejecución.


Código: [Seleccionar]
Option Compare Database
Type cadena
    cadRGB As String * 28
End Type

Type margenes
    xMargenIzquierdo As Long
    yMargenSuperior As Long
    xMargenDerecho As Long
    yMargenInferior As Long
   
End Type

Sub diseño(nombreinf As String)       'función para cambiar margenes en informes
    Dim MargenesInf As cadena
    Dim PM As margenes
    Dim rpt As Report
    DoCmd.OpenReport nombreinf, acViewDesign
    Set rpt = Reports(nombreinf)
    MargenesInf.cadRGB = rpt.PrtMip    'guardo los margenes informe
    LSet PM = MargenesInf
    PM.xMargenIzquierdo = 1400    ' Establece los márgenes.
    PM.yMargenInferior = 600
    PM.xMargenDerecho = 1400
    PM.yMargenSuperior = 800
    LSet MargenesInf = PM                ' Actualiza la propiedad.
    rpt.PrtMip = MargenesInf.cadRGB
    DoCmd.Close acReport, nombreinf, acSaveYes  'guardo sin preguntar
End Sub

 Function diseñoimprimir(nombreinf As String)       'función para cambiar margenes en informes
 
    Dim MargenesInf As cadena
    Dim PM As margenes
    Dim rpt As Report
    Set rpt = Reports(nombreinf)
    MargenesInf.cadRGB = rpt.PrtMip    'guardo los margenes informe
    LSet PM = MargenesInf
    PM.xMargenIzquierdo = 1400    ' Establece los márgenes.
    PM.yMargenInferior = 10000
    PM.xMargenDerecho = 1400
    PM.yMargenSuperior = 800
    LSet MargenesInf = PM                ' Actualiza la propiedad.
    rpt.PrtMip = MargenesInf.cadRGB
   ' DoCmd.OpenReport nombreinf, acViewNormal
   
End Function