Código:
Las funciones son estas:Public Function ImprimirLista(NombreLista As ListBox, TamañoFuente As Integer, NombreFuente As String) Dim imprimir As Integer Dim imprimir2 As String imprimir = 0 If Not imprimir = NombreLista.ListCount + 1 Then imprimir2 = NombreLista.List(imprimir) imprimir = imprimir + 1 Do While Not imprimir = NombreLista.ListCount + 1 imprimir2 = imprimir2 & vbCrLf & NombreLista.List(imprimir) imprimir = imprimir + 1 Loop Printer.Font.Name = NombreFuente Printer.Font.Size = TamañoFuente Printer.Print imprimir2 Printer.EndDoc Else Dim nolist As VbMsgBoxResult nolist = MsgBox("No hay ningun item el la lista especificada" & vbCrLf & vbCrLf & "Quieres imprimir una hoja en blanco?", vbYesNo, "Atencion!!") If nolist = vbYes Then Printer.Print "" Printer.EndDoc Else Exit Function End If End If End Function Public Function MsgBoxLista(NombreLista As ListBox, TipoMsg As VbMsgBoxStyle, TituloMsg As String) Dim msg As Integer Dim msg2 As String msg = 0 If Not msg = NombreLista.ListCount + 1 Then msg2 = NombreLista.List(msg) msg = msg + 1 Do While Not msg = NombreLista.ListCount + 1 msg2 = msg2 & vbCrLf & NombreLista.List(msg) msg = msg + 1 Loop MsgBox msg2, TipoMsg, TituloMsg Else Dim nolista As VbMsgBoxResult nolista = MsgBox("No hay ningun item el la lista especificada" & vbCrLf & vbCrLf & "Quieres mostrar un msg en blanco?", vbYesNo, "Atencion!!") If nolista = vbYes Then MsgBox "", TipoMsg, TituloMsg Else Exit Function End If End If End Function
Código:
Descripcion:ImprimirLista List1, 12, "Comic Sans MS" MsgBoxLista List1, vbOKOnly, "Contenido de la lista"
Código:
Como usarlas:ImprimirLista es para imprimir la lista que selecciones con la fuente que quieras MsgBoxLista es para mostrar en un MsgBox la lista que quieras con el titulo i tipo que quieras
Código:
Se que es una tonteria pero a algunos os servira ImprimirLista (Nombre de la lista), (Tamaño fuente), "(Nombre fuente)" MsgBoxLista (Nombre lista), TipoMsgBox, "(Titulo MsgBox)"