UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO impresion de etiquetas el 12/01/14, 08:56 pm

rubito1


deseo que seleccione las etiquetas mostradas,recorriendo todas las filas,y que imprmima n veces la cantidad de etiquetas (columna "g=cantidad"
Archivos
pruebaetiquetas.zip
No tienes los permisos para descargar los archivos.
(20 KB)

2RESUELTO Re: impresion de etiquetas el 13/01/14, 10:16 am

SAKKAR


Rubito1, cómo estás?

Te adjunto una solución a lo que vos estás necesitando. Obviamente, seguro que vas a tener que adaptarlo a tus necesidades específicas, pero bueno, asi podrás remojarte bien en el código y darle las vueltas que necesites.

Recorda que si te sirvió, un GRACIAS y cerrar el tema como RESUELTO, nos pone muyyyy felices...

Salutte
Archivos
PRUEBA ETIQUETAS.xlsm
No tienes los permisos para descargar los archivos.
(36 KB)

3RESUELTO Re: impresion de etiquetas el 13/01/14, 01:50 pm

rubito1


gracias;lo estoy probando;no se podra hacer que imprima todos seguidos?por otro lado;el formato que usoi siempre de etiquetas es de 2 columnas(ya lo corregi en tu codigo y creo que lo hice bien)
afectara si la hoja tiene muchas filas?(500 o 1000)
imprimo distintos clientes pero uso las mismas hojas con etiquetas autoadhesivas
Código:
For I = 0 To CANT - 1 Step 1
            If I = 2 Or I = 4 Or I = 6 Or I = 8 Or I = 10 Or I = 12 Or I = 14 Then
                ActiveCell.Offset(1, -2).Select

esta bien como lo hice?

4RESUELTO Re: impresion de etiquetas el 13/01/14, 02:08 pm

SAKKAR


Vamos por partes...

Se puede hacer que imprima todo junto? Estimo que te refería a que imprima de una TODA la tirada de etiquetas, sea para uno o para mil registros.
Si, se puede, solo hay que modificar el ciclo y colocar la instruccion de imprimir luego del mismo, de esta manera imprime luego de haber puesto en la hoja plantilla todas las etiquetas.

Afecta si son 500 o 100 lineas?
Para nada, solo debes de mover por debajo de la ultima, o bien en la lineas que vos consideres como máxima la leyenda EOL, esto marca el final del recorrido.

La modificacion está bien hecha?
Realmente no, ya que yo lo hice para que genere un salto y regreso para que ocupe 5 etiquetas de largo. De la forma que lo modificaste, va realizarlo la primera a la tercera y las demas cada dos, recorda que es desde 0 y no desde 1.

Fijate si lo podés hacer... sería importante para que te amigues y comprendas el código.

Cualquier cosa me avisas x aca.

Salutte

5RESUELTO Re: impresion de etiquetas el 13/01/14, 02:31 pm

rubito1


yo trato,pero se ve que el codigo no se quiere amigar conmigo:::(jejej)si vos podes hacerlo te lo agradecere un monton ya que realmente no conozco tanto de codigo pese a que de a poco estoy entrando en el area

6RESUELTO Re: impresion de etiquetas el 13/01/14, 03:29 pm

SAKKAR


Si la hoja de etiquetas auto adhesivas que usas solo tiene dos columnas, hacelo asi como vos lo modificaste...

Con respecto a lo de imprimir todas juntas, fijate que te sale y compartilo... si no sale bien, trabajamos sobre ese código y lo desculamos juntos...

Es la mejor forma de aprender....

Lo hacemos así solo porque vos decís que te gustaría aprender....

7RESUELTO Re: impresion de etiquetas el 13/01/14, 03:30 pm

rubito1


OK,TRATO Y TE AVISO

8RESUELTO Re: impresion de etiquetas el 13/01/14, 09:14 pm

rubito1


DISCULPA SAKKAR,PERO REALMENTE ESTOY ATASCADO Y NO LO PUEDO RESOLVER!!please!!! help me

9RESUELTO Re: impresion de etiquetas el 14/01/14, 11:40 am

SAKKAR


Rubito1, no te preocupes...  todo bien

Ahora te adjunto el archivo modificado con lo siguiente:
1) Imprime TODAS juntas
2) Usa formato de SOLO DOS COLUMNAS en la hoja de etiquetas autoadhesivas
3) Usa como limite de análisis la leyenda EOL, la cual deberás mover según necesites, NO TIENE LIMITE.
4) Está armado para que analice HASTA 20 CORTES, por lo que si necesitas más, deberás de modificarlo, siguiendo la serie dentro del codigo. YO TE DEJE COMENTARIOS PARA QUE SEPAS DONDE HACERLO.

Espero te sirva esta modificación.

Saludos!!
Archivos
PRUEBA ETIQUETAS.xlsm
No tienes los permisos para descargar los archivos.
(37 KB)

10RESUELTO Re: impresion de etiquetas el 14/01/14, 01:27 pm

rubito1


Código:
If SALTO = 2 Or SALTO = 4 Or SALTO = 6 Or SALTO = 8 Or SALTO = 10 Or SALTO = 12 Or SALTO = 14 _
                Or SALTO = 16 Or SALTO = 18 Or SALTO = 20 Or SALTO = 22 Or SALTO = 24 Or SALTO = 26 Or SALTO = 28 Or SALTO = 30 Then 'AGREGA MAS SEGUN NECESITES
                ActiveCell.Offset(1, -2).Select 'SI CAMBIAS LO DE ARRIBA TAMBIEN DEBERAS CAMBIAR ESTE RETROCESO
            End If
no entiendo bien lo de los "cortes" a que te referis;yo le agregue mas aca segun  indicas,y creo que era eso ,pero sucede que las ultimas etiquetas las imprime pero sin el formato de las anteriores(formato de la "plantilla"

11RESUELTO Re: impresion de etiquetas el 14/01/14, 02:27 pm

SAKKAR


Los cortes aplican como un retroceso de las antiguas maquinas de escribir, tira para atras el carro.
o sea si vas a utilizar más de 30 etiquetas (por ejemplo) hace saltos hasta 30, si vas a usar 1000 etiquietas, hacelos hasta 1000, igualmente una vez que los hagas los dejas y si sobran no los tiene en cuenta.

Con respecto al formato, lo resolves pegando el mismo formato (celdas amarillas) en la cantidad que vos quieras.

Saludos

12RESUELTO Re: impresion de etiquetas el 14/01/14, 06:17 pm

rubito1


ok;eso esta;me pusistes que si cambio eso,tambien debo cambiar el retroceso(??)
Código:
For I = 0 To CANT - 1 Step 1
            If SALTO = 2 Or SALTO = 4 Or SALTO = 6 Or SALTO = 8 Or SALTO = 10 Or SALTO = 12 Or SALTO = 14 _
                Or SALTO = 16 Or SALTO = 18 Or SALTO = 20 Or SALTO = 22 Or SALTO = 24 Or SALTO = 26 Or SALTO = 28 Or SALTO = 30 _
                Or SALTO = 32 Or SALTO = 34 Or SALTO = 36 Or SALTO = 38 Or SALTO = 40 Or SALTO = 42 Or SALTO = 44 Or SALTO = 46 _
                Or SALTO = 48 Or SALTO = 50 Or SALTO = 52 Or SALTO = 54 Or SALTO = 56 Or SALTO = 58 Or SALTO = 60 Or SALTO = 62 _
                Or SALTO = 64 Or SALTO = 66 Or SALTO = 68 Then 'AGREGA MAS SEGUN NECESITES
                ActiveCell.Offset(1, -2).Select 'SI CAMBIAS LO DE ARRIBA TAMBIEN DEBERAS CAMBIAR ESTE RETROCESO
            End If
que debo poner, offset(4,  -2)???

13RESUELTO Re: impresion de etiquetas el 14/01/14, 06:36 pm

rubito1


RECIEN PROBE y me parece que anda barrrbaro!una consulta;a)imprime de atras para adelante(ultimas etiquetas 1ero)como yo "amplie" las plantillas(puse para que imprima hasta 2 hojas para probar)al imprimir menos de 14 etiquetas,que entran en una sola hoja,la 1er hoja(que son los ultimos datos)la "imprime en blanco"(solo hace la cuadricula)no se puede poner que si no hay datos no "imprima" nada?se entiende?(ya que si extiendo la plantilla a 5 hojas y debo imprimir etiquetas en una sola,me gastara 4 hojas en blanco y luego saldra la de los datos

14RESUELTO Re: impresion de etiquetas el 15/01/14, 09:17 am

SAKKAR


Si que es posible... fijate si le podés dar una vuelta a ver que resolves.

Si no podés lo vemos...  

Saludos

15RESUELTO Re: impresion de etiquetas el 15/01/14, 11:10 am

SAKKAR


Rubito1,

Este sería un nuevo tema. Por lo que te pido, abras uno nuevo y realices la consulta correspondiente.

Por lo pronto, borraré tu última consulta y veremos de cerrar ya este hilo, debido a que la consulta troncal ya fué resuelta y solo quedan detalles extra.

Espero sepas entender.

Saludos

16RESUELTO Re: impresion de etiquetas el 15/01/14, 02:19 pm

rubito1


Verdad!!!perdon,ya abro un nuevo tema x eso;con respecto a lo otro tratare de resolverlo,gracias(aunque si fuera posible en un esfuerzo descomunal y comunitario de abuelo a reciente padre...jejejej)si podes resolverlo vos te lo agradecere(por las dudas de que no lo pueda resolver yo)sino muchas gracias = x toda tu ayuda

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.