VB调用“打印”对话框的代码

VB调用“打印”对话框的代码

Admin | 2009-5-5 13:12:10 | TrackRecord: 1615 Times | Tag标签：asp.net 打印本页

您当前所处的位置是：〖首页〗→【文章页】本站共有16个图文教程栏目,请用心拜读!

本站提供经典的Excel公式函数实例,Word排版技巧,PPT教程;同时更兼有Flash,PowerPoint,数据库等技术文章。

VB调用"打印"对话框的代码

　　Private Type PrintDlg
　　lStructSize As Long
　　hwndOwner As Long
　　hDevMode As Long
　　hDevNames As Long
　　hdc As Long
　　flags As Long
　　nFromPage As Integer
　　nToPage As Integer
　　nMinPage As Integer
　　nMaxPage As Integer
　　nCopies As Integer
　　hInstance As Long
　　lCustData As Long
　　lpfnPrintHook As Long
　　lpfnSetupHook As Long
　　lpPrintTemplateName As String
　　lpSetupTemplateName As String
　　hPrintTemplate As Long
　　hSetupTemplate As Long
　　End Type

　　Private Declare Function PrintDlg Lib "comdlg32.dll" Alias "PrintDlgA" (pPrintdlg As PrintDlg) As Long

　　'将以下代码置于某一事件中

　　Dim tPrintDlg As PrintDlg
　　tPrintDlg.lStructSize = Len(tPrintDlg)
　　tPrintDlg.hwndOwner = Me.hwnd
　　tPrintDlg.hdc = hdc
　　tPrintDlg.flags = 0
　　tPrintDlg.nFromPage = 0
　　tPrintDlg.nToPage = 0
　　tPrintDlg.nMinPage = 0
　　tPrintDlg.nMaxPage = 0
　　tPrintDlg.nCopies = 1
　　tPrintDlg.hInstance = App.hInstance
　　lpPrintTemplateName = "Print Page"
　　Dim a
　　a = PrintDlg(tPrintDlg)
　　If a Then
　　lFromPage = tPrintDlg.nFromPage
　　lToPage = tPrintDlg.nToPage
　　lMin = tPrintDlg.nMinPage
　　lMax = tPrintDlg.nMaxPage
　　lCopies = tPrintDlg.nCopies
　　PrintMyPage 'Custom printing Subroutine
　　End If

上一篇：VB调用“打开文件”对话框的代码　　　下一篇：VB实现客户机←→服务器(TCP/IP)编程

会员评论列表：