就是重繪printPreviewDialog1控件??丶萜髦校琓oolStrip控件。
做網(wǎng)站、成都做網(wǎng)站的關(guān)注點不是能為您做些什么網(wǎng)站,而是怎么做網(wǎng)站,有沒有做好網(wǎng)站,給創(chuàng)新互聯(lián)一個展示的機會來證明自己,這并不會花費您太多時間,或許會給您帶來新的靈感和驚喜。面向用戶友好,注重用戶體驗,一切以用戶為中心。
目的:在ToolStrip控件集合中添加一個ToolStripButton控件按鈕。
代碼如下:
====================================================
Public Class Form1
'定義相關(guān)變量
Private ppdlog1 As New?printPreviewDialog ?'預(yù)覽控件
Private mytoolstrip1 As New ToolStrip
Private WithEvents myButton1 As New ToolStripButton '新按鈕
'------------------創(chuàng)建新按鈕的過程
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()中調(diào)用如下:
'--------------------------------------------
Public Sub New()
' 此調(diào)用是設(shè)計器所必需的。
' 在 InitializeComponent() 調(diào)用之后添加任何初始化。
CreatemyButton() ?'創(chuàng)建“新按鈕”的過程
End Sub
'----------------------------------------------------
'myButton1的Click過程
'===================
Private Sub myButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("新按鈕創(chuàng)建成功!")
'//執(zhí)行代碼.......
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中數(shù)據(jù)庫數(shù)據(jù)導(dǎo)入Excel并打印摘要:眾所周知,WEB上的打印是比較困難的,常見的WEB上打印的方法大概 ... type=button value=打印預(yù)覽onclick=document.all.WebBrowser.ExecWB(7,1) ... 3、將數(shù)據(jù)庫的數(shù)據(jù)或要打印的內(nèi)容導(dǎo)出到Excel,Word中去打印
你在窗體中放一個圖片框(比如Picture1),然后你把上述代碼中所有的Printer都換成Picture1(但最后一行即Printer.EndDoc要刪掉),效果就是打印預(yù)覽了。
可以調(diào)用窗體的PrintForm方法用打印機打印整個窗體,比如
[窗體名字.]PrintForm
如果省略窗體名字表示打印當(dāng)前窗體。
需要注意的是,用PrintForm方法時必須先顯示窗體。打印的內(nèi)容是整個窗體圖像,包括菜單欄,標(biāo)題欄等。另外,如果窗體包括圖形,必須將窗體的AutoRedraw屬性設(shè)為True時才可以。