Access - Seleccionar impresora

Buenas a tod@s

De nuevo tengo un problemilla...

Tengo que imprimir un informe. Dependiendo de que boton pulse en un formulario se ha de imprimir bien por una impresora o por otra, sin que el usuario tenga que seleccionar ninguna por lo que no me sirve el commondialog.
Es decir si pulsa el boton "A" ha de imprimir por la impresora "A" y si pulsa el boton "B" se ha de imprimir por la impresora "B"

¿Como soluciono este problema?

Hola Mostren

Vamos a Hacer una Prueba (Crea un Formulario Nuevo)

1) Primero y antes que todo crea un Cuadro Lista, y Dos Botones de Comando

2) Ahora Bien abre el editor VBA y Pega Esto (Recuerda Cambiar los nombres de los controles, por los reales tuyos)

Private Sub Form_Load()
Comando1.Caption = "Imprimir A"
Comando2.Caption = "Imprimir B"
CuadroLista.Visible = False
CuadroLista.RowSourceType = "Value List"
Dim Impresora As Printer
Dim NomImp As String
For Each Impresora In Application.Printers
CuadroLista.AddItem Impresora.DeviceName
Next
end sub

Private Sub Comando1_Click()
Set Application.Printer = Application.Printers(CuadroLista.Column(0, 1))
DoCmd.OpenReport "EL NOMBRE DEL REPORTE", acViewNormal
End Sub
Private Sub Comando2_Click()
Set Application.Printer = Application.Printers(CuadroLista.Column(0, 0))
DoCmd.OpenReport "EL NOMBRE DEL REPORTE", acViewNormal
End Sub

Otra Opcion seria que el usuario decidiera por donde va a imprimir
DoCmd.RunCommand acCmdPrintSelection

Ya Comentaras
Desde Venezuela
Jefferson

Jefferson eres un maquina!!!

He vuelto...

Aunque funciona perfectamente aparecen todas las impresoras que tengo en mi equipo me gustaria saber si hay alguna manera de especificar solamente la impresora que se encuentre en LPT1

La Verdad eso que me dices no se hacerlo...???

Revisa este enlace
http://accessbuho.mvps.org/ficheros/imprimelpt1USB.txt

hay algo sobre eso

Desde Venezuela
Jefferson

Hola amigos,
He utilizado este código y me funciona perfectamente.
Tengo una aplicación que utiliza una impresora específica siempre y esta impresora solo sirve para este fin.
Por lo que modifique el código para imprimir siempre en esta impresora, espero les sirva.

Codigo


Gracias por la ayuda la información me sirvió bastante.

En condiciones similares (un informe siempre a una impresora especifica) lo adecuado es predeterminársela y en esa misma predeterminación se le aplican los parámetros que nos apetezcan (todo en vista diseño y sin un ápice de código).

Encontré esto que es antiguo en base a que busco una solución similar a esta... El asunto es que tengo algo muy similar a esto que indcas acá... Set Application.Printer = Application.Printers(CuadroLista.Column(0, 0))

Solo que en mi caso lo engo así Set Application.Printer = Application.Printers(x)

Donde x toma el nombre de la impresora desde impresora.DeviceName (Impresora está previamente declarada como Printer)

Pero no logro que se imprima en la impresora seleccionada, siempre imprime en la predeterminada.

Lo que estoy intentando imprimir es un archivo PDF con la siguiente instrucción

strFile="C:\Archivo.pdf"
Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /p /h /s /o " & strFile, vbHide

Sirve esto para imprimir archivos externos o solo para report?
Como dato, yo tengo Access 2013

Exactamente que se desea/necesita, porque el parque de informática se va adaptando al paso del tiempo y las soluciones tienen que adaptarse.

Ya encontré la solución a mi problema

Lo que estaba intentando es imprimir es un archivo externo y que el sistema supiese a qué impresora enviar cada documento. El método que estaba intentando usar sirve para los Report de Access

Entonces el problema estaba acá...

Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /p /h /s /o " & strFile, vbHide


Había que agregar parámetros

Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /p /h /s /o /t" & strFile IMPRESORA, vbHide

Donde IMPRESORA es el nombre de la impresora donde quiero que se imprima, y en mi caso ese nombre lo saco desde Impre.DeviceName (Impre previamente declarada como Printer)

Asunto arreglado. Gracias!!