如何在vb中调用excel的工作薄预览功能.txt

VB技巧问答10000例 VB技巧问答10000例

要 想 预 览 ， 必 须 注 意 两 个 问 题 ， 一 个 是 Excel窗 口 是 可 见 的 ， 二 是 当 前 工 作 表 上 必 须 有 内 容 可 以 用 来 打 印 ， 空 的 工 作 表 是 不 行 的 。 下 面 这 段 代 码 可 以 实 现 预 览 功 能 ： 
     Set oleExcel = CreateObject("Excel.Application") 
     Set oleWorkbook = oleExcel.Workbooks.Add 
     Set oleWorkSheet = oleWorkbook.Sheets.Add 
     oleExcel.Visible = True 
     oleExcel.ActiveCell.FormulaR1C1 = "Text" 
     oleWorkSheet.PrintPreview 
<END>