打印问题,怎么没高手呀，提了半天了没人回答

Question

目的：取得和设置打印机的纸张，方向等，设置需要能保存下来。（9x /nt/2000都要能用）
Public Function DialogPrintSetup(hWnd As Long) As Boolean
    Dim DM As DEVMODE, PD As PRINTDLGSTRUC
    Dim lpDM As Long
    PD.lStructSize = Len(PD)
    PD.hWnd = hWnd
    PD.flags = PD_PRINTSETUP
    If PrintDlg(PD) Then
        lpDM = GlobalLock(PD.hDevMode)
        CopyMemory DM, ByVal lpDM, Len(DM)
         p_papersize = DM.dmPaperSize（有效）
         p_org = DM.dmOrientation（有效）
         p_width=dm.dmpaperwidth（无效，选择打印纸纸确定后不变）
         p_height=dm.dmpaperlength（无效，选择打印纸纸确定后不变）
     End If
End Function