Informes en vista preliminar en dos páginas
Tengo un botón que me abre un informe en vista preliminar con el siguiente código
Private Sub ImpCuoPen_Click()
On Error GoTo Err_ImpCuoPen_Click
Dim stDocName As String
stDocName = "CuoPen"
(1)DoCmd.OpenReport stDocName, acPreview
(2) DoCmd.RunCommand acCmdPreviewTwoPages
Exit_ImpCuoPen_Click:
Exit Sub
MsgBox Err.Description
Resume Exit_ImpCuoPen_Click
Err_ImpCuoPen_Click:
End Sub
Si quito la línea que está en negrita no se muestra la barra de opciones de vista previa de impresión.
Tengo que aclarar que cuando la extensión del archivo es .accdb, todo funciona bien, tanto si están activas las líneas (1) y (2) como si están activas por separado.
Cuando cambio la extensión a .accdr la barra de opciones de impresión sólo se muestra si está activa también la línea (2).
¿Alguien me podría decir cuál es la causa?. Es simple curiosidad.