Abdul은 컴퓨터에서 5 대의 프린터에 액세스 할 수있는 사무실에서 일합니다. 그는 문서를 인쇄 할 때 “인쇄 대상 : HP LaserJet 1320″에서처럼 바닥 글에 문서가 인쇄 된 프린터의 이름을 포함하기를 원합니다.

문서가 5 개의 프린터가 모두 속한 프린터 풀이 아닌 특정 프린터로 전송되는 경우 매크로를 사용하여 필요한 바닥 글 정보를 추가 할 수 있습니다. 프린터가 풀에있는 경우이를 수행 할 수없는 이유는 인쇄 작업을 인쇄 풀의 개별 프린터로 분할하는 것이 Word가 아닌 Windows 자체에서 수행되기 때문입니다.

사용할 수있는 매크로의 예는 다음을 고려하십시오.

Sub AddPrinterName()

Dim sPName As String

' Get the printer name     sPName = Trim(Left(ActivePrinter, InStr(ActivePrinter, " on ")))



' Close any special pane     If ActiveWindow.View.SplitSpecial <> wdPaneNone Then         ActiveWindow.Panes(2).Close     End If

' Activate print view     If ActiveWindow.ActivePane.View.Type = wdNormalView _       Or ActiveWindow.ActivePane.View.Type = wdOutlineView Then         ActiveWindow.ActivePane.View.Type = wdPrintView     End If

' Open header/footer     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

' Switch to footer     If Selection.HeaderFooter.IsHeader = True Then         ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter     Else         ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader     End If

' Insert text and printer     Selection.TypeText Text:="Printed on: " & sPName

' Tidy up     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub

이 매크로는 바닥 글에 활성 프린터의 이름을 삽입합니다. 원하는 경우 DocumentBeforePrint 이벤트에서이 매크로를 트리거 할 수 있으며 인쇄를 선택할 때마다 바닥 글에 필요한 정보가 있는지 확인할 수 있습니다. 물론 이렇게하는 경우 매크로를 약간 수정하여 이전에 배치 된 바닥 글 정보를 선택하고 새 바닥 글 정보를 삽입하기 전에 삭제하도록해야합니다.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (372)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다. Word의 리본 인터페이스에 대한이 팁의 버전 (Word 2007)을 찾을 수 있습니다. 이후) 여기 :

link : / wordribbon-Including_a_Printers_Name_in_a_Footer [바닥 글에 프린터 이름 포함].