엑셀 인쇄 매크로 시 프린터 포트 변경 문제

본문 바로가기

엑셀 인쇄 매크로 시 프린터 포트 변경 문제

작성일 2024.04.25댓글 1건
    게시물 수정 , 삭제는 로그인 필요

안녕하세요.
엑셀 vba 초보 직장인 입니다.

엑셀 매크로를 이용해서 동일한 시트를 2개 네트워크 프린터에서 동시 인쇄하려고 합니다.

 - 삼성 프린터 1장, 후지제록스(DocuPrint) 프린터 2장 출력

그래서 아래와 같이 매크로를 짰고 동시 인쇄가 잘 되었습니다.

Sub 일괄인쇄()
  Application.ActivePrinter = "Ne05:에 있는 Samsung X401 Series"
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
  Application.ActivePrinter = "Ne01:에 있는 DocuPrint CP405 d"
  ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

그런데 문제는 컴퓨터를 재부팅하면 프린터 포트(Ne number)가 바뀌어서
포트를 다시 찾아 vba에서 포트를 수정해줘야만 인쇄가 됩니다.

혹시 변경된 프린터 포트를 자동으로 수정하여 인쇄되도록 하려면 vba를 어떻게 짜야할까요?


#엑셀 인쇄 영역 #엑셀 인쇄 꽉차게 #엑셀 인쇄영역 파란선 #엑셀 인쇄 #엑셀 인쇄영역 설정 #엑셀 인쇄 페이지 설정 #엑셀 인쇄 페이지 나누기 #엑셀 인쇄영역 꽉차게 #엑셀 인쇄 반복할 행 #엑셀 인쇄 크기 맞추기

profile_image 익명 작성일 -

Function set_printer() Dim printer_string As String Dim port As Variant On Error Resume Next port = 0 Do While port < 100 If port < 10 Then ' add leading 0 printer_string = "P3005 on Ne0" + CStr(port) + ":" Application.ActivePrinter = printer_string Else printer_string = "P3005 on Ne" + CStr(port) + ":" Application.ActivePrinter = printer_string End If port = port + 1 Loop End Function

printer_string = "P3005 on Ne0" + CStr(port) + ":"

이 부분을 자신의 프린터 설정에 맞도록 변경 적용해 보세요...

​

연관된 질문 답변 리스트

엑셀 인쇄 매크로

... 같은 엑셀파일을 사용중인 유저입니다. 다름이 아니라 이전 질문글에서 답변해준 분 덕분에 매크로를 몇가지 추가하였는데 문제가.. [인쇄] / [삭제]...

엑셀 인쇄할 프린터 변경 시 인쇄영역이...

첫번째 그림과 두번째 그림 인쇄영역이 틀린데요 다른거 건든게 없고 인쇄할 프린터만 변경했는데 이렇게 바뀌어 버리네요 뭐가 문제일까요? 엑셀 파일도 올려놨습니다......

엑셀 인쇄 설정 관련 질문

... 도대체 뭐가 문제인지 모르겠습니다. 왜 프린터 기본설정이 해당 파일에는 반영이 안 되는 것일까요? 엑셀에서 인쇄 설정을 변경하는 경우에는 일반적으로 현재 열려있는...

엑셀 인쇄시 표의 선이 다 인쇄가 안되요

엑셀 표를 인쇄하는데 다른 프린터에서는 선이 다 인쇄되는데 제 프린터에서만 선이 다 인쇄 안되고 한줄 띄우고 인쇄되는데 엑셀 설정 문제인가요 참고로 프린트...



​
    test ad