Zoom en vista preliminar
Hay alguna manera de que, al mostrar un informe en vista preliminar, ¿lo haga por defecto mostrando la página completa y no al 100%?
1 Respuesta
Respuesta de oscarlmv
1
Lo único que tienes que hacer es, en el evento que produce que se abra el formulario (supongo que sera un botón o similar) poner el siguiente código:
'Abrimos el informe
DoCmd. OpenReport "NombreInforme", acViewPreview
'Si es que quieres que ademas de ajustarse a la ventana se abra a pantalla completa. Si solo quieres que se ajuste a la ventana el Zoom, omite esta linea
DoCmd. Maximize
'Modificamos el Zoom como querías
DoCmd. RunCommand acCmdFitToWindow
Espero q con esto soluciones tus problemas. Si tienes alguna cosnulta no dudes en ponerte en contacto conmigo.
Un saludo, cuidate y suerte en tu desarrollo!
Óscar L.M.V.
'Abrimos el informe
DoCmd. OpenReport "NombreInforme", acViewPreview
'Si es que quieres que ademas de ajustarse a la ventana se abra a pantalla completa. Si solo quieres que se ajuste a la ventana el Zoom, omite esta linea
DoCmd. Maximize
'Modificamos el Zoom como querías
DoCmd. RunCommand acCmdFitToWindow
Espero q con esto soluciones tus problemas. Si tienes alguna cosnulta no dudes en ponerte en contacto conmigo.
Un saludo, cuidate y suerte en tu desarrollo!
Óscar L.M.V.
Yo también quiero darle un Zoom a la pagina pero necesito vista preliminar de dos hojas y no sé cómo ponerlomi código es este:Private Sub Ver_OtraFactura_Click()Dim stDocName As StringDim stWhere As StringDoCmd.RunCommand acCmdSaveRecordstDocName = ""stWhere = ""stDocName = "FacturaExtraor"stWhere = "Nº = " & Me![Nº]If Not IsNull(stDocName) And stDocName <> "" ThenDoCmd.OpenReport "OtraFactura", acPreview, "", "[FacturaExtraor]![Nº]='" & Me.Nº & "'"End IfExit_Ver_OtraFactura_Click:Exit SubErr_Ver_OtraFactura_Click:MsgBox Err.DescriptionResume Exit_Ver_OtraFactura_ClickEnd Sub - Tron Pc