VB.NET2010 编程实现Word双面打印

先上成品图一张。

起因：

家里有一台激光打印机，便宜货，无法实现自动双面打印，由于要打印资料，本着节约纸张，绿色生活的理念(其实纸张很贵 - -||，不双面打不行哇)，手动送纸，翻页，实现双面打印，非常麻烦

解决方案：

1、先顺序打印奇数页；

2、后逆序打印偶数页；

按照以上方法，打印完到手上的纸张为正确的顺序。

难点：

VB.NET操作word打印。

核心Code:

    Private Sub btnBroswer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBroswer.ClickDim dlg As New OpenFileDialogdlg.Title = "请选择一个待打印的Word文档"dlg.Filter = "所有文件|*.*|Word2003|*.doc|Word2007|*.docx"dlg.InitialDirectory = Environment.SpecialFolder.DesktopDirectorydlg.ShowDialog()If dlg.FileName <> "" ThentxtPath.Text = dlg.FileNamestrPrintFirst = ""strPrintSecond = ""strPrintThird = ""btnPrint1.Enabled = FalsebtnPrint2.Enabled = FalsebtnPrint3.Enabled = False'隐藏word程序oWordApplic.Visible = FalseoDocument.Close(Word.WdSaveOptions.wdDoNotSaveChanges)'打印待打印的word文档oDocument = oWordApplic.Documents.Open(txtPath.Text, Missing, True, Missing, Missing, Missing, Missing, Missing, Missing, Missing, Missing, True, Missing, Missing, Missing, Missing)'获取页面总页数iTotalPages = oDocument.ComputeStatistics(WdStatistic.wdStatisticPages)If iTotalPages Mod 2 Then'页面为奇数For i = 1 To iTotalPages - 1 Step 2strPrintFirst &= i & ","NextFor i = iTotalPages - 1 To 2 Step -2strPrintSecond &= i & ","NextstrPrintThird = iTotalPages.ToString()Else'页面为偶数For i = 1 To iTotalPages Step 2strPrintFirst &= i & ","NextFor i = iTotalPages To 2 Step -2strPrintSecond &= i & ","NextEnd IfstrPrintFirst = strPrintFirst.Substring(0, strPrintFirst.Length - 1)strPrintSecond = strPrintSecond.Substring(0, strPrintSecond.Length - 1)If iTotalPages = 1 ThenGroupBox1.Text = "打印信息:" & iTotalPages & "页/1次打印"btnPrint1.Enabled = TruebtnPrint2.Enabled = FalsebtnPrint3.Enabled = FalseExit SubEnd IfIf strPrintThird <> "" ThenGroupBox1.Text = "打印信息:" & iTotalPages & "页/3次打印"btnPrint1.Enabled = TruebtnPrint2.Enabled = TruebtnPrint3.Enabled = TrueElseGroupBox1.Text = "打印信息:" & iTotalPages & "页/2次打印"btnPrint1.Enabled = TruebtnPrint2.Enabled = TruebtnPrint3.Enabled = FalseEnd IfEnd IfEnd Sub

    Private Sub btnPrint1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint1.ClickIf MsgBoxResult.Yes = MsgBox("请确认打印机已经打开，纸张足够？", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "无痕软件") ThenbtnPrint1.Enabled = FalseoDocument.PrintOut(Range:=4, Pages:=strPrintFirst)End IfEnd Sub

源码+编译程序下载地址

百度网盘编译程序下载(无源码)

注意：需要安装office2007方可正常运行。

VB.NET2010 编程实现Word双面打印相关推荐

word中装订线位置_Word操作技巧：Word文档双面打印全攻略，解决打印难题
各位亲爱的小伙伴,大家好! Word作为最常用的办公软件,撰写文档,文档排版.打印文档等都会用到.其中,打印文档可以算是工作过程中最常用到的技能了,但对Word的打印功能你了解多少? 今天我来给大家介 ...
蓝桥杯大赛青少年创意编程第十一届省赛 C++组试题第1题双面打印
/* 蓝桥杯大赛青少年创意编程第十一届省赛 C++组试题第1题双面打印题目描述在2020年这个漫长的寒假里,虽然小蓝和他的同学们都在家里,但依旧通过网课的方式坚持学习,而老师们也依旧会布置作 ...
word 手动双面打印设置
直接用Word的"手工双面打印"功能.在打印对话框里选中"手工双面打印",然后点对话框左下角的"选项",在弹出的对话框中选中"双 ...
a4如何打印双面小册子_用word如何打印小册子(一张A4打两张那种的)
用word打印小册子具体操作步骤: 1.首先打开将要打印的文档,然后在菜单栏下面的快捷菜单栏,找到打印机的快捷图标,单击鼠标左键选择打开打印机. 2.会弹出打印机设置对话框,可以进行打印前的一些细节的 ...
为什么使用Adobe Acrobat打开pdf，不能双面打印，而 word 却可以双面打印
为什么会出现这样的事情呢? 经查阅资料发现原来是本地默认的打印机没有安装双面打印的组件 . 解决方法如下: 安装双面打印组件 1.选择开始--> 设备和打印机--> 找到默认的打印机 ...
Word控件Spire.Doc 【书签】教程(1)：在C#/VB.NET：在 Word 中插入书签
Spire.Doc for .NET是一款专门对 Word 文档进行操作的 .NET 类库.在于帮助开发人员无需安装 Microsoft Word情况下,轻松快捷高效地创建.编辑.转换和打印 Micr ...
WORD 在打印时自动加上批量编号编号
如何让WORD在打印时自动加上打印份数编号问题的提出: 老婆所在的公司需要做2011年整年的文档和表格,里面的编号随着打印份数自动更新:比如需要打印100份,每份编号则按顺序从 0001排到 010 ...
Word控件Spire.Doc 【图像形状】教程(2) ；在 C#、VB.NET 中从 Word 中提取图像
Spire.Doc for .NET是一款专门对 Word 文档进行操作的 .NET 类库.在于帮助开发人员无需安装 Microsoft Word情况下,轻松快捷高效地创建.编辑.转换和打印 Micr ...
Word控件Spire.Doc 【Table】教程(16)：C#/VB.NET：在 Word 表格中插入或提取图像
Spire.Doc for .NET是一款专门对 Word 文档进行操作的 .NET 类库.在于帮助开发人员无需安装 Microsoft Word情况下,轻松快捷高效地创建.编辑.转换和打印 Micr ...
wps纸张大小设置成A4_WPS双面打印时怎么设置奇偶页不同的装订线？方法超简单...
平时我们在阅读大量工作文件,或者是看小说.学习一门专门的专业知识时,很多人都会喜欢看电子版的文档.但是,长时间对着电脑或者是手机看文档,不仅眼睛会容易感到疲劳,可能还是导致头疼,所以此时,将需要看的大 ...

VB.NET2010 编程实现Word双面打印

VB.NET2010 编程实现Word双面打印相关推荐

最新文章

热门文章