[ayuda] macro imprimir libro, hojas por las dos caras

[totemalf2]

Muy buenas,

Adjunto el archivo que quiero mejorar. Como veréis se trata de una plantilla de creación de libros. Su funcionamiento es el siguiente:

-En la hoja de "datos" se añaden los datos que queremos que vayan en cada hoja bajo las columnas

Field Nº Origen Variety Tswv Tm3

- Cuando le das a imprimir los datos de cada fila se pasan a la plantilla "template" y se imprimen, se manda una orden de impresión por cada fila con datos.

LO QUE QUIERO HACER:

Me gustaría hacer dos cosas, la primera sería colocar un Botón de Cancelar, porque hay veces que necesito imprimir cientos de hojas, y al darle a imprimir me doy cuenta que me he equivocado en algo, y como va mandando una impresión por cada fila de datos no puedo cancelarlo todo, y no me gusta desperdiciar papel por eso del medioambiente y tal.

Lo segundo sería poner otro botón llamado Imprimir por las dos caras, y si le pincho que haga lo mismo que el botón imprimir, pero que la impresión sea por ambas caras de cada hoja. Osea fila 1 en hoja 1caraa y fila 2 en hoja1 carab, etc...

En fin, muchas gracias por cualquier ayuda que podáis prestarme, no se que iba a ser de nosotros los novatos sin estos foros.

Saludos!

PlantillaCrearLibrosSBR.zip

[Compaq]

Ingresa un Userform, un textbox, y un comambutton y ingresa esta instruccion:

Private Sub CommandButton1_Click()

ActiveWindow.SelectedSheets.PrintOut From:=TextBox1, To:=TextBox1, Copies:=1

TextBox1 = Empty

End Sub

[/CODE]

[totemalf2]

Gracias Compaq, voy a probar a ver que tal

Saludos

[logroastur]

Buenas chequea enlace

Imprimir libro, hojas por las dos caras

Un saludo

[totemalf2]

Buenas,

ya estoy siguiendo con la hoja, necesito algo de ayuda con el siguiente código:

Private Sub CommandButton1_Click()

Dim celda As Range

With Worksheets("Template")

.PageSetup.PrintArea = "B2:S23"

For Each celda In .[Datos!A2:A1200]

If celda <> Empty Then

.[D6] = celda

.[D16] = celda

.PrintOut

Else: Exit Sub

End If

Next

End With

End Sub

Vale, explico un poco lo que quiero hacer:

Al ampliar la hoja template para que ocupe dos hojas, ya podré controlar la impresión por las dos caras desde las propiedades de impresión. Pero lo que ahora necesito es que los datos de la hoja "Datos" se me peguen correctamente. Tal como está el código de arriba, se pegan los datos de la columna A en las celdas D6 y D16 del template. Y lo que necesitaría es que en la D6 se peguen los datos sucesivamente de A2, A4, A4, A8, etc, etc.... o sea las celdas pares. Y en D16 se peguen A3, A5, A7, osea, las celdas impares.

Ya con eso la Plantilla me iría de lujo.

Muchas gracias por vuestra paciencia y ayuda!

[Enigma25]

Hola

Quizas este te pueda ser util.

Saludos.

Imprimir Documentos Varios.zip

[Lega]

Hola,

Tengo una pregunta que creo que esta relacionada con esta cadena.

Tengo un documento excel (excel 2010) compuesto de varias pestanas (tabs). Quiero imprimir todas las pestanas por ambas caras. Y todas seguidas, una tras otra.

La impresora admite impresion a doble cara y ya la he seleccionado.

A pesar de ello, no funciona y la impresora deja de imprimir a dos caras cuando se produce un cambio de pestana (tabs). Se salta una de las caras de la hoja y sigue imprimiendo en la siguiente hoja, con lo cual en aquellas pestanas que tienen hojas impares se producen saltos de pagina porque, segun he leido por ahi, Excel reconoce cada pestana como un documento diferente y de esta forma no imprime varias pestanas de forma continuada.

Lo mas raro es que a mis companeros si les funciona y he comparado parametros de impresion y los tenemos igual creo.

Que puede estar fallando?

Ellos no tienen ninguna macro al respecto.

Muchas gracias por vuestra ayuda

un saludo

Lega