Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Imprimir

16/11/2003 - 22:35 por Enrique | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 7 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Fernando Arroyo
17/11/2003 - 10:21 | Informe spam
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


Preguntas similares

 

Busqueda sugerida :