急，急如何用Crystal Reports 8.5在vb 6.0中实现套打的功能!

Question

Dim Report As New CrystalReport1
Dim rs As New ADOR.RecordsetOption ExplicitPrivate Sub CRViewer1_PrintButtonClicked(UseDefault As Boolean)
       Report.線1.Suppress = True '不打印元素線1
End SubPrivate Sub Form_Load()
Screen.MousePointer = vbHourglass
rs.Open "Select * from customer where 国 = 'USA'", "xtreme サンプル データ"
Report.Database.SetDataSource rsCRViewer1.ReportSource = Report
CRViewer1.ViewReport
End Sub

Answer 1

上面的代码预览是有線1，按预览画面的打印钮打印时无線1