你曾今碰到“用VB实现一个打印WORD文档功能。
。
。
”这个问题...
VB.NET(2005)中打印WORD文档(.doc)有两种方法可以完成,无论哪一种,你都得安装office,呵呵。
Imports Microsoft.Office.CoreImports Word = Microsoft.Office.Interop.Word第一种,允许用户更换打印机等设置,这是很重要的。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click PrintDialog1.AllowCurrentPage = False '不打印当前页 PrintDialog1.AllowSelection = False '不允许打印部分页等 PrintDialog1.AllowSomePages = False If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then Dim poApp As Word.Application Dim poDoc As Word.Document poApp = New Word.Application poApp.Visible = False poApp.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone poDoc = poApp.Documents.Open("d:\1.doc")poApp.WordBasic.FilePrintSetup(Printer:=PrintDialog1.PrinterSettings.PrinterName, DoNotSetAsSysDefault:=1) 'DoNotSetAsSysDefault:=0就会修改默认打印机 ''poApp.ActivePrinter = PrintDialog1.PrinterSettings.PrinterName poApp.PrintOut()poDoc.Close(Word.WdSaveOptions.wdDoNotSaveChanges) 'clean up poDoc = Nothing 'close word这里有个极其重要的参数WdSaveOptions,它有三个值:wdDoNotSaveChanges、wdDoNotSaveChanges和wdPromptToSaveChanges。
当选择wdDoNotSaveChanges时,文档就会来不及输出到打印机而关闭,当选择wdPromptToSaveChanges时,word程序有时就会无法退出!poApp.Quit()语句也是不可取的,因为默认的是wdPromptToSaveChanges。
poApp.Quit(Word.WdSaveOptions.wdPromptToSaveChanges) poApp = Nothing End If End Sub第二种,是调用windows打开的方式,很快,但是不幸的是不能更换打印机。
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim MyProcess As New Process MyProcess.StartInfo.CreateNoWindow = False MyProcess.StartInfo.Verb = "print" MyProcess.StartInfo.FileName = "d:\1.doc" MyProcess.Start() MyProcess.WaitForExit(10000) MyProcess.CloseMainWindow() MyProcess.Close() End Sub***********************VB6下使用的方法:Private Sub Form_Load()Set Word1 = CreateObject("word.application")Word1.Documents.Open App.Path & "\1.doc"Word1.Visible = TrueWord1.PrintOutWord1.Application.QuitEnd Sub
vb.net 请等待word完成所有待打印作业
Public Function DrawDot(ByVal x1 As Double, ByVal y1 As Double, Optional ByVal r As Double = 1) As ObjectDim oWord As Word.ApplicationDim TempX As DoubleDim TempY As DoubleDim TempR As DoubleTempX = Ox + (x1 * 10)TempY = Oy - (y1 * 10)TempR = r * 10DialogDisplay = FalseIf (TempX - TempR Ox + Lx / 2) Or (TempY - TempR Oy + Ly / 2) ThenDialogDisplay = TrueMsgBox("超出了边界!", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "提示")DrawFlag = FalseDrawDot = NothingExit FunctionEnd IfDrawDot = oWord.ActiveDocument.Shapes.AddShape(9, TempX - TempR, TempY - TempR, 2 * TempR, 2 * TempR) DrawFlag = TrueEnd Function
vb 怎么打印指定的窗体区域
LZ: PrintForm 方法 用以将 Form 对象的图象逐位发送给打印机。
应该不会出现打印出来的全是英文的现象. http://zhidao.baidu.com/question/4168806.html上述连接有Printer对象的相关代码.答复补充:Open "Lpt1" For Output As #1 Str=”欢迎使用GP系列票据打印机!”+Chr(10) Print #1, Str Close #1此种方法在WIN9X系统能正常打印汉字,在WINXP系统不支持打印汉字.可参阅:http://topic.csdn.net/u/20070929/18/6ddd8fc1-aac3-4cc7-9b08-4fd21c7ffecc.html
VB代码如何实现将word文档转换成PDF文档?
1.PDFFactory Pro虚拟打印机,安装后,在任何文档中,选择打印时,选择打印机为pdfFactoryPro,就能生成PDF文件,并可以进行安全设置。
2.SmartPrinter(Doc Pdf xls to pdf/tiff/bmp/jpg/png)一款大家非常熟悉的经典产品,专为转换文件而研发的高品质打印驱动,以运行稳定、转换速度快和图像质量高而著称,通过虚拟打印技术可以完美的将任意可打印文档转换成 PDF、TIFF、JPEG,BMP、PNG、EMF、GIF、TXT格式。
3.雪莹DocConvert虚拟打印转换。
雪莹DocConvert是一款文档转化工具,它通过虚拟打印的技术将任何文档转化为PDF,JPG,BMP,TIFF,PCX,PNG等等文档格式。
4.EasyPrint(虚拟打印机) V2.1,本软件实现的功能是把指定文档打印到文件,成为标准的BMP位图,实现无纸打印的功能。
主要应用在需要把一些文件打印后扫描再处理,或者一些需要打印效果的软件的插件。
例如:把WORD文件打印到BMP文件,然后进行处理 5、可以用金山的WPS软件安装后用来转换,还有可以用PDFtoWord软件进行转换
vb如何进行word页面设置的代码
'工程引用 Microsoft Word 12.o Objedt Library Private Sub Command1_Click()Dim wd As New Word.Applicationwd.Documents.Add DocumentType:=wdNewBlankDocumentWith wd.Selection.Font.Spacing = 2.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中.Font.Size = 16 '字号.Font.Name = "宋体".Font.Bold = True '粗体.TypeText "这是一个VB编辑word的测试。
" '输出字符.Font.Bold = False.TopMargin = CentimetersToPoints(1.27) '页面上边距.BottomMargin = CentimetersToPoints(1.27) '页面下边距.LeftMargin = CentimetersToPoints(1.27) '页面左边距.RightMargin = CentimetersToPoints(1.27) '页面右边距End Withwd.Visible = Truewd.ShowMeSet wd = NothingEnd Sub
VB2005如何把数据输出成为WORD或者Excel报表
用API函数ShellExecute VB声明 Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 说明 查找与指定文件关联在一起的程序的文件名。
关联的方式要么是运行程序,要么是打印文件。
可用Windows注册表编辑器将特定的文件类型同应用程序关联起来。
例如,扩展名为.TXT的文本文件通常与Windows记事本(NOTEPAD.EXE)关联到一起。
如在文件管理器中双击含.TXT扩展名的一个文件,就会自行启动记事本程序,并在其中载入文本文件;或者将指定的文件打印出来 返回值 Long,大于32表示成功 参数表 : 参数 类型及说明 hwnd Long,指定一个窗口的句柄,有些时候,Windows程序有必要在创建自己的主窗口前显示一个消息框。
如果发生这种情况,由这个参数指定的窗口就会作为消息框的父窗口使用。
在VB环境中,通常将活动窗体的窗口句柄作为这个参数使用 lpOperation String,指定字串“Open”来打开lpFlie文档;或指定“Print”来打印它。
也可设为vbNullString,表示默认为“Open” lpFile String,想用关联的程序打印或打开的一个程序名或文件名 lpParameters String,如lpFile是一个可执行文件,则这个字串包含了传递给执行程序的参数。
如lpFile引用的是一个文档文件,或者不需要使用参数,则设为vbNullString lpDirectory String,想使用的默认路径完整路径 nShowCmd Long,定义了如何显示启动程序的常数值。
注解 这个函数的说明在MSDN里是这样的:Opens or prints a specified file VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便。
因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。
但由于VB与EXCEL由于分别属于不同的应用系统,如何把它们有机地结合在一起,是一个值得我们研究的课题。
一、 VB读写EXCEL表: VB本身提自动化功能可以读写EXCEL表,其方法如下: 1、在工程中引用Microsoft Excel类型库: 从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000),然后选择"确定"。
表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象: Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet 3、在程序中操作EXCEL表常用命令: Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见(或不可见) Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 xlSheet.Cells(row, col) =值 '给单元格(row,col)赋值 xlSheet.PrintOut '打印工作表 xlBook.Close (True) '关闭工作簿 xlApp.Quit '结束EXCEL对象 Set xlApp = Nothing '释放xlApp对象 xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 4、在运用以上VB命令操作EXCEL表时,除非设置EXCEL对象不可见,否则VB程序可继续执行其它操作,也能够关闭EXCEL,同时也可对EXCEL进行操作。
但在EXCEL操作过程中关闭EXCEL对象时,VB程序无法知道,如果此时使用EXCEL对象,则VB程序会产生自动化错误。
形成VB程序无法完全控制EXCEL的状况,使得VB与EXCEL脱节。
二、 EXCEL的宏功能: EXCEL提供一个Visual Basic编辑器,打开Visual Basic编辑器,其中有一工程属性窗口,点击右键菜单的"插入模块",则增加一个"模块1",在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。
其中,EXCEL有两个自动宏:一个是启动宏(Sub Auto_Open()),另一个是关闭宏(Sub Auto_Close())。
它们的特性是:当用EXCEL打含有启动宏的工簿时,就会自动运行启动宏,同理,当关闭含有关闭宏的工作簿时就会自动运行关闭宏。
但是通过VB的自动化功能来调用EXCEL工作表时,启动宏和关闭宏不会自动运行,而需要在VB中通过命令xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。
三、 VB与EXCEL的相互勾通: 充分利用EXCEL的启动宏和关闭宏,可以实现VB与EXCEL的相互勾通,其方法如下: 在EXCEL的启动宏中加入一段程序,其功能是在磁盘中写入一个标志文件,同时在关闭宏中加入一段删除此标志文件的程序。
VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开,如果此标志文件存在,表明EXCEL对象正在运行,应该禁止其它程序的运行。
如果此标志文件不存在,表明EXCEL对象已被用户关闭,此时如果要使用EXCEL对象运行,必须重新创建EXCEL对象。
四、举例: 1、在VB中,建立一个FORM,在其上放置两个命令按钮,将Command1的Caption属性改...
vb如何打印Spreadsheet1控件里的内容
我没用过 帮你找到一个例子 呵呵 需要的就告诉我 发给你OLD_h = Me.HeightOLD_w = Me.WidthMe.Frame2.Visible = 0Me.Height = Me.Frame1.Height + 10Me.Width = Me.Frame1.Width入库单界面.PrintFormMe.Height = OLD_hMe.Width = OLD_wMe.Frame2.Visible = 1
转载请注明出处51数据库 » vb 打印 word