即使将方向更改为横向,我也收到此错误。
Feepurpose.Orientation = rptOrientLandscape
Feepurpose.Show
我设置的属性
LeftMargin - 1440 RightMargin - 1440 ReportWidth - 8655 Paperwidth - 10800
我正在使用 VB6 Service Pack 6
即使将方向更改为横向,我也收到此错误。
Feepurpose.Orientation = rptOrientLandscape
Feepurpose.Show
我设置的属性
LeftMargin - 1440 RightMargin - 1440 ReportWidth - 8655 Paperwidth - 10800
我正在使用 VB6 Service Pack 6
将 leftmargin , rightmargin, topmargin, top,Right,Left 设置为零。
当您将鼠标移动到“报告区域”的右侧时,您会发现一个图标,该图标是一个“带有左右箭头的垂直线”,当您将鼠标移动到“报告区域”的底部时,您将找到一个图标,该图标是附在其上的“带有上下箭头的水平线”。只需调整布局并保存报告,看看它是否有效。
我的问题通过删除该report.refresh
功能得到解决。
Set report.DataSource = myRS
report.BottomMargin = 0
report.LeftMargin = 0
report.RightMargin = 0
report.TopMargin = 0
'------ report.refresh
report.Show
Set borderstyle = 4
4 = vbfixedToolWindow 用于报告,它应该可以工作