VB6报表打印问题。。。

Question

关于纸张方向:
相关页面：
http://microinfo.top263.net/
http://simideal.top263.net/
http://simideal.top263.net/MyAQ_1.htmhttp://www4.netease.com/~askpro/msg21/qa85.htm
《报表打印时，程序显示Orientation为只读属性不能修改》
回答:     方 法 一 :用 一 个 CommonDialog: 
     
    Private Sub Command1_Click() 
    CommonDialog1.Flags = cdlPDPrintSetup 
    CommonDialog1.CancelError = True 
    On Error GoTo ErrorHandle: 
    CommonDialog1.ShowPrinter '必 须 Show出 来 且 "确 定 "才 能 修 改 纸 方 向 
    'Me.Refresh 
    'Command1.Refresh 
    On Error GoTo 0 
    DataReport1.Show vbModal 
    ErrorHandle: 
    End Sub 
    下 载 例 程 rptdemo.zip。 
    方 法 二 :引 用 PageSet.Dll(参 考 :微 软 的 Knowledge Base的 文 章：“Q198901 Sample PageSet_exe Programmatically Changes Default Printer Orientation” 并 下 载 PageSet.exe,或 orientation.zip。 
    但 有 时 报 出 "报 表 宽 度 大 于 纸 的 宽 度 "的 错 误 。 (参 考 :微 软 的 Knowledge Base的 文 章：“Q197915 PRB Report Width is Larger than the Paper Width” (我 认 为 没 什 么 用 ,不 知 所 云 )) 
    该 方 法 并 未 真 正 将 Printer改 方 向 (即 :Printer.Width与 Printer.Height并 未 交 换 ),因 此 我 建 议 : 
    Private Sub DataReport_Initialize() 
     Const ErrX = 0 '误 差 经 验 值 
     Dim adoRecordset As New ADODB.Recordset 
     adoRecordset.Fields.Append "Fld1", adVariant, , adFldIsNullable + adFldMayBeNull 
     adoRecordset.Open 
     Set Me.DataSource = adoRecordset 
     '下 一 句 非 常 关 键 重 要 ,可 以 极 大 地 减 少 "报 表 宽 度 大 于 纸 的 宽 度 "的 错 误 ! 
     '当 Form1.Option1.Value为 真 时 "横 打 ",否 则 "纵 打 " 
     Me.ReportWidth = IIf(Form1.Option1.Value, MyMax(Printer.Width, Printer.Height), 
     MyMin(Printer.Width, Printer.Height)) - Me.LeftMargin - Me.RightMargin-ErrX 
    End Sub 
    Private Function MyMax(a As Long, b As Long) As Long 
     MyMax = IIf(a > b, a, b) 
    End Function 
    Private Function MyMin(a As Long, b As Long) As Long 
     MyMin = IIf(a < b, a, b) 
    End Function 
    这 样 就 可 以 极 大 地 减 少 "报 表 宽 度 大 于 纸 的 宽 度 "的 错 误 ! 
    注 :"横 打 "即 :打 印 以 纸 的 宽 边 作 顶 部 。 "纵 打 "即 :打 印 以 纸 的 窄 边 作 顶 部 。 此问题由于溪玥回答。