# 就是 Print Out 啊

Posted by 纪文和 on April 24, 1999 at 10:07:39:

In Reply to: Excel在VB里作直接Print Out的方法(列印)(Urgent) posted by Cloudyland on April 23, 1999 at 18:23:04:

Dim appobj As Object
Dim bookobj As Object
Dim shtobj As Object
Set appobj = CreateObject("Excel.Application") '启动 Excel
Set bookobj = appobj.Workbooks.Open("c:\test.xls") '开启 Test.xls
Set shtobj = bookobj.Worksheets(1) '使用第一个 Sheet
shtobj.PrintOut '列印
appobj.quit '结束 Excel

Follow Ups: