189 8069 5689
NET中数据库数据导入Excel并打印摘要：众所周知，WEB上的打印是比较困难带备的，常见的WEB上打印的方法大概 ... type=button value=打印预览onclick=document.all.WebBrowser.ExecWB(7,1) ... 3、将数据库的蠢弊毁数据或要打印的内容导出到卜知Excel，Word中去打印
成都创新互联公司服务项目包括丰城网站建设、丰城网站制作、丰城网页制作以及丰城网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，丰城网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到丰城省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
你可以使用Spire.Xls来实现。Spire.Xls可以让你方便地好唤将excel中指定的首模sheet导出为pdf文件，并且支持在导出时指定sheet2和sheet3。同友芹凯样可以使用该框架来快速预览生成的pdf文件。
就是重绘printPreviewDialog1控件。控件容器中，包含ToolStrip控件。
目的：在ToolStrip控件碰闹锋集合中弯或添加一个ToolStripButton控件按钮。
代码如下：
====================================================
Public Class Form1
'定义相关变量
Private ppdlog1 As New printPreviewDialog 笑晌'预览控件
Private mytoolstrip1 As New ToolStrip
Private WithEvents myButton1 As New ToolStripButton '新按钮
'------------------创建新按钮的过程
Private Sub CreatemyButton()
Dim c1 As Control
For Each c1 In ppdlog1.Controls
If TypeName(c1) = "ToolStrip" Then
mytoolstrip1 = c1
End If
Next
myButton1.Text = "新按钮"
mytoolstrip1.Items.Add(myButton1)
End Sub
'-----------------------
'在Sub New()中调用如下：
'--------------------------------------------
Public Sub New()
' 此调用是设计器所必需的。
' 在 InitializeComponent() 调用之后添加任何初始化。
CreatemyButton() '创建“新按钮”的过程
End Sub
'----------------------------------------------------
'myButton1的Click过程
'===================
Private Sub myButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("新按钮创建成功！")
'//执行代码.......
End Sub
'===================
'测试一下：
'----------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ppdlog1.Document = PrintDocument1
ppdlog1.ShowDialog()
End Sub
'----------------
End Class
==================================================
效果如图：