如何打印MSFlexGrid控件的数据! 如何读取MSFlexGrid控件的数据,并且以打印预览的形式输出! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以配合其它的控件,如 VSPrinter预览: VSP.StartDoc VSP.Header = "| (标题)" VSP.CurrentX = 11000 VSP.CurrentY = 1600 VSP.Text = "打印日期: " & Now() VSP.CurrentY = 2300 VSP.RenderControl = form1.MSFlexGrid1.hWnd VSP.Zoom = 100 VSP.EndDoc '设置打印时显示页码 For i = 1 To VSP.PageCount VSP.StartOverlay i VSP.CurrentX = VSP.PageWidth - 4500 VSP.CurrentY = VSP.PageHeight - 400 VSP = "第 " & i & " 页 共 " & VSP.PageCount & " 页" VSP.EndOverlay Next打印: VSP.PrintDoc True 我好象有一个实例,不过我现在不在学校,在北京。你可以去www.mndsoft.com看看 试试看prtfg控件http://penchant.kftt.net 怎么去掉提示音? 用sendmessage向指定外部控件发送文本消息的问题 关于MSCOMM控件的问题实现一台电脑的两个COM口通讯(50) *********************************有关DataReport报表设计器的技术性问题************************************* 关于vb 操作 Excel 选中多列的问题 求漂亮的日历和计算器 跳转焦点 关于模块或过程的问题 如何实现多表查询? 菜鸟上路! 100分求助! VB连接SQL代码问题 在线等 解决结帖! 请教高手:关于获取路径的问题(在线等)
预览:
VSP.StartDoc
VSP.Header = "| (标题)"
VSP.CurrentX = 11000
VSP.CurrentY = 1600
VSP.Text = "打印日期: " & Now()
VSP.CurrentY = 2300
VSP.RenderControl = form1.MSFlexGrid1.hWnd
VSP.Zoom = 100
VSP.EndDoc
'设置打印时显示页码
For i = 1 To VSP.PageCount
VSP.StartOverlay i
VSP.CurrentX = VSP.PageWidth - 4500
VSP.CurrentY = VSP.PageHeight - 400
VSP = "第 " & i & " 页 共 " & VSP.PageCount & " 页"
VSP.EndOverlay
Next打印:
VSP.PrintDoc True
http://penchant.kftt.net