Private Sub Form_Load()
comando1.Caption = "Imprimir A"
'Quite la parte de la lista
'CuadroLista.Visible = False
'CuadroLista.RowSourceType = "Value List"
Dim Impresora As printer
Dim NomImp As String
'Quite la parte de la lista
'For Each Impresora In Application.Printers
'CuadroLista.AddItem Impresora.DeviceName
'Next
End Sub
Private Sub Comando1_Click()
'coloque el nombre de la impresora directamente (asegurence de buscar el nombre completo de la impresora, si es por red colocar direccion)
Set Application.printer = Application.Printers("\\xxxx\FIHPM425.DR1")
DoCmd.OpenReport "lotes", acViewNormal
End Sub