Hola JOAO.
La tarea que solicitas es muy simple.
Aquí te muestro el código que he creado para tal fin.
(no te asustes, la mayoría de texto es información comentada acerca de los datos de la función)
'------------
'CÓDIGO
'------------
'Lenguaje: Visual Basic
'Tipo: función
'Nombre: PrintFileListBox
'Fecha de creación: 14/09/2005 - 22:15
'Creador: Zoto, para lawebdelprogramador.com|VisualBasic
'Descripción: Función muy simple que llama a la impresora para listar todas las entradas
'de un FileListBox dado
'Parámetro:
'File->Objeto FileListBox que contiene el nombre del FileListBox cuyas entradas van a ser imprimidas
'Valores devueltos:
'Si la función se ejecuta satisfactoriamente, devuelve valor nulo (0)
'Si la función tiene un error, devuelve el número del error ocurrido.
'Advertencias:
'Esta función es muy simple y limitada.
'En algunas versiones de S.O. Windows (e.g. XP SP2) puede aparecer una ventana
'de CommonDialog automáticamente pidiendo que se guarde el archivo de imagen del documento (*.mdi).
'Si queremos imprimirlo habrá que guardarlo.
'Aparece también la ventana de previsualización de la impresión de forma automática
'antes de la impresión.
'Ejemplo de uso:
'Llamamos a la función dando como parámetro (único) un FileListBox llamado File1:
' PrintFileListBox File1
'Código de la función:
Public Function PrintFileListBox(ByVal File As FileListBox) As Integer
On Error GoTo ERROR_HANDLE
For l = 0 To File.ListCount - 1
Printer.Print File.List(l) 'Recoge todas las entradas del FileListBox dado en el objeto printer para imprimirlas
Next l
Printer.EndDoc 'Termina el documento de impresión para proceder a la impresión
Exit Function
ERROR_HANDLE: PrintFileListBox = Err.Number 'Si hay error, la función retorna con el número de error
End Function
'------------
'CÓDIGO
'------------
___________________
Espero que este código te sirva de mucho.
Hasta otra,
Zoto
