프린터 트레이 자동 선택 Excel VBA에서 Word 문서 인쇄

Question

Excel에서 Word 문서를 인쇄하려고합니다. 기본 프린터에서 워드 문서를 인쇄하려면 프린터 트레이를 선택하고 싶습니다. 트레이 1 (레터 헤드)의 첫 2 페이지와 트레이 2 (A4 시트)의 3 ~ 5 페이지 엑셀 VBA를 사용합니다.

아래의 코드는 기본 프린터 및 용지함에서 인쇄하기에 적합합니다.

* 네트워크 프린터 * HP의 레이저 프린터 5200 DTN

Dim directory As String, fileName As String, ans As String, i As Integer 
      Dim objWord As Object 
      Dim intpage As Integer, intcopies As Integer, intnrml As Integer 

      Set objWord = CreateObject("Word.Application") 
      objWord.Visible = True 

      ' path to the folder 
      directory = "C:\Users\bharath.a.raj.DIR\Desktop\Print\" 
      fileName = Dir(directory & "*.doc*") ' Open Multiple Word Docs Both .doc and .docx 
      Do While fileName <> "" 
      objWord.Documents.Open (directory & fileName) 

      On Error Resume Next 
      ' 
      intcopies = CInt(InputBox("How many copies?")) 
      intpage = 1 'Letter head page no. 
      intnrml = 3 'A4 page no. 
      On Error GoTo 0 

      If intpage * intcopies <> 0 Then 
       For i = 1 To intcopies ' Loop to print next page of uer Choice Note: simplex is not working in my Office, Default Duplex 
        'Network Printer :- HP Laser Printer 5200dtn 
        'Print in letter head:- Choose Tray one 
        objWord.PrintOut Range:=4, Pages:=CStr(intpage) '1st page 
        intpage = intpage + 1 
        objWord.PrintOut Range:=4, Pages:=CStr(intpage) '2nd page 
        intpage = 1 
        'Print Other pages in A4:- Choose Tray Two 
        objWord.PrintOut Range:=4, Pages:=CStr(intnrml) '3rd page 
        intnrml = intnrml + 1 
        objWord.PrintOut Range:=4, Pages:=CStr(intnrml) '4th page 
        intnrml = intnrml + 1 
        objWord.PrintOut Range:=4, Pages:=CStr(intnrml) '5th page 
        intnrml = 3 

       Next 
      Else 
       MsgBox "sorry, wrong page or copies, try again" 
      End If 
       ' Next 
      objWord.Documents.Close 
       ' set file to next in Dir 
      fileName = Dir() 
      Loop 

Answer 1

우리는 정말 좋은를 사용 트레이

'Print in letter head:- Choose Tray one 

및

'Print Other pages in A4:- Choose Tray Two 

프린터 세부 사항을 선택하도록 도와주세요에서 다운로드 할 수있는 Tray Selector 유틸리티와 무료로 사용해보십시오. 하나의 클릭 단추를 설정하여 프린터 및 용지함 조합으로 인쇄 할 수 있으며 VBA 매크로를 사용하여 이러한 단추를 호출 할 수도 있습니다. 우리 법률 회사에서 매우 유용합니다.