Imprimir usando la hoja completa.

hola, Jose !

... Todas las semanas me pasan una hoja Excel que son 2 columnas, pero que se alargan hasta ocupar 300 hojas en impresion.
... la hoja solo esta escrita a menos de un tercio de su superficie a lo ancho.
Como podria yo hacer que al imprimir me imprimiese los datos usando toda la hoja?.
De tal forma que la impresión solo ocuparia 100 hojas.

Tambien tengo otra pequeña consulta de access. Donde podria realizarla?

1) para la consulta en access, intenta a conectar en el grupo de access: microsoft.public.es.access

2) para la consulta de excel... podria haber alternativas 'segun necesidades' +/- como sigue:

- 'mover' tus datos para que 'vayan llenando' el ancho de la hoja -?-
- 'copiar' tus datos en hoja aparte con un arreglo que 'llene' el ancho de la hoja -?-
- imprimir 'por tercios' la hoja original ajustando para cada tercio siguiente el margen izquierdo de la impresion -?-
- 'n' opciones/alternativs/variantes/combinaciones/... de las anteriores -?-

alguna como 'mejor' que las otras ?... podria depender de consideraciones/preferencias/necesidades/... 'especificas' [como]...
- decidir donde se harian 'saltos de columna' ?
- usar rangos copiados como imagen a otra hoja ?
- usar formulas y funciones [y/o nombres definidos]... o macros ?
- ???

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

Buena noches.

Gracia Hector, algo asi esoy haciendo de momento, pero es un trabajo muy
tedioso para tener que hacerlo todas las semanas. Busco alguana otra
alternativa (Macro, exportación a otro programa, etc.)


Gracias por leerme

José

hola, Jose !

... algo asi esoy haciendo de momento, pero es un trabajo muy tedioso para tener que hacerlo todas las semanas.
Busco alguana otra alternativa (Macro, exportacion a otro programa, etc.)

debo comentarte que 'el tema' de imprimir y 'optimizar' el uso de papel en la impresora...
'ajustando' [de una u otra manera] los rangos en la misma o en otra/s hoja/s...
pudiera ser tan sencillo [o menos sencillo] dependiento de factores que no se han comentado [p.e.]
- resolucion de impresora, ancho y alto de filas y columnas, titulos superiores/izquierdos [y algunos otros mas] :))

existen [bastantes] 'alternativas' para 'minimizar' el 'desperdicio' de papel al seleccionar este 'tipo' de impresiones
puedes analizar algunas en: http://www.mvps.org/dmcritchie/excel/snakecol.htm

en caso de que no fueran aplicables a tu caso 'concreto' [que sigue siendo un tanto... 'desconocido' en los factores mencionados]
sera necesario que aportes algunos otros detalles [o que subas un ejemplo en algun sitio de descargas y lo podamos 'apreciar'] :))

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

Buenos dias.


Amiho Hectro, no me importan los margenes para nada, de hecho yo los pongo
todos a cero y luego procedo a cortar y copiar de forma que al final me
quedan 6 columnas por página que es lo ideal. El problema es que al ser
tanta información y todas las semanas es un trabajo muy tedioso.


Ej. Yo recibo esto.

3456 xxxxxxxxx
3457 xxxxxxxxx
3458 xxxxxxxxx
3459 xxxxxxxxx
3460 xxxxxxxxx
3461 xxxxxxxxx
3462 xxxxxxxxx
3463 xxxxxxxxxxx
3464 xxxxxxxxx
3465 xxxxxxxxxx
3466 xxxxxxxxxxxxx
3467 xxxxxxxxxxxxx
3468 xxxxxxxxxxxx
3469 xxxxxxxxxxxx
3470 xxxxxxxxxxxxx
3471 xxxxxxxxxxxxx
3472 xxxxxxxxxxxxx
3473 xxxxxxxxxxxxxx
3474 xxxxxxxxxxxxx


y yo lo paso a eso

3456 xxxxxx 3463 xxxxxxx 3469 xxxxxxxx
3457 Xxxxxxxxx 3464 xxxxxxxx 3470 xxxxxxxx
3458 Xxxxxxxxx 3465 xxxxxxxx 3471 xxxxxxxx
3459 Xxxxxxxxx 3466 xxxxxxxx 3472 xxxxxxxx
3460 Xxxxxxxxx 3467 xxxxxxxxx 3473 xxxxxxxx
3461 Xxxxxxxxx 3468 xxxxxxxxx 3474 xxxxxxxx
3462 Xxxxxxxxx


Claro esta que los numero no son seguidos "son referencias" y las X son
"descripciones"

Gracia por leerme

José

Hola José. Tus "x", no aportan longitud del texto para ver p.e. si en lugar
de 6 columnas en la hoja caben 8, pero prueba este código y nos comentas:

Sub TresColumnas()
Dim filas As Double
Dim fila As Double
Dim fila2 As Integer
Dim columna As Integer
Application.ScreenUpdating = False
Sheets(1).Range("H1") = Now
filas = Sheets(1).Cells(65536, 1).End(xlUp).Row
columna = 1
Sheets(2).Select
For fila = 1 To filas
fila2 = Sheets(2).Cells(65536, columna).End(xlUp).Row + 1
Sheets(2).Cells(fila2, columna).Value = Sheets(1).Cells(fila, 1).Value
Sheets(2).Cells(fila2, columna + 1).Value = Sheets(1).Cells(fila,
2).Value
If fila / 62 = Int(fila / 62) Then
columna = columna + 2
If columna > 5 Then
columna = 1
Sheets(2).Cells(fila2 + 1, 1).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
End If
Next fila
Sheets(1).Range("H2") = Now
Application.ScreenUpdating = True
End Sub

NOTA: La macro traspasa la información, desde la Hoja1 hacia la Hoja2.

Saludos desde Tenerife Islas Canarias).
*******************************************

"JOSE" escribió en el mensaje
news:

Buenos dias.


Amiho Hectro, no me importan los margenes para nada, de hecho yo los pongo
todos a cero y luego procedo a cortar y copiar de forma que al final me
quedan 6 columnas por página que es lo ideal. El problema es que al ser
tanta información y todas las semanas es un trabajo muy tedioso.


Ej. Yo recibo esto.

3456 xxxxxxxxx
3457 xxxxxxxxx
3458 xxxxxxxxx
3459 xxxxxxxxx
3460 xxxxxxxxx
3461 xxxxxxxxx
3462 xxxxxxxxx
3463 xxxxxxxxxxx
3464 xxxxxxxxx
3465 xxxxxxxxxx
3466 xxxxxxxxxxxxx
3467 xxxxxxxxxxxxx
3468 xxxxxxxxxxxx
3469 xxxxxxxxxxxx
3470 xxxxxxxxxxxxx
3471 xxxxxxxxxxxxx
3472 xxxxxxxxxxxxx
3473 xxxxxxxxxxxxxx
3474 xxxxxxxxxxxxx


y yo lo paso a eso

3456 xxxxxx 3463 xxxxxxx 3469 xxxxxxxx
3457 Xxxxxxxxx 3464 xxxxxxxx 3470 xxxxxxxx
3458 Xxxxxxxxx 3465 xxxxxxxx 3471 xxxxxxxx
3459 Xxxxxxxxx 3466 xxxxxxxx 3472 xxxxxxxx
3460 Xxxxxxxxx 3467 xxxxxxxxx 3473 xxxxxxxx
3461 Xxxxxxxxx 3468 xxxxxxxxx 3474 xxxxxxxx
3462 Xxxxxxxxx


Claro esta que los numero no son seguidos "son referencias" y las X son
"descripciones"

Gracia por leerme

José