엑셀메크로+프린터 포트? 관련 질문 드립니다
알림
|
페이지 정보
작성일
2024.07.08 05:15
본문
안녕하세요
조금 난해한 질문입니다..ㅜ.ㅜ
회사에서 프린터가 여러개를 물려서 사용하고 있는데요
프린터 인쇄를 메크로로 만들어서 사용하고 있는데요
프린터 포트가 가끔 바껴버려서 일일이 수정하기가 힘드네요
혹시 원인과 쉽게 변경 하는 방법이 있을가요?
상황설명을 드리면 엑셀메크로에 설정해둔 프린터 주소가 아래와 같습니다
Ne02:에 있는 \damoang-good\Samsung M268x_M289x Series (USB001)
그러다가 가상프린터가 설치되거나 해서 지우거나 하면
Ne03:에 있는 \damoang-good\Samsung M268x_M289x Series (USB001)
이런식으로 Ne02에서 Ne03으로 바껴버립니다
이것을 엑셀메크로 수정없이 프린터 설정이나 컴터에서 원래대로
바꿀 수 있는 방법이 있을가요?
- 게시물이 없습니다.
댓글 4
/ 1 페이지
살포시님의 댓글의 댓글
@부산아재님에게 답글
인쇄 -> 지정된 프린터 포트로 인쇄
↓
인쇄 -> 지정된 프린터 명으로 포트 검색 -> 찾은 포트로 인쇄
중간에 포트 검색을 넣어보세요.
↓
인쇄 -> 지정된 프린터 명으로 포트 검색 -> 찾은 포트로 인쇄
중간에 포트 검색을 넣어보세요.
부산아재님의 댓글의 댓글
@살포시님에게 답글
제가 메크로 왕초보라 예전에 검색으로 만든 메크로라 혹시
"지정된 프린터 명으로 포트 검색" 이부분의 명령어를 알 수 있을까요?;;
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도 물어보니 엄청 길게 코드를 만들어 주는데 역시 배우지 않고
할려니 어렵네요 그냥 수정하는 방법 밖에 없는거 같네요.ㅜ.ㅜ
"지정된 프린터 명으로 포트 검색" 이부분의 명령어를 알 수 있을까요?;;
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도 물어보니 엄청 길게 코드를 만들어 주는데 역시 배우지 않고
할려니 어렵네요 그냥 수정하는 방법 밖에 없는거 같네요.ㅜ.ㅜ
살포시님의 댓글