使用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