vb.net excel操作：填充人事档案表并打印 中打印补充
本节文章是对《vb.net excel操作：填充人事档案表并打印》的补充。
本节将不使用默认打印机进行打印，实现自主选择打印机。
原代码中使用打印语句如下：
Wsheet.PrintOutEx(1, pagecount, 1, False, xls.ActivePrinter, True, True, printFile, True)
其中
xls.ActivePrinter
是使用的默认打印机。那么结合使用
System.Drawing.Printing.PrinterSettings.InstalledPrinters
来获得所有打印机后，向PrintOutEx传入对应的打印机名称替换xls.ActivePrinter，即可在代码中使用相应的打印机进行打印。
在原窗体上增加两个控件：
增加的代码：
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadFor Each pname As String In System.Drawing.Printing.PrinterSettings.InstalledPrintersComboBox1.Items.Add(pname)NextEnd SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickDim modelfilePath As String = (New IO.FileInfo(modelFile)).Directory.FullNameDim xlsEmployeeFile As String = modelfilePath & "\" & txtXm.Text & ".xlsx"Dim printFile As StringIf ComboBox1.Text.IndexOf("PDF") > 0 ThenprintFile = modelfilePath & "\" & txtXm.Text & "1.pdf"ElseprintFile = modelfilePath & "\" & txtXm.Text & "1.oxps"End IfDim xls As New Excel.ApplicationDim Wbook As Excel.Workbook = xls.Workbooks.Open(xlsEmployeeFile)Dim Wsheet As Excel.WorksheetWsheet = Wbook.Worksheets(1)'可以使用PageSetup.Pages.Cpount获得总的页数，但是Excel要消耗时间和资源'这里由于只有一页，可以不考虑使用PageSetup.Pages.CpountDim pagecount As Integer = 1 ' Wsheet.PageSetup.Pages.Count'开始打印Wsheet.PrintOutEx(1, pagecount, 1, False, ComboBox1.Text, True, True, printFile, True)xls.Quit()MessageBox.Show("打印完成")End Sub窗体载入时后，遍历本地所有的打印机，我的电脑没有实体打印机，这里一共5个打印设备，将会选择如下两个虚拟打印机分别进行测试：
分别选择上述两个打印机，生成的文件：
Visual Basic.Net 循序渐进》的下载地址：
链接：https://pan.baidu.com/s/1IfaLvlklx-nT4KK4VKZuIw
提取码：ip5n
目前教程提供了学习章节共计569节，提供了示例502个，并在不断扩充中。
这是博主自己总结了多年VB开发经验后，结合实际开发编著的教程。
《Visual Basic.Net 循序渐进》前言
《Visual Basic.Net 循序渐进》详细目录
vb.net excel操作：填充人事档案表并打印 中打印补充相关推荐
- 计算机一级excel0分,探究计算机一级Word和Excel操作自动评分的实现
Word 和Excel 操作自动评分是计算机一级评分中的重要内容,计算机一级涉及考生多,实现公正客观的评分并不容易.在计算机一级评分过程中工作人员可以通过VBA 技术来实现对考生答案的自动评分.当前在 ...
- 如何利用系统OA进行企业员工人事档案管理
人力资源管理是企业管理的一个重要分支,企业每天都要涉及众多的人员管理问题,人员的增减变动能够直接影响到企业的整体运作.人事档案作为企业人力资源管理的重要部分,在企业正常运营中具有十分重要的作用.通过建 ...
- 【计算机毕业设计】526教师人事档案管理系统
一.系统截图(需要演示视频可以私聊) 摘 要 教师人事档案管理系统理工作是一种繁琐的,务求准确迅速的信息检索工作.随着计算机信息技术的飞速发展,人类进入信息时代,社会的竞争越来越激烈,教师人事档案就 ...
- 人事档案管理系统档案项目实施步骤包括哪些内容
人事档案管理系统项目的实施工作将严格按照 ISO9001 标准实行过程控制,档案项目实施步骤主要分为标准软件实施和个性化功能开发两大阶段. 1. 需求分析 (1) 成立项目组,确定项目负责人和成员工作 ...
- vb.net html里的表格,VB.Net - Excel工作表
VB.Net提供对Microsoft Excel 2010的COM对象模型和应用程序之间的互操作性的支持. 要在应用程序中使用此互操作性,您需要在Windows窗体应用程序中导入命名空间Microso ...
- 如何通过VB合并Excel单元格以及设置Excel行高？VB创建Excel表格，合并单元格，生成图形等操作
如何通过VB合并Excel单元格以及设置Excel行高? 例如:我想把第一列的第4,5,6,7行合并...我在怎样让合并单元格里的字居中,怎样改变字体. 请不吝赐教... ============== ...
- vb.net 教程 10-2 Excel操作1 Excel文件的打开
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 为了便于理解Excel操作,我做了一个示意图 1.打开Excel,相当于新建了一个Applica ...
- 本工作簿不能再使用其他新字体_1.2.16 EXCEL篇之关于工作表的操作合集
本篇的开始,还要从复制一个表格说起... 相信不少童鞋复制一个表格到其他工作表,都是以下的操作:框选表格→复制粘贴到目标工作表→调整行高列宽,如下图所示 可以看到这样简单粗暴地直接复制粘贴过去,新表的 ...
- ：批量制作档案表，要从excel表格中将每个人的数据导入到docx档案
https://www.pythonf.cn/read/149081 Python自动将Excel数据填充到word的指定位置,Word,中 具体代码如下: #!/usr/bin/env python ...
最新文章
- Chkdsk 工具将自动启动时启动的运行 Windows XP Service Pack 2 计算机扫描磁盘
- 图像去模糊（逆滤波）
- 官网快速搭建spring boot 项目
- Android SDK Manager 加载不出tools解决办法
- 对永磁无刷电机的调速过程
- python画相关性可视化图_Python可视化很简单，一文教你绘制饼图、极线图和气泡图...
- 网络货运平台要智能，安全的数据底座少不了
- 计算机应用word作业,《计算机应用基础》作业
- 关于javascript中apply()和call()方法
- 网页设计中时尚的下拉菜单案例
- Python脚本的“__name__”属性
- pk8/pem秘钥转keystore格式
- 信号与系统相关知识回顾总结
- 动态路由ospf、DR和BDR
- win7系统无法连接局域网服务器,Win7局域网无法访问如何解决？
- Zookeeper简单搭建
- [转] linux操作系统下c语言编程入门
- [北力电子] 无人机4G图传数传一体 pixhawk mavlink GSLINK 720P
- Cesium本地加载地形（dem高程）数据
- Windows系统上搭建私有云OwnCloud【保姆级别的教程】