파일을 열었을 때 프린터를 Microsoft Print to PDF로 지정하는 방법

@iviolin**** 님 안녕하세요.

말씀하신 프린터 설정이, 윈도우의 기본 프린터가 아닌 엑셀의 인쇄용 프린터 설정을 말씀하시는건가요?

그러시다면, 아래 명령문을 사용해보세요.

Sub 엑셀인쇄프린터변경()

Dim myNet As Object
Dim cPrint As Long
Dim PrinterName As String: PrinterName = "Microsoft Print to PDF"
Set myNet = CreateObject("WScript.Network")

cPrint = myNet.enumprinterconnections.Count

On Error Resume Next
For i = 1 To cPrint
Application.ActivePrinter = "Ne" & Format(i, "00") & ":에 있는 " & PrinterName
If Application.ActivePrinter = "Ne" & Format(i, "00") & ":에 있는 " & PrinterName Then Exit For
Next

End Sub

프린터 다이알로그 명령문은 아래처럼 사용해보시길 바랍니다.

yn = Application.Dialogs(xlDialogPrinterSetup).Show
If yn = False Then
MsgBox "취소됨"
Else
'동작할 명령문
End If

제시해드린 답변이 도움이 되셨길 바랍니다. 감사합니다.