Imprimir por impresora especifica
Publicado por 2pl (461 intervenciones) el 07/06/2010 19:56:21
A veces tenemos más de una impresora instalada y queremos imprimir no por la que está como predeterminada, sino por otra, es decir por la que le especifiquempos a access.Para esto solo tenemos que tener una tabla llamada "Impresoras" con dos campos "impresora" (caracter) y "asignar" (si/no), en el campo "impresora" metemos todos los nombres de las impresoras que tengamos instaladas y marcamos el campo "asignar" a la que queramos tener como especifica.
En el evento "Al abrir" del formulario principal o donde se quiera, ponemos esto:
' Establecer la impresora especifica que está asignada en la tabla "Impresoras"
Dim ImprActiva As String
Dim ImprN As Printer
ImprActiva = Nz(DLookup("impresora", "Impresoras", "asignar"), "")
If ImprActiva = "" Then
MsgBox "No tiene impresora asignada para los informes"
Exit Sub
Else
For Each ImprN In Application.Printers
If ImprN.DeviceName = ImprActiva Then
Set Application.Printer = ImprN
End If
Next
End If
despues de esto.... el imforme que queramos y en el modo que queramos.
si se opta por vista previa, es conveniente poner en el menu superior la impresora, de esta forma no tendriamos que ir a archivo, imprimir etc..., solo dando click imprimiria el informe.
Saludos a todos.
En el evento "Al abrir" del formulario principal o donde se quiera, ponemos esto:
' Establecer la impresora especifica que está asignada en la tabla "Impresoras"
Dim ImprActiva As String
Dim ImprN As Printer
ImprActiva = Nz(DLookup("impresora", "Impresoras", "asignar"), "")
If ImprActiva = "" Then
MsgBox "No tiene impresora asignada para los informes"
Exit Sub
Else
For Each ImprN In Application.Printers
If ImprN.DeviceName = ImprActiva Then
Set Application.Printer = ImprN
End If
Next
End If
despues de esto.... el imforme que queramos y en el modo que queramos.
si se opta por vista previa, es conveniente poner en el menu superior la impresora, de esta forma no tendriamos que ir a archivo, imprimir etc..., solo dando click imprimiria el informe.
Saludos a todos.
Valora esta pregunta
0