Cambiar de impresora en tiempo de ejecución
Muy buenas a todos.
Quisiera saber si hay algún modo de imprimir un informe en una impresora distinta a la que se tiene por defecto. He estado mirando en la ayuda pero dice que lo haga a través del panel de contral de windows.
Muchas gracias por adelantado.
Quisiera saber si hay algún modo de imprimir un informe en una impresora distinta a la que se tiene por defecto. He estado mirando en la ayuda pero dice que lo haga a través del panel de contral de windows.
Muchas gracias por adelantado.
1 Respuesta
Respuesta de arrrobar
1
Si lo que necesitas es imprimir SIEMPRE en una impresora determinada puedes seleccionarla en "Archivo/configurar página", en la ventana que te aparece selecciona "Página" y selecciona "usar la impresora especificada" y en el botón impresora le dices cual es la que quieres utilizar. Con esta opción puedes utilizar una impresora laser para los formularios y una matricial para los informes. Suerte
Muchas gracias. Es más o menos lo que quería hacer. No se me había ocurrido esta opción. Sencilla y elegante.
Gracias de nuevo.
Gracias de nuevo.
Con este código seleccionas una impresora que se llama "Genérica"
Dim X As Printer
For Each X In Printers
If Left(X.DeviceName, 8) = "Genérica" Then
Set Printer = X
Exit For
End If
Next
Y después escribes en ella con:
Printer. Print
Así no tienes que utilizar la impresora predeterminada. Suerte
Dim X As Printer
For Each X In Printers
If Left(X.DeviceName, 8) = "Genérica" Then
Set Printer = X
Exit For
End If
Next
Y después escribes en ella con:
Printer. Print
Así no tienes que utilizar la impresora predeterminada. Suerte
