如何用VB6.0实现打印预览

我最近刚刚实现了这个。是基于Excel的。
'********************************
' 该模块用来实现各种打印功能
'********************************

'打印到excel中
Public Function print2Excel() As Boolean
' On Error GoTo Print2Excel_Error

Dim xlApp As Excel.Application
Dim i, j ,colums As Integer
Dim startRow, startCol As Integer
Dim tmp() As Variant
startRow = 1
startCol = 1
colums =10
Set xlApp = New Excel.Application '注意之前，要在工程-》引用中将支持excel的控件加载进来
Set xlApp = CreateObject("Excel.Application") '激活EXCEL应用程序
xlApp.Visible = False '隐藏或显示EXCEL应用程序窗口
xlApp.SheetsInNewWorkbook = 1 '打开工作簿，strDestination为一个EXCEL报表文件
Set xlBook = xlApp.Workbooks.Add '打开工作簿，strDestination为一个EXCEL报表文件
Set xlSheet = xlBook.Worksheets(1)
xlSheet.PageSetup.Orientation = g_Print_Method

'设置打印数据 g_Print_Data是一个Variant的二维数组，这个你要根据自己的情况作修改
For i = LBound(g_Print_Data) To UBound(g_Print_Data)
For j = LBound(g_Print_Title) To colums - 1
' xlSheet.Cells(startRow, i + startCol).Width = Len(CStr(" " & g_Print_Data(i,j) & " "))
、 Next
Next
'页面设置 g_Preview为全局变量，是否要求预览
If g_Preview = True Then
xlApp.Caption = "打印预览" '设置预览窗口的标题
xlApp.Visible = True '隐藏或显示EXCEL应用程序窗口
xlApp.ActiveSheet.PrintPreview
Else
xlSheet.PrintOut '执行打印
End If
xlApp.DisplayAlerts = False
xlApp.Quit '退出EXCEL
xlApp.DisplayAlerts = True
' xlBook.Save '保存文件

print2Excel = True
Exit Function

Print2Excel_Error:
print2Excel = False
End Function

用API