Private Sub Command1_Click()  
    Dim dm As DEVMODE, dmout As DEVMODE
    Dim bufsize&, res&
    Dim dmInBuf() As Byte
    Dim dmOutBuf() As Byte
    Dim hPrinter&
    Dim DeviceName$
        
    Dim prn_def As PRINTER_DEFAULTS
    Dim op_Flag As Long
    
    op_Flag = OpenPrinter(Printer.DeviceName, hPrinter, prn_def)
    If op_Flag =  0  Then
        Exit Sub
    End If

    ' определяю размеры массивов dm..Buf
    bufsize = DocumentProperties(hwnd, hPrinter, DeviceName$,  0 ,  0 ,  0 )
    
    ReDim dmInBuf(bufsize)
    ReDim dmOutBuf(bufsize)
    
    'показать окно свойств принтера
    res = DocumentProperties(hwnd, hPrinter, DeviceName$, _
        agGetAddressForObject(dmOutBuf( 0 )), _
        agGetAddressForObject(dmInBuf( 0 )), _
        DM_IN_PROMPT Or DM_OUT_BUFFER)
    
    ClosePrinter hPrinter
End Sub

    res = DocumentProperties(hwnd, hPrinter, DeviceName$, _
        dmOutBuf( 1 ), _
        dmInBuf( 1 ), _
        DM_IN_PROMPT Or DM_OUT_BUFFER)