使用activereport时出现的问题总结

最新推荐文章于 2024-10-01 14:19:05 发布

Andysun1986

最新推荐文章于 2024-10-01 14:19:05 发布

阅读量2.7k

点赞数

本文介绍了解决 ActiveReports 控件打印后数据无法更新的问题，只需在打印前调用 Restart 方法即可。此外，还详细说明了如何设置打印页面的上、下、左、右边距，并提供了横版打印的具体配置。

摘要由CSDN通过智能技术生成

参考网站：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