엑셀메크로+프린터 포트? 관련 질문 드립니다
부
부산아재 (121.♡.80.22)
2024년 7월 8일 AM 05:15 · 수정됨(23:14)
조회 426 공감 0
안녕하세요
조금 난해한 질문입니다..ㅜ.ㅜ
회사에서 프린터가 여러개를 물려서 사용하고 있는데요
프린터 인쇄를 메크로로 만들어서 사용하고 있는데요
프린터 포트가 가끔 바껴버려서 일일이 수정하기가 힘드네요
혹시 원인과 쉽게 변경 하는 방법이 있을가요?
상황설명을 드리면 엑셀메크로에 설정해둔 프린터 주소가 아래와 같습니다
Ne02:에 있는 \damoang-good\Samsung M268x_M289x Series (USB001)
그러다가 가상프린터가 설치되거나 해서 지우거나 하면
Ne03:에 있는 \damoang-good\Samsung M268x_M289x Series (USB001)
이런식으로 Ne02에서 Ne03으로 바껴버립니다
이것을 엑셀메크로 수정없이 프린터 설정이나 컴터에서 원래대로
바꿀 수 있는 방법이 있을가요?
댓글 (4)
- 살
살포시
24.07.08 · 126.♡.10.46
매크로에서 설치된 프린터명을 검색해서 포트를 지정하면 어떨까 싶습니다. - 부
부산아재
→ 살포시 작성자 24.07.08 · 49.♡.12.102
조금 더 쉽게 설명 부탁 드려도 될까요;; - 살
살포시
→ 부산아재 24.07.08 · 126.♡.10.46
인쇄 -> 지정된 프린터 포트로 인쇄
↓
인쇄 -> 지정된 프린터 명으로 포트 검색 -> 찾은 포트로 인쇄
중간에 포트 검색을 넣어보세요. - 부
부산아재
→ 살포시 작성자 24.07.08 · 121.♡.80.22
제가 메크로 왕초보라 예전에 검색으로 만든 메크로라 혹시
"지정된 프린터 명으로 포트 검색" 이부분의 명령어를 알 수 있을까요?;;
Sub 전체주문인쇄()
'Worksheets("개별인쇄").PrintPreview
Application.ActivePrinter = "Ne03:에 있는 \damoang-good\Samsung M268x_M289x Series (USB001)"
Worksheets("전체주문현황표").PrintOut To:=1
End Sub
이렇게 사용중인데요
살포시님이 주신답변을 토대로 코파일럿으로 물어물어
Sub PrintToSpecificPrinter()
Dim targetPrinter As String
' 원하는 프린터 이름으로 설정
targetPrinter = "Samsung M268x_M289x Series (USB001)" ' 여기에 원하는 프린터명을 입력하세요.
' 개별인쇄 시트를 미리보기
' 특정 프린터로 설정
Application.ActivePrinter = targetPrinter
Worksheets("전체주문현황표").PrintOut To:=1
End Sub
이런 답을 얻었습니다
회사출근하면 해봐야겠네요
답변 감사합니다^^
안되네요..ㅜ.ㅜ
쳇gpt도 물어보니 엄청 길게 코드를 만들어 주는데 역시 배우지 않고
할려니 어렵네요 그냥 수정하는 방법 밖에 없는거 같네요.ㅜ.ㅜ
댓글을 작성하려면 이 필요합니다.