vb打印预览代码（vb窗口打印）

本篇文章给大家谈谈vb打印预览代码，以及vb窗口打印对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、怎样在VB中加入打印按扭让他有打印和预览功能。代码是什么？
• 2、VB 打印预览
• 3、如何用VB6.0实现打印预览

怎样在VB中加入打印按扭让他有打印和预览功能。代码是什么？

打印加载对话框控件：CommonGialog

“打印”对话框的属性：

CommonGialog1.ShowPyinter '设置为打印对话框

预览好像没有相应控件，需要自己设计

VB 打印预览

你在窗体中放一个图片框（比如Picture1），然后你把上述代码中所有的Printer都换成Picture1（但最后一行即Printer.EndDoc要删掉），效果就是打印预览了。

如何用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

vb打印预览代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb窗口打印、vb打印预览代码的信息别忘了在本站进行查找喔。