?? 如何在vb中調用excel的工作薄預覽功能.txt
字號:
要 想 預 覽 , 必 須 注 意 兩 個 問 題 , 一 個 是 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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -