如何设置datareport的“报表宽度”和“纸的宽度”.txt

VB技巧问答10000例 VB技巧问答10000例

纸 宽 : Printer.Width 
    可 编 写 如 下 代 码 : 
    Private Sub DataReport_Initialize() 
    Const iW =3 '缇 ,误 差 调 整 
    DataReportX.ReportWidth =Printer.Width- DataReportX.LeftMargin-DataReportX.RightMargin -iW 
    End Sub 
<END>    
只 需 在 Windows9x的 开 始 目 录 中 选 择 设 置 打 印 机 ， 然 后 选 中 你 使 用 的 打 印 机 ， 修 改 其 属 性 中 纸 张 大 小 及 打 印 方 向 即 可 解 决 问 题 。 
<END>