VB.NET生成XPS文档

本文主要解决的问题有

1、XPS文档生成问题
2、利用打印机生成时，弹出正在打印第几页的问题
3、XPS内容写入基本操作

XPS文档对比PDF的优势

1、XPS文档不易更改，利用这个优点，可以用来生成报告，具有权威性
2、系统本身就具有XPS文档阅读功能，因此无需安装其他的阅读软件

XPS文档对比PDF的优势

1、XPS文档不易更改，利用这个优点，可以用来生成报告，具有权威性
2、系统本身就具有XPS文档阅读功能，因此无需安装其他的阅读软件

生成XPS文档的方法

第一个办法：根据XPS相关操作的命名空间来解答。
第二个方法，利用打印机自身的特性，生成XPS文档的功能生成XPS文档。

分别对以上两种方法进行说明：

第一种方法，根据XPS的命名空间，定义相关的函数属性，可以完成，这个方法VB.NET实现的例子很少，由于VB.NET与wpf语言之间有相似之处，因此也可以查找wpf语言利用命名空间生成XPS文档的案例，如下的链接提供了一个很好的参考：

wpf生成XPS文档示例

第二种方法，相比第一种方法，第二种方法简单明了，调用计算机打印功能，在没有真实打印机或者设置相关属性的条件下，系统生成XPS文档。

这里利用的是第二种方法。
这里用到打印相关控件：PrintDialog 、PrintDocument，具体属性可以查询相关的帮助文档。

软件界面截图以及结果显示

界面显示以及结果展示:
。

程序代码

`程序集添加 system.drawin

Imports System.Drawing.Printing'思想：通过打印的方法来实现XPS文件的生成
Public Class Form1Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPageDim g As Graphics = e.Graphics'定义画线用的画笔Dim ppen As Pen = New Pen(Color.Black, 1)Dim mpen As New Pen(Color.Black, 2)   '定义画线用的画笔g.DrawLine(ppen, 30, 100, 60, 100) '最上头的横线g.DrawRectangle(mpen, 70, 100, 700, 1000) '边框，前两个数为左顶点坐标，后两位表示宽和长Dim sf As New StringFormat With {.Alignment = StringAlignment.Center}Dim rect As New Rectangle(70, 125, 700, 190)g.DrawString("XPS文档生成示例", New Font("微软雅黑", 24), New SolidBrush(Color.Black), rect, sf)  '设置标题，居中，字号g.DrawString("这是一个打印的例子", New Font("宋体", 20), New SolidBrush(Color.Blue), New Point(70, 200)) '设置了打印的内容，字体，颜色以及位置g.DrawString(TextBox1.Text, New Font("宋体", 20), New SolidBrush(Color.Red), New Point(70, 150))End SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click'默认输出选项为XPSDim ps As PrinterSettings = PrintDialog1.PrinterSettingsps.DefaultPageSettings.PrinterSettings.PrinterName = “Microsoft XPS Document Writer”'打印到文件以及打印的文件名PrintDocument1.PrinterSettings.PrintToFile = TruePrintDocument1.PrinterSettings.PrintFileName = "标题.XPS" '保存文档的标题PrintDocument1.PrintController = New StandardPrintController() '屏蔽弹出的打印第几页的窗口PrintDocument1.Print()End SubEnd Class

由于楼主也尚在学习阶段，因此有关用词不当之处敬请谅解。

参考文档：

VB.NET打印组件的应用