winform 根据Excel模版打印文件

原创 2013年12月06日 10:50:45
Dim app As New Excel.Application
Dim workbook As Excel.Workbook
Dim worksheet As Excel.Worksheet

Dim strFiled As String=String.Empty
Dim strPrintName As String=String.Empty

app.Visible = False
app.DisplayAlerts = False
workbook = app.Workbooks.Open(Excel文件)
worksheet = workbook.Sheets(1)

'根据ExcelSheet名选中模版
Dim bln As Boolean = False
For i As Integer = 1 To workbook.Sheets.Count
    If workbook.Sheets(i).Name.Equals(Me.txtSendTypeName.Text.Trim) Then
       worksheet = workbook.Sheets(i)
       bln = True
       Exit For
    End If
Next

If bln = False Then
   MsgBox("打印模板没有找到!")
Else
   worksheet.Select()
   With worksheet        
       '选中区域
        .Range("A1:AZ26").Select() 

       '替换区域
        app.Selection.Replace(What:=strFiled, Replacement:=Me.txtFiled.Text.Trim, LookAt:=Excel.XlLookAt.xlWhole, SearchOrder:=Excel.XlSearchOrder.xlByRows, MatchCase:=False, SearchFormat:=False,ReplaceFormat:=False)

        .Range("A1").Select()   
   End With

'设置默认打印机

Dim strDefaultPrinter As String = app.ActivePrinter If Not strPrintName.Trim.Equals("") Then       
    app.ActivePrinter = strDefaultPrinter '设置Excel的默认打印机    
End If

'打印
worksheet.PrintOut()

'指定默认打印机
app.ActivePrinter = strDefaultPrinterEnd If

'关闭Excel文件
workbook.Close()
app.Quit()
app = Nothing

说明:

Range.Replace 方法:

返回 Boolean,它表示指定区域内单元格中的字符。使用此方法并不会更改选定区域或活动单元格。

语法 表达式.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat)

参数 可选/必选 说明
What 必选 Excel 要搜索的字符串。
Replacement 必选 替换字符串。
LookAt 可选 可为以下 XlLookAt 常量之一:xlWhole 或 xlPart。
SearchOrder 可选 可为以下 XlSearchOrder 常量之一:xlByRows 或 xlByColumns。
MatchCase 可选 布尔值。如果为 True,则搜索区分大小写。
MatchByte 可选 只有在 Microsoft Excel 中选择或安装了双字节语言时,才能使用此参数。如果为 True,则双字节字符只与双字节字符匹配。如果为 False,则双字节字符可与其对等的单字节字符匹配。
SearchFormat 可选 该方法的搜索格式。
ReplaceFormat 可选 该方法的替换格式。

相关文章推荐

C#关于Excel导出及打印

添加DLL文件   Using: using Excel = Microsoft.Office.Interop.Excel;   调用: //Excel模板文件 string str...

c#调用excel的打印预览页

Excel.Application excelApp = new Excel.Application(); //不可或缺 excelApp.Visib...
  • farcall
  • farcall
  • 2015年01月07日 04:34
  • 2193

C#创建与Excel打印输出(转载)

摘要:本文介绍了Excel对象、C#中的受管代码和非受管代码,并介绍了COM组件在.NET环境中的使用。 0 引言     Excel是微软公司办公自动化套件中的一个软件,他主要是用来处理电子表格...
  • kirawoo
  • kirawoo
  • 2015年06月19日 08:34
  • 835

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

C# 导出 Excel 和相关打印设置(不断更新中)

Excel.Application myExcel = new Excel.Application(); Excel.Workbook workbookData = myExcel.Applicat...

C#打印EXCEL(二)

0.引用命名空间 using Word = Microsoft.Office.Interop.Word; using Office = Microsoft.Office.Core; ...

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

C# 设置Excel打印选项及打印excel文档

C# 设置Excel打印选项及打印excel文档 打印Excel文档是一个很常见的操作,但有时候我们会碰到各种不同的打印需求,例如只打印一个Excel工作表的其中一部分,或打印时每页都有表头,或把工作...

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:winform 根据Excel模版打印文件
举报原因:
原因补充:

(最多只允许输入30个字)