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