关闭

使用activereport时出现的问题总结

1374人阅读 评论(0) 收藏 举报

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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:52627次
    • 积分:808
    • 等级:
    • 排名:千里之外
    • 原创:21篇
    • 转载:23篇
    • 译文:1篇
    • 评论:5条
    最新评论