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.

Añade tu respuesta

Haz clic para o