VB6 DataReport打印自定义纸张

在修改报表打印的纸张大小时可选方案！

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!