错误:“无效的过程调用或参数”是什么意思? 错误:“无效的过程调用或参数”是什么意思? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 呵呵,不考大家想象力。那你看这两段代码有什么问题吗?这是对的一段:Private Sub Command2_Click() '打印输出prtfg1.横向打印 = True '是否横向打印?prtfg1.默认纸张 = 9 '设置默认纸张 9为A4prtfg1.设置标题 = "设备维修配件统计报表" '设置报表标题prtfg1.设置副标题 = ""prtfg1.设置表格名 = "" & Trim(Format((DTPicker1.Value), "yyyy-mm-dd")) & " 的统计报表"prtfg1.设置表左脚 = ""prtfg1.设置表右脚 = "打印时间:" & Trim(Format(Now, "yyyy-mm-dd")) & ""prtfg1.上边距 = 5 '设置边距,单位毫米prtfg1.下边距 = 5prtfg1.左边距 = 5prtfg1.右边距 = 5prtfg1.打印 MSFlexGrid1End Sub这是错的一段:Private Sub Command1_Click()prtfg1.横向打印 = True '是否横向打印?prtfg1.默认纸张 = 9 '设置默认纸张 9为A4prtfg1.设置标题 = "设备维修配件明细查询报表" '设置报表标题prtfg1.设置副标题 = ""prtfg1.设置表格名 = "配件名称为 " & Trim(tvw.SelectedItem.Parent.Text) & "规格型号为 " & Trim(tvw.SelectedItem.Text) & "的设备配件进出库情况报表"prtfg1.设置表左脚 = ""prtfg1.设置表右脚 = "打印时间:" & Trim(Format(Now, "yyyy-mm-dd")) & ""prtfg1.上边距 = 5 '设置边距,单位毫米prtfg1.下边距 = 5prtfg1.左边距 = 5prtfg1.右边距 = 5prtfg1.打印 MSFlexGrid1End Sub 我真的很疑惑:控件在一处可用,这说明不是控件的问题;而我单步调试了,在end sub 那儿才出现bug,这说明也不是代码的错误。而且单击了报错信息框的"确定"按钮后,控件还是能运行一点。 天哪,难道这是我的错! :( 关于显示图片的问题 DBGrid数据隐藏问题 使用mediaplayer9控件播放MPG时,怎么调整显示画面大小? 在点击TreeView控件某节点时如何判断该节点位于第几级目录? 软盘坏了,用hdcopy读出到磁盘,是.img文件,再写到磁盘,还是无效,有没有办法从img中还原到硬盘啊 请求电子教程 只读`的属性 ado2.5中给字段附二进制值(word文件)如何写? 一个关于文本编辑的问题,谢谢!一定加分!! 100分有人愿意回答么?关于打印HTML文件! 我在程序里打开数据库后,把Connection传入DLL,但只能在一个过程里使用 千恩万谢求代码!!!
那你看这两段代码有什么问题吗?
这是对的一段:
Private Sub Command2_Click() '打印输出
prtfg1.横向打印 = True '是否横向打印?
prtfg1.默认纸张 = 9 '设置默认纸张 9为A4
prtfg1.设置标题 = "设备维修配件统计报表" '设置报表标题
prtfg1.设置副标题 = ""
prtfg1.设置表格名 = "" & Trim(Format((DTPicker1.Value), "yyyy-mm-dd")) & " 的统计报表"
prtfg1.设置表左脚 = ""
prtfg1.设置表右脚 = "打印时间:" & Trim(Format(Now, "yyyy-mm-dd")) & ""
prtfg1.上边距 = 5 '设置边距,单位毫米
prtfg1.下边距 = 5
prtfg1.左边距 = 5
prtfg1.右边距 = 5
prtfg1.打印 MSFlexGrid1
End Sub
这是错的一段:
Private Sub Command1_Click()
prtfg1.横向打印 = True '是否横向打印?
prtfg1.默认纸张 = 9 '设置默认纸张 9为A4
prtfg1.设置标题 = "设备维修配件明细查询报表" '设置报表标题
prtfg1.设置副标题 = ""
prtfg1.设置表格名 = "配件名称为 " & Trim(tvw.SelectedItem.Parent.Text) & "规格型号为 " & Trim(tvw.SelectedItem.Text) & "的设备配件进出库情况报表"
prtfg1.设置表左脚 = ""
prtfg1.设置表右脚 = "打印时间:" & Trim(Format(Now, "yyyy-mm-dd")) & ""
prtfg1.上边距 = 5 '设置边距,单位毫米
prtfg1.下边距 = 5
prtfg1.左边距 = 5
prtfg1.右边距 = 5
prtfg1.打印 MSFlexGrid1
End Sub
天哪,难道这是我的错! :(