vb.net excel操作:填充人事档案表并打印

2020/7/11 10:56:29 人评论 次浏览 分类:学习教程

节选自:《Visual Basic.Net 循序渐进》

【例 21.7【项目:code21-007】填充人事档案表并打印。

本例使用到的Excel文件为:职员信息登记表.xlsx,如下图所示:

图21-10 职员信息登记表

窗体设计如下图所示(注意:为了演示方便,已经填充了数据):

图21-11 窗体设计

在本例中还需要掌握的知识:

1、插入图片到指定位置

Worksheet.Shapes.AddPicture(Filename, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

  1. 参数Filename:必选,图片全路径。
  2. 参数LinkToFile:必选,如果为True,则建立图片与其源文件之间的链接关系。否则,使图片成为其源文件的独立副本。通常设置为True。
  3. 参数SaveWithDocument:必选,如果是True,则将图片与文档一起保存。否则,只链接到图片文件。通常设置为True。
  4. 参数Left:必选,图片左上角相对于文档左上角的位置(以磅为单位)。
  5. 参数Top:必选,图片左上角相对于文档顶部的位置(以磅为单位)。
  6. 参数Width:必选,图片的宽度(以磅为单位)。
  7. 参数Height:必选,图片的高度(以磅为单位)。
  8. 返回值:一个代表新图片的Shape对象。

2、打印输出

Worksheet.PrintOutEx(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)

  1. 参数From:可选,打印的开始页号。如果省略此参数,则从起始位置开始打印。
  2. 参数To:可选,打印的终止页号。如果省略此参数,则打印至最后一页。
  3. 参数Copies:可选,打印份数。如果省略此参数,则只打印一份。
  4. 参数Preview:可选,如果为 True,将在打印前调用打印预览。如果为 False(或省略该参数),则立即打印。
  5. 参数ActivePrinter:可选,设置活动打印机的名称,如果不设置,将使用默认打印机。
  6. 参数PrintToFile:可选,如果为True,则打印到文件。如果没有指定 PrToFileName,将提示用户输入要使用的输出文件的文件名。
  7. 参数Collate:可选,如果为True,则逐份打印多个副本。
  8. 参数PrToFileName:可选,如果PrintToFile 设为True,则该参数指定要打印到的文件名。
  9. 参数IgnorePrintAreas:可选,如果为True,则忽略打印区域并打印整个对象。

具体代码如下:(说明:教材中配套代码附上了详细说明,这里简化了):

    '需要套用的模板文件
    Dim modelFile As String = "d:\lessons\职员信息登记表.xlsx"
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim modelfilePath As String = (New IO.FileInfo(modelFile)).Directory.FullName

        Dim xls As New Excel.Application
        Dim Wbook As Excel.Workbook = xls.Workbooks.Open(modelFile)
        Dim Wsheet As Excel.Worksheet
        Wsheet = Wbook.Worksheets("sheet1")

         Wsheet.Cells(2, 2).value = txtXm.Text
        Wsheet.Cells(2, 4).value = txtXb.Text
        Wsheet.Cells(2, 6).value = txtMz.Text
        Wsheet.Cells(2, 8).value = txtCsny.Text
        Wsheet.Cells(3, 2).value = txtJkzk.Text
        Wsheet.Cells(3, 4).value = txtSg.Text
        Wsheet.Cells(3, 6).value = txtJg.Text
        Wsheet.Cells(3, 8).value = txtHyzk.Text
        Wsheet.Cells(4, 2).value = txtWhcd.Text
        Wsheet.Cells(4, 4).value = txtByyx.Text
        Wsheet.Cells(4, 7).value = txtSxzy.Text
        Wsheet.Cells(5, 2).value = txtGzbm.Text
        Wsheet.Cells(5, 4).value = txtZw.Text
        Wsheet.Cells(5, 6).value = txtRzsj.Text
        Wsheet.Cells(5, 8).value = txtZc.Text
        Wsheet.Cells(6, 2).value = txtLxdz.Text
        Wsheet.Cells(6, 5).value = txtLxdh.Text
        Wsheet.Cells(7, 2).value = txtGrjl.Text
        Wsheet.Cells(8, 2).value = txtQk.Text
        Wsheet.Cells(9, 2).value = txtGrtc.Text

        Dim picWidth, picHeight As Integer
        Dim picTop, picLeft As Integer
        picWidth = Wsheet.Range("I2").MergeArea.Width - 4
        picHeight = Wsheet.Range("I2").MergeArea.Height - 4
        picTop = Wsheet.Range("I2").Top + 2
        picLeft = Wsheet.Range("I2").Left + 2
        Dim picShape As Excel.Shape
        picShape = Wsheet.Shapes.AddPicture(modelfilePath & "\Employee\" & txtXm.Text & ".jpg",
                                            True, True, picLeft, picTop, picWidth, picHeight)
        Wbook.SaveAs(modelfilePath & "\" & txtXm.Text & ".xlsx")
        xls.Quit()
        MessageBox.Show("输出完成")
    End Sub


    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim modelfilePath As String = (New IO.FileInfo(modelFile)).Directory.FullName
        Dim xlsEmployeeFile As String = modelfilePath & "\" & txtXm.Text & ".xlsx"
        Dim printFile As String = modelfilePath & "\" & txtXm.Text & "1.oxps"

        Dim xls As New Excel.Application
        Dim Wbook As Excel.Workbook = xls.Workbooks.Open(xlsEmployeeFile)
        Dim Wsheet As Excel.Worksheet
        Wsheet = Wbook.Worksheets(1)
        Dim pagecount As Integer = 1 ' Wsheet.PageSetup.Pages.Count
        Wsheet.PrintOutEx(1, pagecount, 1, False, xls.ActivePrinter, True, True, printFile, True)
        xls.Quit()
        MessageBox.Show("打印完成")
    End Sub



 

当按下“输出”按钮,将输出对应职员信息并保存为职员名字的xlsx文件。

当按下“打印”按钮,将输出的xlsx文件使用默认打印机进行打印,由于笔者计算机没有连接真实打印机,使用默认的“Microsoft XPS Document Writer”打印到文件,如果使用真实打印机,请修改PrintOutEx方法的参数,使之符合打印。

生成的xlsx文件效果如下:

图21-12 保存的Excel文件中的数据

打印的效果如下:

图21-13 打印生成的文件

本例中更适合从数据库中读取数据填入Excel中并打印,读取数据库填充数据,请参看第21.2.2节。还可以将输出数据与打印相结合,省略文件保存的步骤。



Visual Basic.Net 循序渐进》的下载地址:
链接:https://pan.baidu.com/s/1IfaLvlklx-nT4KK4VKZuIw 
提取码:ip5n

目前教程提供了学习章节共计569节,提供了示例502个,并在不断扩充中。
这是博主自己总结了多年VB开发经验后,结合实际开发编著的教程。
《Visual Basic.Net 循序渐进》前言
《Visual Basic.Net 循序渐进》详细目录
《Visual Basic.Net 循序渐进》范例列表

 

由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供的参考。

相关资讯

    暂无相关的资讯...

共有访客发表了评论 网友评论

验证码: 看不清楚?
    -->