Agilizar procesamiento
Saludos Experto, agradecería me puedas ayudar. Sabes tengo un archivo en el que en la "Hoja 1" (Indice)en la que tengo un botón CommandButton que uso para imprimir y que ordena así a la impresión automática hasta la "hoja7"(Donde tengo rangos específicos). Mi problema es que cada vez que efectúo esta función demora en el procesamiento a imprimir y tengo que esperar para de nuevo hacer uso del mencionado archivo, igual manera al momento de abrir el archivo (ya que tengo 30 checkbox). ¿Me pgto si es que el programa citado abajo es muy extenso?. Y por último si la lentitud o pesado(3,749 KB) al abrir el archivo es por tener demasiados checkbox.
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 CheckBoxn.Value = True Then
Sheets(Array("hoja7")).Select
ActiveSheet.PageSetup.PrintArea = "$B$10:$p$55"
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End If
sheets("Hoja1" ).Select
End sub
Agradezco su amable atención
Gracias y Saludos
Javier
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 CheckBoxn.Value = True Then
Sheets(Array("hoja7")).Select
ActiveSheet.PageSetup.PrintArea = "$B$10:$p$55"
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End If
sheets("Hoja1" ).Select
End sub
Agradezco su amable atención
Gracias y Saludos
Javier
Respuesta de gualo
1