F12 = Imprimir

hola, Cesar !

... tengo una tabla Ejm (Col A = nombre, Col B Direccion; Col C = telefono)
deseo que... se imprima los 3 datos que contiene la fila, pero... en una sola columna; asi:
"Nombre:" Juan perez
"Direccion": Av Costanera
"Tel:" 3451123
mejor aun si incluye salto de pagina, mil gracias.

-> en tanto NO 'tengas' tus datos en un arreglo [vertical] como quieres que se impriman...
[quizas en alguna otra hoja o rango]...
-> no 'veo como' pudieras 'obligar' al excel a que los 'invierta' [solo] al momento de imprimir :-(

comentas [si hubiera] algun detalle adicional... 'en el tintero' ?
saludos,
hector.

Hola hector:
Quiza si se copia a una hoja auxiliar dentro del mismo libro (el libro tiene
3 hojas) mediante macro con transponer o algo asi?, pero desearia que esto
sea transparente para el operador.
Gracias

César

"Héctor Miguel" escribió en el mensaje
news:

hola, Cesar !

... tengo una tabla Ejm (Col A = nombre, Col B Direccion; Col C =
telefono)
deseo que... se imprima los 3 datos que contiene la fila, pero... en una
sola columna; asi:
"Nombre:" Juan perez
"Direccion": Av Costanera
"Tel:" 3451123
mejor aun si incluye salto de pagina, mil gracias.

-> en tanto NO 'tengas' tus datos en un arreglo [vertical] como quieres
que se impriman...
[quizas en alguna otra hoja o rango]...
-> no 'veo como' pudieras 'obligar' al excel a que los 'invierta'
[solo] al momento de imprimir :-(

comentas [si hubiera] algun detalle adicional... 'en el tintero' ?
saludos,
hector.

hola, Cesar !

Quiza si se copia a una hoja auxiliar dentro del mismo libro (el libro tiene 3 hojas)
mediante macro con transponer o algo asi?
pero desearia que esto sea transparente para el operador.

si suponemos que los datos [en horizontal] estan en la hoja1 y la fila1 contiene los titulos...
y los quieres imprimir [en vertical] en la hoja2...
y que los titulos estan en el rango 'A2:A4' y los datos se pasan a la columna 'B'...

1) obten de hoja1 los datos en hoja2 columna 'B' con alguna formula +/- como la siguiente:
[B2] =indice(hoja1!a:a,a1)
[B3] =indice(hoja1!b:b,a1)
[B4] =indice(hoja1!c:c,a1)

2) usa una macro +/- como la siguiente [en un modulo de codigo 'normal']
Sub Imprime_etiquetas()
Dim Sig As Integer
For Sig = 2 To Worksheets("hoja1").Range("a65536").End(xlUp).Row
With Worksheets("hoja2")
.Range("a1") = Sig
.PrintPreview
End With
Next
End Sub

3) haz una prueba con POCOS datos en la hoja1... y ya que estes 'convencido'...
cambias la instruccion -> .PrintPreview por: -> .PrintOut

existen suficientes alternativas mas... solo estoy NO 'adivinando' lo que pudiera haber 'en la realidad' :D

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Porfa si tienes otras alternativas hazmelas llegar, a que no funciono la
parte de indices.
Gracias
César.


"Héctor Miguel" escribió en el mensaje
news:%

hola, Cesar !

Quiza si se copia a una hoja auxiliar dentro del mismo libro (el libro
tiene 3 hojas)
mediante macro con transponer o algo asi?
pero desearia que esto sea transparente para el operador.

si suponemos que los datos [en horizontal] estan en la hoja1 y la fila1
contiene los titulos...
y los quieres imprimir [en vertical] en la hoja2...
y que los titulos estan en el rango 'A2:A4' y los datos se pasan a la
columna 'B'...

1) obten de hoja1 los datos en hoja2 columna 'B' con alguna formula +/-
como la siguiente:
[B2] =indice(hoja1!a:a,a1)
[B3] =indice(hoja1!b:b,a1)
[B4] =indice(hoja1!c:c,a1)

2) usa una macro +/- como la siguiente [en un modulo de codigo 'normal']
Sub Imprime_etiquetas()
Dim Sig As Integer
For Sig = 2 To Worksheets("hoja1").Range("a65536").End(xlUp).Row
With Worksheets("hoja2")
.Range("a1") = Sig
.PrintPreview
End With
Next
End Sub

3) haz una prueba con POCOS datos en la hoja1... y ya que estes
'convencido'...
cambias la instruccion -> .PrintPreview por: -> .PrintOut

existen suficientes alternativas mas... solo estoy NO 'adivinando' lo que
pudiera haber 'en la realidad' :D

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.