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

 

[Lewiy]

Well, the print dialog is:

Application.Dialogs(xlDialogPrint).Show

But I think that the print properties dialog is linked to the printer/print drivers rather than being an Excel dialog box. As such, I'm not sure off hand how to bring that up. It may have to be some sort of Windows system control and you'd probably need to specify the printer somehow as well......

 

[daniels012]

Lewiy,
thank you for your response.
After some search i found this:

Option Explicit

Private Declare Function PrinterProperties Lib "winspool.drv" _
  (ByVal hwnd As Long, ByVal hPrinter As Long) As Long

Private Declare Function OpenPrinter Lib "winspool.drv" _
  Alias "OpenPrinterA" (ByVal pPrinterName As String, _
  phPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long

Private Declare Function ClosePrinter Lib "winspool.drv" _
  (ByVal hPrinter As Long) As Long
  
Private Type PRINTER_DEFAULTS
   pDatatype As Long ' String
   pDevMode As Long
   pDesiredAccess As Long
End Type

Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
Private Const PRINTER_ACCESS_ADMINISTER = &H4
Private Const PRINTER_ACCESS_USE = &H8
Private Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _
   PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)
   Public Function DisplayPrinterProperties(DeviceName As String) _
  As Boolean
         
'PURPOSE:  Displays the property sheet for the printer
'Specified by Device Name

'PARAMETER: DeviceName: DeviceName of Printer to
'Display Properties of

'EXAMPLE USAGE: DisplayPrinterProperties Printer.DeviceName

'NOTES: As Written, you must put this function into a form
'module. To put into a .bas or .cls module, add a parameter for
'the form or the form's hwnd.

On Error GoTo ErrorHandler
Dim lAns As Long, hPrinter As Long
Dim typPD As PRINTER_DEFAULTS

typPD.pDatatype = 0
typPD.pDesiredAccess = PRINTER_ALL_ACCESS
typPD.pDevMode = 0
'DeviceName = Application.ActivePrinter
lAns = OpenPrinter(Printer.DeviceName, hPrinter, typPD)
If lAns <> 0 Then
    lAns = PrinterProperties(Me.hwnd, hPrinter)
    DisplayPrinterProperties = lAns <> 0
End If

ErrorHandler:
If hPrinter <> 0 Then ClosePrinter hPrinter
    
End Function

Only I have no idea how to make this work. I copied it into a module and now I don't know how to get it to run.

Any ideas?
Michael

 

[Lewiy]

This is a Custom Function so you would need to type:

=DisplayPrinterProperties(DeviceName)

into a cell. Where DeviceName is the name of your printer. This could probably be converted quite easily into a Macro but I'm afraid it's a little beyond me what it's actually doing.

 

[daniels012]

Why in the world would you type in a function, to give you a Dialog box?
And is that even possible?

If you don't know, I really don't know????

Michael

 

[daniels012]

I found this which looks simpler:

Sub ShowPrinterProperties()    
Call Shell("rundll32 printui.dll,PrintUIEntry /p /n yourprinter")
End Sub

They have this also:

The part after \n can be defined in two ways:
1) Use the exact printername as it appears in your printer menu (case sensitive)
e.g. /n"HP Laserjet IIIP"
2) The UNC name of a shared printer. E.g. /n\\SERVER\SHAREDPRINTER

I still can't seem to get it correct??
Ideas?
Michael

 

[Lewiy]

Hmmm, that seems to be trying to do what you need but I can't seem to get my printer name correct in the code although it looks exactly like the example........

I think you may have more luck with this one but it's all down to how you define the printer.

 

[daniels012]

I can't seem to get my printer name correct in the code

exactly the issue I am having.
It won't recognize my printer that I enter??

Not to good with this coding stuff!! Not sure what else to try?
Michael

 

[daniels012]

I have even tried this:

Sub ShowPrinterProperties()
    ActPrn = Application.ActivePrinter
    Call Shell("rundll32 printui.dll,PrintUIEntry /p /n ActPrn")
End Sub

 

[daniels012]

Anybody have any ideas on this?

Michael