十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
以下这段代码可以达到你的目标:
目前创新互联已为上千余家的企业提供了网站建设、域名、虚拟空间、绵阳服务器托管、企业网站设计、孙吴网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
Dim WDAPP As Object
Dim p As String = InputBox("请输入")
WDAPP = CreateObject("Word.Application")
WDAPP.Documents.Add(TextBox1.Text)
WDAPP.Selection.Find.Execute(p)
MsgBox("从" TextBox1.Text "中查询到的" p "首次出现的位置的页码为:" WDAPP.Selection.Information(3))
要用printpreviewdialog1,或者用printpreviewdialog类来达到预览效果时,必须要用到drawstring方法。也就是说当你点击预览效果,如果能看到文档的内容显示在程序窗口的白纸上时,就能打印了。我用c#写过完整的打印和预览效果,还可以添加页码,不清楚的就加我qq:332862871
有个PrintDocument控件,可以实现打印。。。
MSDN原话:
使用 PrintDocument 组件
涉及 PrintDocument 组件的两种主要情况是:
简单的打印作业,如打印单个文本文件。在这种情况下,应将 PrintDocument 组件添加到 Windows 窗体,然后在 PrintPage 事件处理程序中添加打印文件的编程逻辑。 该编程逻辑应以使用 Print 方法打印文档结束。
此方法向打印机发送一个 Graphics 对象,该对象包含在 PrintPageEventArgs 类的 Graphics 属性中。
有关如何使用 PrintDocument 组件打印文本文档的示例,请参见
如何:打印 Windows 窗体中的多页文本文件。
更为复杂的打印作业,如想要重新使用已编写的打印逻辑的情况。
在这种情况下,应从 PrintDocument 组件派生一个新组件,并重写
(请参见 Visual Basic 的 重写或 C# 的 重写) PrintPage 事件。
将 PrintDocument 组件添加到窗体后,它出现在 Windows 窗体设计器底部的栏中