Hola alguien es urgente ocupe este código para imprimir

el problema que tengo es que al imprimir no se ajusta el texto a la columna y me sale cortado lo que contiene

Worksheets.Add
For i = 0 To ListBox1.ListCount - 1
Range("B" & Range("B" & Rows.Count).End(xlUp).Row + 1) = ListBox1.List(i, 0)
Next
‘Con la siguiente instrucción imprimes
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

1 respuesta

Respuesta
1

Después del next y antes de imprimir, agrega esta línea

Columns("B:B"). EntireColumn. AutoFit

Prueba y me comentas

Saludos. Dam
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Contar en un rango según dos criterios

Necesito una función para contar dos criterios de un rango de datos. Tengo un cuadro que tiene dos columna "ESTADOS" y "DIAS" necesito solicitarle a la función que me cuente cuantos estados "NOTIFICADO" hay menores e igual a 5 días y cuantos estados...
2 respuestas

Contar entre dos rangos de fechas

Necesito una función entre dos rangos de fechas, ejemplo en el rango A5:A100 tengo fechas, con movimientos de clientes, en las celdas B5 y C5 cargo las fechas (desde, hasta) para que me de por resultado cuantos movimientos se hicieron en ese rango de...
1 respuesta

Como incrustar imagen en celda Excel con datos de Access 2013

Quisiera saber si es posible exportar datos de Access a Excel e incrustar automáticamente la imagen a la que hace referencia una url dentro de la tabla de Access. Tengo una tabla que contiene la dirección de una imagen dentro de carpetas de mi pc, y...
2 respuestas

Hacer un ranking de un rango de números

Sobre un rango de celdas en las cuales solo hay números, necesito una función que de por resultado los 10 números más repetidos en dicho rango. Que numero esta en el primer puesto, que numero en el segundo puesto, etc hasta el puesto 10. El rango de...
1 respuesta

Numero con más repeticiones dentro de un rango

En la columna "Numero" tengo los números del 1 al 20 y en la columna "Repetido" tengo las veces que se repitió cada numero, Ejemplo el numero 10 se repitió 6 veces, el numero 11, se repitió 9 veces etc. Necesito una función que me de por resultado el...
1 respuesta

Buscar y copiar filas con una fecha determinada en una celda

Necesito saber como hacer la fórmula para que me localice la fecha que tengo en una determinada celda y no en este caso que así solo me busca la fecha del día de hoy 'Encontrar la última fila con datos en la hoja de origen lastRow =...
2 respuestas

Suma entre rango de fechas para un cliente

Nola, necesito hacer una suma entre un rango de fechas para un cliente definido. Elijo un rango de fechas y luego elijo un cliente de la celda de clientes y me da por resultado la suma de lo facturado de ese cliente dentro del rango de fechas...
3 respuestas

Necesito separar los dos nombres y los dos apellidos en una planilla excel

Tengo una planilla con tanto los nombres y apellido una solo a columna y necesito separar los dos nombres y los dos apellidos en columnas independiente
1 respuesta

Tengo una base de datos escrita en columnas

Necesito que quede escrita de la siguiente forma ¿Cómo lo puedo hacer?
3 respuestas

Macro para cortar un texto en 25 caracteres

Me ayudan a generar una macro que corte un texto que está en la celda A2 en 2 textos, el primer texto que lo ponga en la celda B2, no deberá cortar ninguna palabra deberá cortar el texto en máximo 25 caracteres y cortarlo en donde haya un blanco, el...
4 respuestas