关于ACTIVE REPORT，我问了好几次，怎么多没有人知道

怎么样自定义纸张,他好象默认的是A4,怎么样改变他的值，做好报表后的预览结果总是A4

解决方案 »

  1.   

    PageSettings.PaperSize = 256
        PageSettings.PaperHeight = 1440 * (3.36 + 0.48 * bott)
        PageSettings.TopMargin = 1440 * 0.5 '4
        PageSettings.LeftMargin = 1440 * 1 '4
        PageSettings.RightMargin = 1440 * 0.5 '4
        
        PageSettings.BottomMargin = 1440 * 0.4上面的程序在激打和喷墨（按页走纸的打印机）中不管用，但可用在针打
      

  2.   

    Private Sub ActiveReport_Initialize()    Printer.PaperSize = vbPRPSA4         'A4纸
        Printer.Orientation = ddOLandscape   '横向打印
        
        Me.PageTopMargin = 500
        Me.PageBottomMargin = 300
        
        Me.PageLeftMargin = 800
        Me.PageRightMargin = 350
            
    End Sub