7,762
社区成员
发帖
与我相关
我的任务
分享用vb代码如何调用word并以预览方式打开word文档？高分求，急啊！
用vb代码如何调用word并以预览方式打开word文档？
用vb代码如何调用excel并以预览方式打开excel文档？
用vb代码如何调用excel并以预览方式打开excel文档？
...全文
请发表友善的回复…
发表回复
northwolves 2005-11-26
- 打赏
- 举报
'引用Microsoft Word X.0 Object Library
Private Sub Command1_Click()
Dim mydoc As New Word.Application
mydoc.Documents.Open "c:\xxx.doc", , ReadOnly
mydoc.Visible = True
mydoc.ActiveDocument.PrintPreview
Set mydoc = Nothing
End Sub
'引用Microsoft excel X.0 Object Library
Private Sub Command2_Click()
Dim myexcel As New Excel.Application
myexcel.Workbooks.Open "d:\123.xls"
myexcel.Visible = True
myexcel.ActiveSheet.PrintPreview
myexcel.Quit
End Sub
Private Sub Command1_Click()
Dim mydoc As New Word.Application
mydoc.Documents.Open "c:\xxx.doc", , ReadOnly
mydoc.Visible = True
mydoc.ActiveDocument.PrintPreview
Set mydoc = Nothing
End Sub
'引用Microsoft excel X.0 Object Library
Private Sub Command2_Click()
Dim myexcel As New Excel.Application
myexcel.Workbooks.Open "d:\123.xls"
myexcel.Visible = True
myexcel.ActiveSheet.PrintPreview
myexcel.Quit
End Sub
faysky2 2005-11-26
- 打赏
- 举报
'引用Microsoft Word X.0 Object Library
Private Sub Command1_Click()
On Error GoTo connecterr
Dim wordApp As Object
Set wordApp = CreateObject("word.application")
wordApp.Visible = True
Dim myDoc As Object
Set myDoc = wordApp.Documents.Open("c:\Test.dot")'打开指定的Word文件
myDoc.PrintPreview '打印预览
'myDoc.Close
'wordApp.Quit
Set myDoc = Nothing
Set wordApp = Nothing
Exit Sub
connecterr:
End Sub
Private Sub Command1_Click()
On Error GoTo connecterr
Dim wordApp As Object
Set wordApp = CreateObject("word.application")
wordApp.Visible = True
Dim myDoc As Object
Set myDoc = wordApp.Documents.Open("c:\Test.dot")'打开指定的Word文件
myDoc.PrintPreview '打印预览
'myDoc.Close
'wordApp.Quit
Set myDoc = Nothing
Set wordApp = Nothing
Exit Sub
connecterr:
End Sub
松子才 2005-11-26
- 打赏
- 举报
楼上的说的很对。
winehero 2005-11-26
- 打赏
- 举报
Excel的WorkBook对象的PrintOut方法：
PrintOut (from, To, Copies, Preview, Printer, ToFile, Collate)
其中Preview为True时预览，反之不预览。
对Word来说使用Document对象的PrintPreview就行。
PrintOut (from, To, Copies, Preview, Printer, ToFile, Collate)
其中Preview为True时预览，反之不预览。
对Word来说使用Document对象的PrintPreview就行。
