就是重绘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
==================================================
效果如图：
NET中数据库数据导入Excel并打印摘要：众所周知，WEB上的打印是比较困难的，常见的WEB上打印的方法大概 ... type=button value=打印预览onclick=document.all.WebBrowser.ExecWB(7,1) ... 3、将数据库的数据或要打印的内容导出到Excel，Word中去打印
你在窗体中放一个图片框（比如Picture1），然后你把上述代码中所有的Printer都换成Picture1（但最后一行即Printer.EndDoc要删掉），效果就是打印预览了。
可以调用窗体的PrintForm方法用打印机打印整个窗体，比如
[窗体名字.]PrintForm
如果省略窗体名字表示打印当前窗体。
需要注意的是，用PrintForm方法时必须先显示窗体。打印的内容是整个窗体图像，包括菜单栏，标题栏等。另外，如果窗体包括图形，必须将窗体的AutoRedraw属性设为True时才可以。
