1、先定义一个类,名称:MyPrint_dlg
'-----------------------------------------
Public Class MyPrint_dlg
Public MyPreviewdlg As New PrintPreviewDialog '声明对象变量
Private toolStrip1 As New ToolStrip ' PrintPreviewDialog 中Controls集合中ToolStrip控件
Private WithEvents NButton As New ToolStripButton ' PrintPreviewDialog 中Controls集合中ToolStrip控件的按钮对象
Event NButton_Click() '新按钮的事件
'创建新按钮的过程
'----------------------------------
Public Sub CreatButton()
Dim c As Control
For Each c In MyPreviewdlg.Controls
If TypeName(c) = "ToolStrip" Then toolStrip1 = c
NButton.Text = "页面设置"
Next
toolStrip1.Items.Add(NButton)
End Sub