Informes : Escoger impresora para informe
|
Autor/es:
Juan M Afán de Ribera |
| Pregunta : ¿Qué código necesito para hacer que me aparezca el cuadro de diálogo Imprimir... y así poder escoger impresora, páginas a imprimir y demás opciones de impresión para un informe? |
| Respuesta : Deberías utilizar un código como éste, asócialo a un botón de comando o similar: |
On Error GoTo err_DoCmd
' abrimos el informe en vista previa
DoCmd.OpenReport "Informe1", acViewPreview
' si queremos ocultar el informe podemos usar esta línea
Reports("Informe1").Visible = False
' mostramos el cuadro Imprimir ...
DoCmd.RunCommand acCmdPrint
' cerramos el informe
DoCmd.Close acReport, "Informe1"
On Error GoTo 0
' si este código pertenece a una función
' la siguiente línea sería Exit Function
Exit Sub
err_DoCmd:
'la acción RunCommand se canceló
If Err.Number = 2501 Then
Resume Next
Else ' otro tipo de error
MsgBox "Se ha producido el error " & Err.Number _
& vbCrLf & Err.Description
End If
|
| En el caso de estar trabajando con Access XP o superior, existe una opción extra en el método DoCmd.OpenReport que permite hacer invisible el informe. Si quisieras utilizarla, entonces la línea de código para abrir el informe sería parecida a ésta: |
DoCmd.OpenReport "Informe", acPreview, , , acHidden
|
| y también tendríamos que eliminar la línea con la cual ocultábamos el informe: |
Reports("Informe1").Visible = False
|
Ejemplos: |
Temas relacionados: Opciones de impresión a través de código |
