Simplificar
Hola, realice ésta operación con la finalidad de imprimir desde la "hoja 1" ordenando a las sucesivas para su impresión automática desde la Hoja 2 hasta el 6
El problemita ahora es de que al hacer click para la impresión se queda en la "hoja6" y yo desearía que regrese a la "hoja1", donde está el botón Commandbutton.
Finalmente si la operación expuesta lineas arriba se puede mejorar.
Y otra chiquita más: cuando imprimo demora demasiado el procesamiento ¿Cómo hago para que sea más rápido?
**************************************
Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
Sheets(Array("hoja2")).Select
ActiveSheet.PageSetup.PrintArea = "$B$10:$J$66"
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End If
If CheckBox2.Value = True Then
Sheets(Array("hoja3")).Select
ActiveSheet.PageSetup.PrintArea = "$B$10:$p$55"
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End If
If CheckBox3.Value = True Then
Sheets(Array("hoja4")).Select
ActiveSheet.PageSetup.PrintArea = "$B$68:$l$67"
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End If
If CheckBox4.Value = True Then
Sheets(Array("hoja5")).Select
ActiveSheet.PageSetup.PrintArea = "$B$12:$I$52"
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End If
If CheckBox5.Value = True Then
Sheets(Array("hoja6")).Select
ActiveSheet.PageSetup.PrintArea = "$B$10:$J$14"
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End If
End Sub
***************************
Gracias por tu ayuda soy novato en esto y disculpa por mis intentos
Estaré a la expectativa de tu respuesta
Gracias y Saludos
Javier
El problemita ahora es de que al hacer click para la impresión se queda en la "hoja6" y yo desearía que regrese a la "hoja1", donde está el botón Commandbutton.
Finalmente si la operación expuesta lineas arriba se puede mejorar.
Y otra chiquita más: cuando imprimo demora demasiado el procesamiento ¿Cómo hago para que sea más rápido?
**************************************
Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
Sheets(Array("hoja2")).Select
ActiveSheet.PageSetup.PrintArea = "$B$10:$J$66"
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End If
If CheckBox2.Value = True Then
Sheets(Array("hoja3")).Select
ActiveSheet.PageSetup.PrintArea = "$B$10:$p$55"
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End If
If CheckBox3.Value = True Then
Sheets(Array("hoja4")).Select
ActiveSheet.PageSetup.PrintArea = "$B$68:$l$67"
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End If
If CheckBox4.Value = True Then
Sheets(Array("hoja5")).Select
ActiveSheet.PageSetup.PrintArea = "$B$12:$I$52"
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End If
If CheckBox5.Value = True Then
Sheets(Array("hoja6")).Select
ActiveSheet.PageSetup.PrintArea = "$B$10:$J$14"
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End If
End Sub
***************************
Gracias por tu ayuda soy novato en esto y disculpa por mis intentos
Estaré a la expectativa de tu respuesta
Gracias y Saludos
Javier
1 Respuesta
Respuesta de Elsa Matilde
1