Как показать все вкладки свойств принтера - VB

Формулировка задачи:

Пытаюсь открыть окно свойств принтера:

Проблема в том, что открываются только часть вкладок настроек принтера. На картинке левая форма, а должна выглядеть как правая. Вопрос как показать все вкладки свойств принтера?

Решение задачи: «Как показать все вкладки свойств принтера»

textual
                            Листинг программы 
                        

                            Option Explicit
Private Const PRINTACTION_PROPERTIES = 1&
Private Const PRINTACTION_DOCUMENTDEFAULTS As Long = 6
Private Declare Function SHInvokePrinterCommand Lib "Shell32.dll" _
  Alias "SHInvokePrinterCommandA" (ByVal hwnd As Long, _
  ByVal uAction As Long, ByVal lpBuf1 As String, _
  ByVal lpBuf2 As String, ByVal fModal As Long) As Long
Private Sub Command1_Click()
  Dim lngRet    As Long
  Dim strMyPrinter As String
  strMyPrinter = Combo1.Text
  SHInvokePrinterCommand Me.hwnd, PRINTACTION_DOCUMENTDEFAULTS, strMyPrinter, vbNullString, False
End Sub
Private Sub Combo1_Click()
  Dim objPrinter  As Printer
  Dim strMyPrinter As String
  strMyPrinter = Combo1.Text
  For Each objPrinter In Printers
    If objPrinter.DeviceName = strMyPrinter Then
     Set Printer = objPrinter
    End If
  Next
End Sub
Private Sub Form_Load()
  Dim objPrinter As Printer
  For Each objPrinter In Printers
    Combo1.AddItem objPrinter.DeviceName
  Next
  Combo1.Text = Printer.DeviceName
End Sub

                        