V菜菜

我打了以下代码：
Private Sub cmdprint_Click()
Printgrid1.Unit = Centimeter
Printgrid1.PrintObject = MSHFlexGrid1
Printgrid1.DoPreView
End Sub

但测试就弹出错误框说：

“编译错误变量未定义”

“Private Sub cmdprint_Click()
PrintGrid1.Unit = Centimeter”
有错吗？我很菜，看不出。请指正
不然没法做了。

Nothing

请问Printgrid1是什么控件，还有Centimeter是什么，如果在模块中的Option Explicit，所有的变量必需生明才有效。

V菜菜

要打印MSHFlexGrid1的内容，其对象不是Printgrid1吗？
Centimeter是厘米啊，我写了“2”（2应该代表Centimeter吧？）。

Nothing

你用的是PrintGrid的打印预览控件吧，我测试了，没有问题。
Printgrid1.Unit = Centimeter
Printgrid1.PrintObject = Me.MSHFlexGrid1
Printgrid1.DoPreView
不过你的程序中必需有这些控件，如果你的代码是从别的地方抄来的，是不行的，必需有这些控件。
你首先要添加这些控件的引用，然后将这些控件添加到窗体上，才能正确的运行程序。

V菜菜

在模块中的Option Explicit：
Option Explicit
Dim rs_hetong As New ADODB.Recordset
Dim rs_yushou As New ADODB.Recordset
Dim rs_yishou As New ADODB.Recordset
Dim getrow As Integer
Dim select_row As String
Dim select_house As String

我有按钮cmdprint，MSHFlexGrid1 控件啊，grid1是不是MSHFlexGrid1的简称啊？
怎么总是“编译错误变量未定义”，指这“Printgrid1”有错。

Nothing

你去掉Option Explicit试一下
不过根据你的分析,是没有Printgrid1这个控件,这是一个控件,你必需安装这个控件才能用的.