我用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