수년에 걸쳐 축적 된 통합 문서가 많은 경우 각각에서 일부 워크 시트를 인쇄해야 할 수 있습니다. 예를 들어, 지난 10 년간 회사의 각 부서에 대한 통합 문서가 포함 된 폴더가있을 수 있습니다. 회사에 8 개의 부서가있는 경우 폴더에 80 개의 통합 문서가 있음을 의미합니다. 이제 각 통합 문서의 두 번째 및 세 번째 워크 시트에서 2 분기 및 3 분기 수치를 인쇄해야하는 경우 문제를보기 시작합니다. 각 통합 문서를로드 한 다음 선택한 시트를 인쇄하는 데 시간이 많이 걸릴 수 있습니다.

더 빠른 방법은 인쇄를 수행 할 매크로를 만드는 것입니다.

다음 매크로는 디렉토리 경로를 묻는 것으로 시작됩니다. 경로를 지정하면 매크로가 각 XLS (Excel)를로드하기 시작합니다.

디렉터리에 파일을 저장 한 다음 각각에서 두 번째 및 세 번째 워크 시트를 인쇄합니다. 인쇄되면 워크 시트가 닫힙니다.

Public Sub PrintWorkbooks()

Dim sCurFile As String     Dim sPath As String

'Get the path     sPath = InputBox("Starting path?", "PrintWorkbooks")

If sPath <> "" Then         On Error Resume Next         Application.ScreenUpdating = False         If Right(sPath, 1) <> "\" Then             sPath = sPath & "\"

End If         sCurFile = Dir(sPath & "*.xls", vbNormal)

Do While Len(sCurFile) <> 0             Workbooks.Open sPath & sCurFile, , True             With Workbooks(sCurFile)

.Worksheets(2).PrintOut                 .Worksheets(3).PrintOut                 .Close SaveChanges:=False             End With             sCurFile = Dir             DoEvents         Loop         Application.ScreenUpdating = True         On Error GoTo 0     End If End Sub

디렉토리에 통합 문서가 상당히 많으면 인쇄하는 데 시간이 오래 걸릴 수 있습니다. 다른 할 일이없는 시간을 찾은 다음 매크로를 실행하기 만하면됩니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (2215)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

link : / excelribbon-Printing_Selected_Worksheets [Printing Selected Worksheets].