比较难的问题 急急急高手快进

我用VB做了个打印保险帐票 现在要一个调用打印设置对话框来设置打印方向和页边距设置 我试了好多方法都不好用
下面是我的代码 对话框是调出来了 但是设置页边距和横向或纵向打印不好用 请各位高手帮帮忙谢谢了。
 Private Function ShowPageSetupDlg() As Long
            

        Dim m_PSD     As PAGESETUPDLG
        m_PSD.lStructSize = Len(m_PSD)
        m_PSD.hwndOwner = Me.hwnd
        m_PSD.hInstance = App.hInstance
        m_PSD.Flags = 0
        If PAGESETUPDLG(m_PSD) Then
                ShowPageSetupDlg = 0
        Else
                ShowPageSetupDlg = -1
        End If
  End Function --------------------编程问答-------------------- 问题重复了。 --------------------编程问答-------------------- UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP --------------------编程问答-------------------- 帮顶........ --------------------编程问答-------------------- 不要重复提问，可以给原帖加分
http://topic.csdn.net/u/20100512/11/18e4b263-eebd-45f9-a58d-af5eb3e5add8.html --------------------编程问答-------------------- 不要重复提问，可以给原帖加分
http://topic.csdn.net/u/20100512/11/18e4b263-eebd-45f9-a58d-af5eb3e5add8.html --------------------编程问答-------------------- 打印机对话框只是给你一个设置的接口，设置完了，你要自己读取你的设置，然后通过程序来控制啊！

补充：VB ,  数据库(包含打印，安装，报表)