prucommercialre.com


Hojas de trabajo de impresión seleccionado

Si usted tiene una gran cantidad de libros que se han acumulado en los últimos años, es posible que tenga una necesidad de imprimir algunas de las hojas de trabajo de cada uno de ellos. Por ejemplo, es posible que tenga una carpeta que contiene un libro de trabajo para cada una de las divisiones de la empresa para la década anterior. Si su empresa cuenta con ocho divisiones, eso significa que tiene 80 libros en la carpeta. Ahora, si usted necesita para imprimir las cifras del segundo trimestre y el tercer trimestre (de la segunda y tercera hojas de cada libro), se empieza a ver el problema. Cargando cada libro y luego de impresión seleccionado sábanas podría tener una enorme cantidad de tiempo.

Una forma más rápida es crear una macro que va a hacer que la impresión para usted. La siguiente macro comienza preguntándole por una ruta de directorio. Siempre que usted especifica una ruta, la macro luego empieza a cargar cada archivo XLS (Excel) en el directorio, y luego imprimir la segunda y tercera hoja de trabajo de cada uno. Una vez impresa, la hoja de trabajo está cerrado.

PrintWorkbooks Public Sub ()
Dim sCurFile As String
Dim sPath As String

'Obtener el camino
sPath = InputBox ("camino de salida?", "PrintWorkbooks")
Si sPath <> "" Entonces,
On Error Resume Next
Application.ScreenUpdating = False
Si Derecha (sPath, 1) <> "\" Entonces
sPath = sPath & "\"
End If
sCurFile = Dir (sPath & "* .xls", vbNormal)
Do While Len (sCurFile) <> 0
Workbooks.Open sPath y sCurFile,, True
Con libros de trabajo (sCurFile)
.Worksheets (2) .PrintOut
.Worksheets (3) .PrintOut
SaveChanges .Close: = False
End With
sCurFile = Dir
DoEvents
Bucle
Application.ScreenUpdating = True
On Error GoTo 0
End If
End Sub

Obviamente, si usted tiene un buen número de libros en el directorio, la impresión podría tomar bastante tiempo. Es posible que desee encontrar algo de tiempo cuando no tienes nada más que hacer, y luego dejar que la macro de inicio de funcionamiento.

ExcelTips es su fuente de capacitación rentable Microsoft Excel. Esta punta (2215) se aplica a Microsoft Excel 97, 2000, 2002, y 2003. Usted puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y versiones posteriores) aquí: Hojas de trabajo de impresión seleccionado.