整样直接在VB程序中调用EXCEL的打印预览功能，我已生成一个EXCEL文档？？？

Question

http://www.dapha.net/VB/list.asp?id=1015
http://www.dapha.net/VB/list.asp?id=587

Answer 1

http://www.csdn.net/expert/topic/440/440871.shtm主　　题：快来啊..我是老山.....vb 和excel的问题.............关于预览的......帮忙啊.....
作　　者：lzy5042
所属论坛：Visual Basic
问题点数：50
回复次数：18
发表时间：2001-12-25 12:48:03
 
  
  Dim xlbook As New Excel.Workbook
    Dim xlsheet As New Excel.Worksheet
    Dim xlapp As Excel.Application
    Set xlapp = New Excel.Application    xlapp.Visible = True    Set xlbook = xlapp.Workbooks.Open(App.path + "\report1.xls")
    Set xlsheet = xlbook.Worksheets("sheet1")
    xlsheet.PrintPreview怎么能够做到不出现excel的sheet1的内容.直接出现excel的预览呢???
这断代码每次都要出现sheet的内容....然后才出现预览....
紧急!!!!!!!!!!!!!11111
 
回复贴子： 
回复人：　dbcontrols(aa)　(2001-12-25 12:53:26)  得5分 
这个我会.却...  
回复人：　lzy5042(老山)　(2001-12-25 12:53:50)  得0分 
快来啊  
回复人：　sky100(大海边的沙滩上捡贝壳的孩子)　(2001-12-25 12:54:11)  得5分 
先让xlapp.visible=false,在xlsheet.PrintPreview之后再让xlapp.Visible = True
试试。
只是建议，我机器上没装office,回头我再测试一下。
 
回复人：　lzy5042(老山)　(2001-12-25 12:54:40)  得0分 
呵呵......  
回复人：　dbcontrols(aa)　(2001-12-25 12:57:13)  得0分 
你好象骂过我.对吧?  
回复人：　lzy5042(老山)　(2001-12-25 12:58:11)  得0分 
sky100(大海边的沙滩上捡贝壳的孩子):
呵呵..不行啊  
回复人：　fraser01(王晓栋)　(2001-12-25 13:05:21)  得30分 
直接预览用sheets.printout
可查看对象浏览器，找到关于SHEETS的各种属性和方法aa:别，人家骂你是关心你，不要把关心当作骂，他不骂怎么知道他在关心你？
      他不关心你怎么会骂你？喔弥陀佛！！！！  
回复人：　lzy5042(老山)　(2001-12-25 13:14:34)  得0分 
fraser01(王晓栋):
不好用啊....
这次直接到了sheet里面了...
我想要的是直接预览啊...　  
回复人：　yangzhaoyu(老妖)　(2001-12-25 13:27:03)  得5分 
我试试看  
回复人：　fraser01(王晓栋)　(2001-12-25 13:29:35)  得0分 
你不能把Sheet的visable=False？保证可以
我做过的。  
回复人：　baoxiang(包香)　(2001-12-25 13:29:46)  得0分 
我这里只有ACCESS的东西，我想法试试  
回复人：　lzy5042(老山)　(2001-12-25 13:33:20)  得0分 
我在试试
谢谢各位捧场  
回复人：　gase(浪花)　(2001-12-25 13:36:47)  得5分 
Dim xlbook As New Excel.Workbook
    Dim xlsheet As New Excel.Worksheet
    Dim xlapp As Excel.Application
    Set xlapp = New Excel.Application
    Set xlbook = xlapp.Workbooks.Open(App.path + "\report1.xls")
    Set xlsheet = xlbook.Worksheets("sheet1")    xlsheet.PrintPreview
    xlapp.Visible = True
'难道这样不行吗？
 
回复人：　lzy5042(老山)　(2001-12-25 13:41:46)  得0分 
死机.  
回复人：　lzy5042(老山)　(2001-12-25 13:46:30)  得0分 
又没有谁试过了???  
回复人：　fraser01(王晓栋)　(2001-12-25 13:57:33)  得0分 
我那可怜的老山啊！别这样死机啊！快来人啊！了不得了，老山死机了！
小弟，献上活机化淤代码一段，预知后事如何，各位老山，请留下MAIL：
Set AppExcel = CreateObject("Excel.Application")
Screen.MousePointer = 11
DataUpdate.Caption = DataUpdate.Caption & "。。"
OpenExcelFileName = OpenExcelFileName & FileName.FileName
AppExcel.Workbooks.Open FileName:=OpenExcelFileName
DataUpdate.Caption = DataUpdate.Caption & "。。"
AppExcel.Caption = "Open Filename:" & OpenExcelFileName
DataUpdate.Visible = False
DataUpdate.Caption = "数据装载中"
Screen.MousePointer = 0
AppExcel.Visible = True
'Exceltest.SetFocus
'实现直接打印方式
'PrintOut 开始页，结束页，打印份数，是否预览
AppExcel.Worksheets.PrintOut 1, 1000, 1, 1
'AppExcel.Visible = False
AppExcel.Quit
Set AppExcel = Nothing 
回复人：　lzy5042(老山)　(2001-12-25 14:05:31)  得0分 
fraser01(王晓栋):谢谢诶...
正在调试...............................
等.....................................  
回复人：　lzy5042(老山)　(2001-12-25 14:25:46)  得0分 
fraser01(王晓栋):
挺好用的...
可是还是能把sheet1的内容显示出来.然后就是预览.
但是还好.就这么用了hehe 

Answer 2

AppExcel.ScreenUpdating = False
就可以不显示sheet1的内容，直接预览。
要给分哦！！！！！！