Jump to content
Sign in to follow this  
juandi

imprimir en una sola hoja

Recommended Posts

Hola, tengo el siguiente procedimiento:

For i = 0 To Sheets.Count - 1

If ListBox1.Selected(i) = True Then

Sheets(ListBox1.List(i)).PrintOut

'buscar_seleccion = ListBox1.List(i)

End If

Next i

lo que necesito es poner codigo para que en una sola hoja me imprima el area seleccionada, que es igual en todas las hojas; podrá ser un una ó que se incremente de acuardo la cantidad de hojas y que no manda la impresion sino que haga vista previa

saludos a todos

Juandi

Share this post


Link to post
Share on other sites

Respuesta: imprimir en una sola hoja

prueba con:

For i = 0 To Sheets.Count - 1

If ListBox1.Selected(i) = True Then

Sheets(ListBox1.List(i)).PageSetup.PrintArea = "A$1:$D$15"

Sheets(ListBox1.List(i)).PrintOut

'buscar_seleccion = ListBox1.List(i)

End If

Next i

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy