2.Form1需要的控件为:1个vsFlexGrid (VSFlexGrid1); 1个ado控件(Adodc1); 2个按钮(打印(Command2)打印预览(Command1))
自己设置ado控件的属性(使其绑定到表),其余代码如下:
Private Sub Form_Load()
Set VSFlexGrid1.DataSource = Adodc1
End Sub
Private Sub Command1_Click()
Form2.show
End Sub
Private Sub Command2_Click()
VSFlexGrid1.PrintGrid
End Sub
3.Form2需要的控件为:1个vsPrinter(VSPrinter1),代码如下:
Private Sub Form_Load()
VSPrinter1.StartDoc
VSPrinter1.Zoom = 100 '显示比例为100%
VSPrinter1.RenderControl = Form1.VSFlexGrid1.hwnd
VSPrinter1.EndDoc
End Sub
至此打印报表需要的功能已全部实现,包括打印预览与打印机设置,如果需要动态打印数据(打印查询结果),可以通过设置ado控件的数据源来实现,即:
Adodc1.RecordSource ="Select * From …… "
Adodc1.Refresh