编程开发论坛 - Powered by Discuz! Board

标题: [求助] 这个打印代码有错吗？ [打印本页]

作者: V菜菜 时间: 2005-3-26 17:41 标题: [求助] 这个打印代码有错吗？

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

但测试就弹出错误框说：

“编译错误变量未定义”

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

作者: Nothing 时间: 2005-3-26 17:52

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

作者: V菜菜 时间: 2005-3-26 20:26

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

作者: Nothing 时间: 2005-3-26 22:00

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

作者: V菜菜 时间: 2005-4-1 09:56

在模块中的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 时间: 2005-4-1 11:38

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

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)