Como imprimir uno o varios datos de listbox
Para Dante Amor
Buenas..
Siguiendo con el tema lo que me gustaría hacer es que en un checkbox del formulario al pichar marque todos los datos del listbox y en el textbox ingresar la cantidad de copias y luego en el boton imprimir pinchar y que imprima todo. Y si elijo datos en el listbox pueden ser variables puede que elija el primero el quinto el dato 10 etc haga lo mismo luego ingresar la cantidad de copias y luego pinchar el botón imprimir...
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Dim h1, h2
'
Private Sub CommandButton1_Click()
'Por.Dante Amor
If CheckBox1 = False And ListBox1.Selected(ListBox1.ListIndex) = False Then
MsgBox "Selecciona Todo o algunos registros"
Exit Sub
End If
copias = Val(TextBox1)
If copias = "" Or copias < 1 Then
MsgBox "Ingresa el número de copias"
Exit Sub
End If
'
If CheckBox1 Then
'Imprime todo
For i = 3 To h2.Range("B" & Rows.Count).End(xlUp).Row
h1.Range("B8") = h2.Cells(i, "B")
Call Imprimir_Liq(copias)
Next
Else
'imprime seleccionados
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
h1.Range("B8") = ListBox1.List(i)
Call Imprimir_Liq(copias)
End If
Next
End If
MsgBox "Impresiones terminadas"
End Sub
'
Sub Imprimir_Liq(copias)
h1.PrintOut Copies:=copias
End Sub
'
Private Sub UserForm_Initialize()
Set h1 = Sheets("Remuneraciones")
Set h2 = Sheets("Liquidaciones")
For i = 3 To h2.Range("B" & Rows.Count).End(xlUp).Row
ListBox1.AddItem h2.Cells(i, "B")
Next
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
