Imprimir

Puedes establecer que el área de impresión sea los rangos que necesitas y luego imprimir con algo como:

With ActiveSheet
.PageSetup.PrintArea = .Range("B5:N44").Address & "," & .Range("B45:N83").Address & "," & .Range("B85:N123").Address
.PrintOut
End With

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Enrique" escribió en el mensaje news:O%

Hola a todos
estoy tratando de hacer un UserForm que llame a imprimir las areas que
quiero, la idea es como hace excel que te da la opcion de imprimir desde -
hasta
Ya hice el Form y arme esta macro pero no funciona , alguien podria decirme
como se hace?

Private Sub UserForm_Initalize()
txtPrincipio = ""
txtfin = ""

End Sub


Private Sub cmdCancelar_Click()
Me.Hide
Unload Me
End Sub

Private Sub cmdAceptar_Click()
Dim NumIni As Variant
Dim Numfin As Variant
Dim Area As Range
Area_1 = Range("B5:N44").Select
Area_2 = Range("B45:N83").Select
Area_3 = Range("B85:N123").Select

NumIni = txtPrincipio
Numfin = txtfin
Area = Array("Area_1", "Area_2", "Area_3")
For i = NumIni To Numfin
ActiveSheet.PageSetup.PrintOut = Area
Next i

End Sub
desde ya muchas gracias
Enrique

Hola Fernando:
Te cuento que probe la solucion que me diste, y no funciona, primero porque
no se definir las areas de impresion, y segundo porque yo quiero que desde
el form por ejemplo cuando digite imprimir desde ( ej. 1) hasta (ej,2)
quiero que me imrima esas areas y no las otras definidas como sweria la
instruccion.
Desde ya muchas gracias por la molestia. A Proposito visite tu pagina es muy
buena.
Enrique
Fernando Arroyo escribió en el mensaje de
noticias
Puedes establecer que el área de impresión sea los rangos que necesitas y
luego imprimir con algo como:

With ActiveSheet
.PageSetup.PrintArea = .Range("B5:N44").Address & "," &
.Range("B45:N83").Address & "," & .Range("B85:N123").Address
.PrintOut
End With

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Enrique" escribió en el mensaje
news:O%

Hola a todos
estoy tratando de hacer un UserForm que llame a imprimir las areas que
quiero, la idea es como hace excel que te da la opcion de imprimir desde -
hasta
Ya hice el Form y arme esta macro pero no funciona , alguien podria

decirme

como se hace?

Private Sub UserForm_Initalize()
txtPrincipio = ""
txtfin = ""

End Sub


Private Sub cmdCancelar_Click()
Me.Hide
Unload Me
End Sub

Private Sub cmdAceptar_Click()
Dim NumIni As Variant
Dim Numfin As Variant
Dim Area As Range
Area_1 = Range("B5:N44").Select
Area_2 = Range("B45:N83").Select
Area_3 = Range("B85:N123").Select

NumIni = txtPrincipio
Numfin = txtfin
Area = Array("Area_1", "Area_2", "Area_3")
For i = NumIni To Numfin
ActiveSheet.PageSetup.PrintOut = Area
Next i

End Sub
desde ya muchas gracias
Enrique

"Enrique" escribió en el mensaje news:ueL$

Hola Fernando:
Te cuento que probe la solucion que me diste, y no funciona, primero porque
no se definir las areas de impresion, y segundo porque yo quiero que desde
el form por ejemplo cuando digite imprimir desde ( ej. 1) hasta (ej,2)
quiero que me imrima esas areas y no las otras definidas como sweria la
instruccion.

Mi problema es que no termino de comprender qué es lo que necesitas hacer. He preparado un pequeño ejemplo de formulario con tres controles para establecer tres áreas de impresión, y lo acabo de subir a:

http://www.excelsp.com/ejemplos/for...resion.xls

No creo que sea exactamente lo que necesitas, pero al menos quizás nos sirva para saber de qué estamos hablando...

Desde ya muchas gracias por la molestia. A Proposito visite tu pagina es muy
buena.

Me alegra que te haya gustado.
Un saludo.


Fernando Arroyo
MS MVP - Excel

Enrique

Se me olvidó: para que funcione el ejemplo, hay que guardarlo en el disco duro.

Hola Fernando:
Te envie a tu correo un archivo con el problema. Te cuento que que la macro
que me enviaste es muy buena, pero el problema es otro.
Gracias
Enrique
Fernando Arroyo escribió en el mensaje de
noticias #
Se me olvidó: para que funcione el ejemplo, hay que guardarlo en el disco
duro.