使用activereport时出现的问题总结

参考网站:http://hi.baidu.com/wqfanmail/blog/item/db04ac13ef8ea38a6438db74.html

1、我在使用ActiveReports控件使用,使用ACTIVEREPORTS1.PrintReport True打印后,在更新数据源后,再次掉用它时,发现无法更新它的数据,它打印的仍是打印第一张时的数据。
-------------------
在 ActiveReport.PrintReport True前加上一句ActiveReport.Restart 即可。例如:
     ActiveReport.Restart
     ActiveReport.PrintReport True

 

 

2.怎樣設置上,下,左,右邊距及橫向打印
-----------------
     Dim Act As ActiveReport   '设置纸的类型及尺寸
     Act.Printer.PaperSize = 255
     Act.Printer.PaperHeight = 21 / 2.54 * 1440 '21cm
     Act.Printer.PaperWidth = 29 / 2.54 * 1440 '29cm
     Act.PageSettings.LeftMargin = 1 / 2.54 * 1440 '1cm ' 设置边宽         

    Act.PageSettings.RightMargin = 1 / 2.54 * 1440 '1cm
     Act.PageSettings.TopMargin = 1 / 2.54 * 1440 '1cm
     Act.PageSettings.BottomMargin = 1 / 2.54 * 1440 '1cm
     ActiveReport有如下4个属性是控制页边距的:
     PageBottomMargin
     PageTopMargin
     PageLeftMargin
     PageRightMargin

 

 ' ActiveReportbarcode.Printer.PaperSize = 255

  '  ActiveReportbarcode.Printer.PaperHeight = 7.5 / 2.54 * 1440 '7.5cm高

   ' ActiveReportbarcode.Printer.PaperWidth = 10 / 2.54 * 1440   '10cm宽

   ' ActiveReportbarcode.PageLeftMargin = 1 / 2.54 * 1440 '1cm

  '  ActiveReportbarcode.PageRightMargin = 1 / 2.54 * 1440 '1cm

  '  ActiveReportbarcode.PageBottomMargin = 1 / 2.54 * 1440

  '  ActiveReportbarcode.PageTopMargin = 1 / 2.54 * 1440

阅读更多
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭