在修改报表打印的纸张大小时可选方案！
Private Sub DataReport_Initialize()
With Me
.Orientation = rptOrientPortrait '报表纵向打印
.ReportWidth = 14 * 567 '宽度 567 = 1cm 这儿还是报错的话可以设置成13.9 * 567
.LeftMargin = 0 '边距
.RightMargin = 0
End With
'左边距+右边距+报表宽度 <= 纸张宽度
Dim rst As New ADODB.Recordset
Dim sql As String
ConnDB
sql = "select * from Clients"
rst.Open sql,conn,adOpenKeyset,adLockReadOnly
Set Me.DataSource = rst
End Sub