direccionar reporte a impresora
Con este ejemplo puedes hacer que el usuario elija la impresora, el control lo encontraras en proyecto - componentes- Microsoft Common Dialog.
Ejemplo del control CommonDialog del cuadro de diálogo Imprimir
El siguiente ejemplo presenta el cuadro de diálogo Imprimir.
Private Sub Command1_Click()
Dim BeginPage, EndPage, NumCopies, i
' Establecer CancelError a True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Presentar el cuadro de diálogo Imprimir
CommonDialog1.ShowPrinter
' Obtener los valores seleccionados por el usuario en el cuadro de
' diálogo
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
For i = 1 To NumCopies
' Código para enviar los datos a la impresora
Next i
Exit Sub
ErrHandler:
' El usuario ha hecho clic en el botón Cancelar
Exit Sub
End Sub
Como no dices que herramienta usas para listar, y en el caso de sepas que impresora vas a usar te paso comanos del Crystal 4.6 (el que viene con el visual)
Listado.PrinterDriver = Printers(n).DriverName
Listado.PrinterName = Printers(n).DeviceName
Listado.PrinterPort = Printers(n).Port
Siendo n el list index de las impresoras diponibles.