请问如何详细保存各种打印参数和读取打印参数？
我是目前是用下面的语句弹出打印设置对话框的：
objPD.Flags = cdlPDPrintSetup
objPD.Min = 1
objPD.FromPage = 1
objPD.ToPage = 1
objPD.Max = 100
objPD.ShowPrinter
用这此语句设置后每次打印时都存在不能保证页面是按上次打印所设置的参数而打印文件，特别是每次都要设置页面的横向和纵向，好烦。
请问如何详细保存各种打印参数和读取打印参数，特别是纸张是横向打印或纵向打印
还有就是打印时，我用如下的代码弹出打印对话框：
objPD.Flags = cdlPDNoSelection
objPD.Min = 1
objPD.FromPage = 1
objPD.ToPage = 1
objPD.Max = 100
objPD.ShowPrinter
请问要如何设置打印页是横向或纵向？能否在弹出的打印对话框中显示出打印预览框？
请知者告诉我弹出打印对话框前先设置默认参数的详细原码及在弹出的打印对话框中显示出打印预览框的原码，跪求啊~~~
[解决办法]
补丁到SP6才有
VB补丁版本不够高
