关于页面边距的设定

Dim rpt As New rptApp
Dim rptPage As New DataDynamics.ActiveReports.PageSettings

  Me.PageSettings.Margins.Bottom = 1.0
   Me.PageSettings.Margins.Left = 1.0
   Me.PageSettings.Margins.Right = 1.0
   Me.PageSettings.Margins.Top = 1.0
   rpt.PageSettings = rptPage
   rpt.Run()

打印出来的页面，不是我设置的距离，怎么会是，页头很小，页脚空了很长的距离。
是不是还有其他设置我没有设置正确的，请帮我看一下
谢谢

PrintWidth + Margins应该小于A4.Width，你可以检查一下是不是PrintWidth + Margins超过了A4.Width

我还有一个问题啊，我在画报表的时候、有时候运行会经常报错，说报表超出了印刷范围。
所以我也没注意，觉得超出范围会报错。
所以现在画出这样的一张报表，理论上应该就是在A4纸范围内的阿，为什么会发生用画板打开超出范围的事情呢？

希望这个帖子对你话UI有所帮助，http://gcdn.grapecity.com/showtopic-1626.html

阿~ 那我还得重新画报表！

使用画图看到的应该是正确的大小，使用 Microsoft Office Document Imaging 看到的不是实际大小

那active Report输出的tif文件是给我缩小了呢还是没缩小呢？

我同一个tif文件，画图，原尺寸到打印机打印，4张

Microsoft Office Document Imaging  100% 打印，1张。

我想知道我的原图大小是多少怎么看

如果你报表的内容超过了选择纸型能够打印的最大范围，就会被打印成多张，在不改变打印纸型的情况下，只能将打印的内容变小，没有其它办法了。

啊，加颜色管用阿，是footer的label太大了，下面有些空。
dof，多谢。
还有一个问题，activereport会自动放缩画面么，
因为我现在代码这样子
            rpt.PageSettings.PaperKind = Drawing.Printing.PaperKind.A4
            rpt.PageSettings.Margins.Top = 10*0.3937
            rpt.PageSettings.Margins.Bottom = 10*0.3937
            rpt.PageSettings.Margins.Left = 10*0.3937
            rpt.PageSettings.Margins.Right = 10*0.3937
            rpt.Run();
            Dim tifExporter As New DataDynamics.ActiveReports.Export.Tiff.TiffExport
            tifExporter.Export(rpt.Document, outPutFile)
我实际报表的printWitch是200mm，边距都设置成10mm。页面宽度+边距超出了A4
纸的宽度210mm。

但是我生成的tif文件，用Microsoft Office Document Imaging 察看，100%的显示，是一张纸，用打印机打印也是一张纸。但是用windows自带的画板看，选择原图大小，就很大了，打印预览，边距都设成0，
打印出来用A4纸还是给分开了，打了4张。

请问一下这种情况，您遇到过么，谢谢

因为不知道你实际打印的结果，我猜测有两个可能：
第一种：该页的数据较少，不能填充整个页面，所以就剩下一部分空白区域，看上去就是下面的边距相当大
第二种：PageFooter实际打印的高度比你设置的高度要大，你可以设置PageFooter的背景色，然后查看PageFooter实际打印高度，以便于区分空白区域是PageFooter还是下边距区域

如果方便的话能否截图过来看一看。