VB 打印问题 急急急

我用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 --------------------编程问答-------------------- 为什么不用printer对象打印 --------------------编程问答-------------------- 你只是显示了对话框，没有把对话框中的值传给printer对象，当然不起作用了。 --------------------编程问答-------------------- 为什么不用 Microsoft Common Dialog Control 6.0？

还有页面设置要在输出报表之前进行，通常报表控件只在启动时取得纸张大小和打印方向，随后的输出都用相同的配置。
你之后再进行页面设置已经不起作用了。 --------------------编程问答-------------------- 可以用printer打印对象写打印语句 --------------------编程问答-------------------- Common Dialog 是过不好用 谁有代码发一个 --------------------编程问答-------------------- 为什么不用三方控件 --------------------编程问答-------------------- 我现在就是想完成调出打印设置窗体设置里面的参数 打印出来和我设置的一致 --------------------编程问答-------------------- 用什么进行打印输出的？
报表控件可能有自己的打印设置。

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