十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
就是重绘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时才可以。