我用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
下面是我的代码 对话框是调出来了 但是设置页边距和横向或纵向打印不好用 请各位高手帮帮忙谢谢了。
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
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