Impresión con código

Hola Juan,

El macro de abajo deberia hacer lo q planteas pero tendras q establecer el
ancho de pagina sea a mano o por codigo ya q no has especificado ningun
parametro al respecto.

Saludos,
KL

'-Inicio Codigo
Sub Imprimir()
Dim x As Range
Dim rng As Range
Dim pag As Range
Dim nPag As Integer
Dim pFila As Long, uFila As Long

With ActiveSheet
Set rng = .UsedRange
On Error Resume Next
Set x = Application.InputBox _
("Selecciona las columnas ENTERAS a imprimir" _
, , , , , , , 8)
On Error GoTo 0
If Not x Is Nothing Then
Set rng = Intersect(rng, x)
Else
MsgBox "Se ha cancelado la impresion."
Exit Sub
End If

nPag = WorksheetFunction.RoundUp(rng.Rows.Count / 50, 0)

pFila = rng.Row
For i = 1 To nPag
uFila = pFila + 49
Set pag = Intersect(rng, _
Range(Cells(pFila, 1), Cells(uFila, 256)))
.PageSetup.LeftHeader = Cells(pFila, 1)
pag.PrintOut
pFila = pFila + 50
Next i
.PageSetup.LeftHeader = ""
End With
End Sub
'-fin Codigo


"J.LL.R" wrote in message
news:1f4001c4fd97$cc5a5e60$
Hola a todos los amigos del foro.
Como puedo hacer hacer por código que me imprima de la
hoja1.
1- Que en cada hoja a imprimir me ponga como título el
nombre de la fila uno.
2-Que cuando cuente 50 lineas,pasa a la pagina 2 y asi
sucesivamente.
3-Que permite seleccionar las columna que deseo imprimir.
Atte.Juan G. de LLanos