¿Cómo imprimir todos los registros de un listbox?

Maestro DANTE AMOR, reciva un saludo cordial, espero que goce de muy buena salud. Le solicito amablemente su invaluable ayuda para corregir esta macro que no me da los resultados deseados.

Sucede que al momento de imprimir los datos del listbox NO se imprime todo el contenido.

Esta es la macro:

Private Sub Cbt_ImprimeConsulta_Click()

ThisWorkbook.Sheets("SALIDA").Visible = xlSheetVisible
Set h1 = Sheets("SALIDA")
c = ListBox1.ColumnCount
f = ListBox1.ListCount

h1.Cells(2, 2).Value = TextBox1
h1.Cells(3, 2).Value = TextBox4
h1.Cells(4, 2).Value = TextBox3
h1.Cells(5, 2).Value = TextBox2
h1.Cells(6, 2).Value = TextBox16
h1.Cells(2, 6).Value = TextBox6
h1.Cells(3, 6).Value = TextBox13
h1.Cells(4, 6).Value = TextBox5
h1.Cells(5, 6).Value = TextBox15
h1.Cells(6, 6).Value = TextBox14
h1.Cells(2, 10).Value = TextBox7
h1.Cells(3, 10).Value = TextBox8
h1.Cells(5, 10).Value = TextBox10
h1.Cells(6, 10).Value = TextBox12
h1.Cells(7, 10).Value = TextBox11
h1.Cells(4, 10).Value = TextBox9

h1.Range(h1.Cells(10, "a"), h1.Cells(f, c)) = ListBox1.List

Sheets("SALIDA").PrintOut
Sheets("SALIDA").Range("A10:P200").Value = Empty

h1.Cells(2, 2).Value = Empty
h1.Cells(3, 2).Value = Empty
h1.Cells(4, 2).Value = Empty
h1.Cells(5, 2).Value = Empty
h1.Cells(6, 2).Value = Empty
h1.Cells(2, 6).Value = Empty
h1.Cells(3, 6).Value = Empty
h1.Cells(4, 6).Value = Empty
h1.Cells(5, 6).Value = Empty
h1.Cells(6, 6).Value = Empty
h1.Cells(2, 10).Value = Empty
h1.Cells(3, 10).Value = Empty
h1.Cells(4, 10).Value = Empty
h1.Cells(5, 10).Value = Empty
h1.Cells(6, 10).Value = Empty
h1.Cells(7, 10).Value = Empty

ThisWorkbook.Sheets("SALIDA").Visible = xlSheetHidden

End Sub

Trabajo con excel 2016.

1 respuesta

Respuesta
2

H o l a:

Cambia esta línea

H1. Range(h1. Cells(10, "a"), h1.Cells(f, c)) = ListBox1. List

Por esta:

h1.Range(h1.Cells(10, "a"), h1.Cells(f + 10 - 1, c)) = ListBox1.List
' : )
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
' : )

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Cómo habilitar o deshabilitar (25) Grupo de opciones en formulario access

Tengo varias encuestas, cada una contiene de 5 a 30 preguntas y un formulario para llenado con 30 marcos de opciones numerados del 1 al 30. ¿Cómo podría habilitar o deshabilitar estos grupos de opciones de acuerdo al número de preguntas? Ejemplo:...
2 respuestas

Sumar dos filas distintas mayor a 0

Quiero sumar dos filas separadas por ejemplo fila 5 de A4 a J4 y fila 10 de A4 a J4, cada fila tiene resultados positivos o negativos, quiero que me sume en la celda B3 por ejemplo los datos positivos y en la celda C3 los datos negativos. Solo se...
2 respuestas

Filtrar ultima fecha según el criterio de una celda

Tengo una tabla de excel con la siguiente información Columna A el código del equipo. (Código único para cada equipo) Columna B la fecha en que se realizo la ultima revisión. Columna C el nombre del equipo. Columna D El tipo de revisión (preventivo,...
2 respuestas

Ocultar entorno access navegar por formularios e informes

Quiero ocultar el entorno de access pero que todo funcione tanto formulario como informes y que el icono salga en la barra de tareas
1 respuesta

Cómo hacer un filtro múltiple en formulario Excel?

Tengo un formulario en Excel con 5 combos combinado(Tipo, Año, Mes, servicio y Especialidad) y un cuadro de lista. La idea es que al seleccionar un valor en el cuadro combinado Tipo, en el cuadro de lista se me filtren los registros con ese valor,...
2 respuestas

Como poder bloquear tablas de access

Tengo un sistema dividido tablas y los formulario y quiero evitar que puedan entrar a las tablas así evito que modificquen algo
2 respuestas

Suma en un formulario de Excel

Estoy realizando un formulario, el cual al salir del ultimo texbox me sume los anteriores, he usado el siguiente código Private Sub base0_Change() On Error Resume Next Me.totalfactura = Round((Me.base0 + Me.base10 + Me.base21 + Me.base4 + Me.base5) +...
2 respuestas

Me pide contraseña al cerrar la base de datos

Hoy me ha ocurrido una cosa que no me ha pasado nunca, al cerrar la BD me pide contraseña. He mirado todo lo que se me ha ocurrido y no doy con lo que puede ser. Solo me ocurre con una BD en concreto, y que no he hecho nada en particular en la misma....
2 respuestas

Copiar dato de una celda para filtrar una tabla en otra hoja

En la primera hoja tengo una tabla con datos que alimenta otra tabla que se encuentra en una segunda hoja. Quisiera una macro que copie el contenido de la celda que tenga seleccionada, después ir la segunda hoja y filtrar ese dato en la tabla que ahí...
2 respuestas

Pasar de hoja resumen a plantilla de factura

Tengo un Excel, con un hoja resumen de datos, y lo que quisiera hacer, es que me pasara los datos que tengo en cada línea de la hoja resumen de forma de forma automática, a diferentes hojas de excel del mismo libro, en unas celdas concretas,...
3 respuestas