Is there a VBA way to open Print Properties Dialog?

[daniels012]

I know I've seen where the print Dialog window can be opened.
Is there a way to open the Print PROPERTIES Dialog window?

Thank You,
Michael

 

[daniels012]

Ivan,
i used your code:

Call Shell("rundll32 printui.dll,PrintUIEntry /p /n ""HP Deskjet 895 Cse""", vbNormalFocus)

I get the same error message as mentioned before.

Thank You,
Michael

 

[Ivan F Moala]

Is HP Deskjet 895 Cse

The Actual name of the printer case sensitive as it appears in your Printer control panel.

 

[daniels012]

Yes I actually copied and pasted it to be sure it was exact.

Michael

 

[bigbry]

I know I've seen where the print Dialog window can be opened.
Is there a way to open the Print PROPERTIES Dialog window?
Thank You,
Michael

Well it's been a really long time since this post was use, however, I happened to find the solution and thought I'd share it.

Michael you are basically on the right track, but you don't need to use "Call" just simply the shell command. I put this command in a function like this:

Public Function PrintOn2Pages() As Boolean 'name your function whatever you want
    On Error Resume Next
    ' also could try shell32.dll,SHHelpShortcuts_RunDLL PrintTestPage
    Shell "rundll32 PrintUI.dll, PrintUIEntry /n\\MHNPRNSV01\MNRm8SharpM453N /e", _
          vbNormalFocus 'substitute your own path to the printer after /n, the /e _
	  switch opens properties
End Function

That pops up the printer properties dialog for me. Note that there is no space after /n so just typer your exact path. I just went into AddPrinter dialog and selected the printer so I could make 100% sure it was the correct path. I'm sure there's other ways to do it, but that's what I did.

By the way, once you get this far, then if you want to check boxes or select single or duplex you have to use sendkeys. I haven't found a way yet to activate the controls otherwise.

Hope this helps the next guy