Dim Dialog As Object
 
On Local Error Resume Next
Set Dialog = CreateObject("MSComDlg.CommonDialog")
With Dialog
  .CancelError = True
  .Flags = &H40&
  .ShowPrinter
  If Err = 0 Then
    ...
  End If
End With
Set Dialog = Nothing