我的问题解决了。。。方案如下,一定要写在ActivReport_ReportStart事件下才行。。。
晕死了
Private Sub ActiveReport_ReportStart()
On Error GoTo ErrorHandling
Me.PageSettings.PaperSize = 255
Me.PageSettings.LeftMargin = 0
Me.PageSettings.TopMargin = 0
Exit Sub
ErrorHandling:
MsgBox Err.Description
End Sub