[技巧]VB.NET打印技术

[复制链接]

AZ猫

2552 主题	15 听众	3161 积分

管理员

Rank: 75

性别: 男
听众数: 15
买家信用
卖家信用
在线时间: 1426 小时
相册: 0

发表于 2006-6-4 21:43:00 |显示全部楼层

[sell=500] Imports System Imports System.ComponentModel Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Printing Imports System.IO Namespace Microsoft.Samples.WinForms.VB.PrintingExample5 Public Class PrintForm Inherits System.Windows.Forms.Form Private storedPageSettings As PageSettings Public Sub New () MyBase.New PrintForm = Me '此调用是 Windows 窗体设计器所必需的。 InitializeComponent() '启动打印按钮的事件 AddHandler printButton.Click, AddressOf printButton_Click AddHandler pageSetupButton.Click, AddressOf pageSetupButton_Click AddHandler printPreviewButton.Click, AddressOf printPreviewButton_Click End Sub '在用户按下页面设置按钮时激发的事件 Private Sub pageSetupButton_Click(sender As object, e As System.EventArgs) Try Dim psDlg As New PageSetupDialog If (storedPageSettings Is Nothing) Then storedPageSettings = new PageSettings() End If psDlg.PageSettings = storedPageSettings psDlg.ShowDialog Catch ex As Exception MessageBox.Show("发生错误 - " + ex.Message) End Try End Sub '在用户按下打印按钮时激发的事件 Private Sub printButton_Click(sender As object, e As System.EventArgs) Try Dim streamToPrint As StreamReader = new StreamReader ("PrintMe.Txt") Try '假定为默认打印机 Dim pd As TextFilePrintDocument = new TextFilePrintDocument(streamToPrint) If Not (storedPageSettings Is Nothing) Then pd.DefaultPageSettings = storedPageSettings End If Dim dlg As New PrintDialog() dlg.Document = pd Dim result As DialogResult = dlg.ShowDialog() If (result = System.Windows.Forms.DialogResult.OK) Then pd.Print() End If Finally streamToPrint.Close() End Try Catch ex As Exception MessageBox.Show("打印文件时发生错误 - " + ex.Message) End Try End Sub '在用户按下页面预览按钮时激发的事件 Private Sub printPreviewButton_Click(sender As object, e As System.EventArgs) Try Dim streamToPrint As StreamReader = new StreamReader ("PrintMe.Txt") Try '假定为默认打印机 Dim pd As TextFilePrintDocument = new TextFilePrintDocument(streamToPrint) If Not (storedPageSettings Is Nothing) Then pd.DefaultPageSettings = storedPageSettings End If Dim dlg As New PrintPreviewDialog() dlg.Document = pd dlg.ShowDialog() Finally streamToPrint.Close() End Try Catch ex As Exception MessageBox.Show("发生错误 - " + ex.Message) End Try End Sub '窗体重写 dispose 以清理组件列表。 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub #Region " Windows 窗体设计器生成的代码 " 'Windows 窗体设计器所必需的 Private components As System.ComponentModel.Container Private WithEvents printButton As System.Windows.Forms.Button Private WithEvents pageSetupButton As System.Windows.Forms.Button Private WithEvents printPreviewButton As System.Windows.Forms.Button Private WithEvents PrintForm As System.Windows.Forms.Form '注意：下列过程是 Windows 窗体设计器所必需的 '可以使用 Windows 窗体设计器修改它。 '不要使用代码编辑器修改它。 Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.printPreviewButton = New System.Windows.Forms.Button() Me.pageSetupButton = New System.Windows.Forms.Button() Me.printButton = New System.Windows.Forms.Button() Me.Text = "打印示例 5" Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(504, 381) printPreviewButton.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft printPreviewButton.FlatStyle = System.Windows.Forms.FlatStyle.Flat printPreviewButton.Size = New System.Drawing.Size(136, 40) printPreviewButton.TabIndex = 2 printPreviewButton.Location = New System.Drawing.Point(32, 210) printPreviewButton.Text = "打印预览" pageSetupButton.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft pageSetupButton.FlatStyle = System.Windows.Forms.FlatStyle.Flat pageSetupButton.Size = New System.Drawing.Size(136, 40) pageSetupButton.TabIndex = 1 pageSetupButton.Location = New System.Drawing.Point(32, 160) pageSetupButton.Text = "页面设置" printButton.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft printButton.FlatStyle = System.Windows.Forms.FlatStyle.Flat printButton.Size = New System.Drawing.Size(136, 40) printButton.TabIndex = 0 printButton.Location = New System.Drawing.Point(32, 112) printButton.Text = "打印文件" Me.Controls.Add(printButton) Me.Controls.Add(pageSetupButton) Me.Controls.Add(printPreviewButton) End Sub #End Region '应用程序的主要入口点 <STAThread()> Shared Sub Main() System.Windows.Forms.Application.Run(New PrintForm()) End Sub End Class End Namespace [/sell]

ASP.NET源码下载专区

ASP.NET CMS源码下载专区

ASP.NET快速开发框架下载专区

Asp.net视频教程,asp.net教程,文档下载

JQuery插件,Jquery教程,Jquery ui

ASP.NET Extjs 系列专区

ASP.NET Entity Framework 系列专区

ASP.NET MVC 系列专区

使用道具举报