這個(gè)專業(yè)我也學(xué)得不是很好，用書(shū)上得例子吧。
專注于為中小企業(yè)提供成都做網(wǎng)站、網(wǎng)站建設(shè)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)修文免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了上千多家企業(yè)的穩(wěn)健成長(zhǎng)，幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
某公司盡力需要了解公司在全國(guó)各地得銷售情況，設(shè)計(jì)一個(gè)水晶報(bào)表。統(tǒng)計(jì)個(gè)地區(qū)得銷售總額和全國(guó)總額
準(zhǔn)備工作
用 SQL server 2000 創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)company 在該數(shù)據(jù)庫(kù)中創(chuàng)建一個(gè)表Sales.用于儲(chǔ)存區(qū)域銷售數(shù)據(jù)
在表Sales 中添加若干條記錄
設(shè)計(jì)報(bào)表
打開(kāi) Visual Studio.NET創(chuàng)建名為 Salesreport得 WINDOWS應(yīng)用程序 將Form1.cs 名更改為 frmSalesReport.cs
frmSalesReport窗體得屬性設(shè)置里。 吧 frmSalesReport.cs得Text屬性更改為"區(qū)域銷售報(bào)表"
把NAME屬性更改為frmSalesReport。
在 VisualStudio.NET 菜單中選擇 項(xiàng)目添加新項(xiàng)。在"添加新項(xiàng)"窗口得“類別”區(qū)域擴(kuò)展 “本地項(xiàng)目項(xiàng)”，選擇數(shù)據(jù)，在"模板"區(qū)域選擇"數(shù)據(jù)集" 在"名稱"那將Dataset1.xsd改名 SalesDetaset.xsd
單擊"打開(kāi)" 將生成一個(gè)新得結(jié)構(gòu)文件 SalesDataset.xsd 該文件將顯示在 ADO.NET數(shù)據(jù)集設(shè)計(jì)器中。
Visual Basic通用報(bào)表設(shè)計(jì)小結(jié)
本文對(duì)vb設(shè)計(jì)報(bào)表的方法作了一個(gè)小結(jié)，大家都知道，在VB平臺(tái)下制作報(bào)表大致有兩種選擇：使用VB自帶的Data Report控件和借助第三方軟件。其中第三方軟件比較著名的就是MS Excel和Seagate公司的CrystalReporter，以下就這三個(gè)方案進(jìn)行詳細(xì)的討論。
1. Data Report控件
1．1 Data Report控件使用方法
由于是VB自帶的控件，所以使用相對(duì)比較方便。使用方法是：首先在"工程"菜單下面選擇"添加Data report"選項(xiàng)，這樣Data Report控件就選入到了應(yīng)用程序。
使用Data report的情況大多數(shù)采用數(shù)據(jù)綁定的模式，也就是將此控件與數(shù)據(jù)庫(kù)的數(shù)據(jù)表綁定起來(lái)以便可以不用編寫(xiě)代碼就輕松完成報(bào)表的設(shè)計(jì)。要使用數(shù)據(jù)綁定就必須要指定數(shù)據(jù)源，這里的數(shù)據(jù)源不是數(shù)據(jù)控件而是數(shù)據(jù)環(huán)境（Data Environment）,選擇"工程"菜單下面選擇"添加Data Environment"選項(xiàng)就可以將數(shù)據(jù)環(huán)境添加進(jìn)應(yīng)用程序中。數(shù)據(jù)環(huán)境有兩個(gè)重要的屬性：Connection 和Command屬性，前者是連接指定的數(shù)據(jù)庫(kù)，后者連接指定的數(shù)據(jù)表，一旦這兩者都設(shè)置成功之后，就可以把數(shù)據(jù)環(huán)境作為數(shù)據(jù)源了。只需要把Data report的DataSource屬性設(shè)置為前面的數(shù)據(jù)環(huán)境對(duì)象以及把DataMember設(shè)置為數(shù)據(jù)環(huán)境對(duì)象的Command對(duì)象即可。
1．2 Data Report控件界面元素
完成了Data report控件的數(shù)據(jù)綁定工作之后就可以直接控制報(bào)表的制作與顯示了。這里首先熟悉一下Data report控件的顯示界面：
Data report控件一共有5個(gè)區(qū)組成，分別是報(bào)表頭、頁(yè)面頭、細(xì)節(jié)區(qū)、頁(yè)面注腳和報(bào)表注腳。報(bào)表頭和報(bào)表注腳是用分別用于整個(gè)報(bào)表的最上部和最下部，它們將出現(xiàn)于整個(gè)報(bào)表的每一頁(yè)，可以放置一些報(bào)表名稱，時(shí)間之類的固定文本；頁(yè)面頭和頁(yè)面注腳只能出現(xiàn)在當(dāng)前頁(yè)的最上部和最下部，也就是說(shuō)它只能出現(xiàn)在當(dāng)前頁(yè)中，不出現(xiàn)在其他頁(yè)面中，可以放置隨頁(yè)面變化的一些量比如頁(yè)碼等；而細(xì)節(jié)區(qū)就是用來(lái)進(jìn)行實(shí)際顯示的區(qū)域，它是我們最為關(guān)心的區(qū)域，通過(guò)在此區(qū)域內(nèi)放置顯示控件可以控制報(bào)表的實(shí)際顯示輸出。這里介紹一下放置文本框控件的使用方法，其實(shí)在綁定情況下只需要設(shè)置其DataMember和Datafield即可，前者用來(lái)指定數(shù)據(jù)表，可以設(shè)置為前面數(shù)據(jù)環(huán)境對(duì)象的Command對(duì)象，后者是指定數(shù)據(jù)段，即綁定的數(shù)據(jù)庫(kù)的指定字段。這樣不需要編寫(xiě)任何代碼就可以實(shí)現(xiàn)報(bào)表的顯示工作。
1．3 Data Report控件的打印功能
對(duì)于報(bào)表的打印可以直接使用Data report自帶的打印功能，即可以實(shí)現(xiàn)簡(jiǎn)易的報(bào)表打印。不過(guò)為了實(shí)現(xiàn)比較復(fù)雜的打印功能，也可以通過(guò)程序控制的方法來(lái)進(jìn)行。這里只是給出一個(gè)實(shí)現(xiàn)思路：首先需要制作一個(gè)按鈕控件來(lái)顯示"打印設(shè)置"的窗口，通過(guò)這個(gè)窗口用戶可以設(shè)置打印的相關(guān)的參數(shù)，然后在實(shí)現(xiàn)打印的子模塊中使用VB內(nèi)嵌的printer對(duì)象來(lái)實(shí)現(xiàn)真實(shí)的打印，該對(duì)象能夠?qū)Υ蛴〉漠?dāng)前位置進(jìn)行定位，而且對(duì)打印的字體等參數(shù)進(jìn)行控制，所以結(jié)合"打印設(shè)置"窗口可以實(shí)現(xiàn)類似于word里面的打印功能。
2．MS Excel
說(shuō)起報(bào)表設(shè)計(jì)應(yīng)用程序，無(wú)意微軟的Excel是一支獨(dú)秀，MS Excel就是用來(lái)進(jìn)行表格和報(bào)表設(shè)計(jì)用的應(yīng)用程序，它具有優(yōu)秀的方格控制和宏代碼定制功能。所以如果在設(shè)計(jì)自己的應(yīng)用程序的時(shí)候能夠結(jié)合到Excel的話，那么你的應(yīng)用程序就應(yīng)該是相當(dāng)?shù)耐晟屏耍驗(yàn)闊o(wú)論是編輯還是打印功能，Excel都提供了很完美的解決方案，所以你的應(yīng)用程序所要做的事情就是實(shí)現(xiàn)程序和Excel通訊即可。
事實(shí)上，可以使用VBscript可以將VB與Excel兩者連接起來(lái)。以下就簡(jiǎn)要介紹在VB下開(kāi)發(fā)基于Excel的編程思路。
在VB中處理Excel的對(duì)象大致分為五個(gè)：Application對(duì)象、WorkBook對(duì)象、WorkSheet對(duì)象、Range對(duì)象以及Cell對(duì)象。它們的功能分別如下：
Application---------用來(lái)指代整個(gè)應(yīng)用程序。
WorkBook----------表示工作簿對(duì)象
WorkSheet---------表示工作表對(duì)象，注意，一個(gè)工作簿可以包含多個(gè)工作表，它們就類似于多文檔中的框架窗口和里面的單個(gè)視圖一樣。
Range-------------表示工作表中的某個(gè)區(qū)域范圍對(duì)象，特殊情況下也可以只代表一個(gè)Cell。
Cell---------------表示特定工作表的一個(gè)單元格對(duì)象。這個(gè)對(duì)象的使用頻率是最高的。
清楚了以上的五個(gè)對(duì)象的應(yīng)用范圍，那么使用它們就很簡(jiǎn)單了，不過(guò)在使用這些對(duì)象之前，首先需要對(duì)它們進(jìn)行聲明。方法是在"工程"的"引用"對(duì)話框之下選擇"Microsoft Excel9.0 Object Library"，這樣就將整個(gè)Excel對(duì)象庫(kù)就引入到程序中來(lái)了。
下面舉一個(gè)示例，其實(shí)現(xiàn)的功能是打開(kāi)一個(gè)工作簿。
Function OpenBook(strFilePath As String) As Boolean
' This procedure checks to see if the workbook
' specified in the strFilePath argument is open.
' If it is open, the workbook is activated. If it is
' not open, the procedure opens it.
Dim wkbCurrent As Excel.Workbook
Dim strBookName As String
On Error GoTo OpenBook_Err
' Determine the name portion of the strFilePath argument.
strBookName = NameFromPath(strFilePath)
If Len(strBookName) = 0 Then Exit Function
If Workbooks.Count 0 Then
For Each wkbCurrent In Workbooks
If UCase$(wkbCurrent.Name) = UCase$(strBookName) Then
wkbCurrent.Activate
Exit Function
End If
Next wkbCurrent
End If
Workbooks.Open strBookName
OpenBook = True
OpenBook_End:
Exit Function
OpenBook_Err:
OpenBook = False
Resume OpenBook_End
End Function
3．Crystal Reporter（水晶報(bào)表）
做為一個(gè)優(yōu)秀的報(bào)表軟件，水晶報(bào)表是實(shí)際應(yīng)用中最多的方案。在這一節(jié)里主要介紹一下水晶報(bào)表的定制和顯示，打印功能的實(shí)現(xiàn)。
首先要區(qū)分Crystal Reports插件程序和Crystal Reports控件。前者主要用來(lái)創(chuàng)建報(bào)表模板，后者主要是用來(lái)在程序中顯示和打印報(bào)表，這兩者的分工決定了它們程序中的功能的不同。
其中Crystal Reports的插件程序可以從Seagate公司的官方網(wǎng)站上下載最新的測(cè)試版本。
3．1 Crystal Reports插件程序的使用
選擇"外接程序"菜單的"報(bào)表設(shè)計(jì)器"選項(xiàng)，則VB將執(zhí)行Crystal Reports Pro插件應(yīng)用程序。在Crystal Reports Pro里選擇"新建報(bào)表"圖標(biāo)，可以選擇8標(biāo)準(zhǔn)模板和一個(gè)自定義的模板來(lái)開(kāi)始報(bào)表工程。
整個(gè)水晶報(bào)表的使用跟第一節(jié)的Data Report的使用很類似。首先需要給報(bào)表選擇數(shù)據(jù)源，（即數(shù)據(jù)庫(kù)），然后就可以在報(bào)表中添加、刪除、修改字段以及為記錄分組，可以利用水晶報(bào)表創(chuàng)建很多具有自定義風(fēng)格的報(bào)表。由于本身Crystal Reports插件程序就是一個(gè)功能強(qiáng)大的報(bào)表設(shè)計(jì)軟件，這里就不能一一的講解了，有興趣可以參考程序自帶的幫助文檔。
3．2 Crystal Reports控件的背景知識(shí)
Crystal Reports Pro還提供一個(gè)報(bào)表生成模塊，該模塊可以連接到并訪問(wèn)VB應(yīng)用程序，VB程序員不需花費(fèi)大量時(shí)間寫(xiě)自己的代碼就可再應(yīng)用程序中添加復(fù)雜的報(bào)表生成及輸出功能。
Crystal Reports引擎是一個(gè)動(dòng)態(tài)鏈接庫(kù)，它可以使應(yīng)用程序訪問(wèn)并具有同Crystal Reports 一樣強(qiáng)大的報(bào)表輸出功能。應(yīng)用程序是通過(guò)Crystal Reports ActiveX控件來(lái)訪問(wèn)引擎。再編譯時(shí)應(yīng)用程序同報(bào)表引擎鏈接，以給應(yīng)用程序添加了生成報(bào)表的功能。
當(dāng)程序使用Crystal Reports ActiveX控件時(shí)，可以通過(guò)再設(shè)計(jì)時(shí)設(shè)置Crystal對(duì)象屬性或者再運(yùn)行時(shí)改變對(duì)象屬性，來(lái)建立應(yīng)用程序和Crystal Reports之間的連接。通過(guò)Crystal控件的屬性可以指定：
響應(yīng)應(yīng)用程序某個(gè)事件的輸出報(bào)表的名字。
報(bào)表的目標(biāo)位置（預(yù)覽窗口、磁盤(pán)文件或者電子郵件等）。
想要打印的份數(shù)（如果報(bào)表提交給打印機(jī)的話）。
輸出文件的信息。
預(yù)覽窗口的大小及位置信息（如果報(bào)表在預(yù)覽窗口中顯示時(shí)）。
選擇公式信息（如果在報(bào)表中限制記錄的話）。
排序信息。
其他相關(guān)的屬性。
這里要注意一點(diǎn)的是，Crystal控件必須在由Crystal Reports Pro創(chuàng)建的報(bào)表中使用，而試圖在VB應(yīng)用程序里引用之前，必須首先創(chuàng)建報(bào)表。
3．3 Crystal Reports控件的使用
了解了Crystal Reports控件的功能，那么就可以使用它了。首先通過(guò)"工程"的"部件"選項(xiàng)里面選擇"Crystal Reports Control"，那么VB的工具箱里面就添加了Crystal Reports控件了。
注意，對(duì)于Crystal Reports控件的最重要的屬性就是ReportFileName了，把它設(shè)置為前面已經(jīng)在Crystal Reports Pro里定制好的報(bào)表模板的文件路徑。那么只需要調(diào)用控件的PrintReport方法就可以將報(bào)表顯示出來(lái)了。
相對(duì)于Data Report控件來(lái)說(shuō)，Crystal Reports控件的功能更加的完善，報(bào)表預(yù)覽，打印，編輯修改等功能都很完善，所以在實(shí)際的報(bào)表應(yīng)用設(shè)計(jì)方案中，使用Crystal Reports的相對(duì)較多。然而Crystal Reports控件也有它的局限性，即它不能在運(yùn)行時(shí)創(chuàng)建自定義的窗口?？梢允褂每丶臄?shù)據(jù)綁定屬性來(lái)創(chuàng)建數(shù)據(jù)綁定報(bào)表，但是報(bào)表本身的格式都是由Crystal Reports控件內(nèi)部進(jìn)行處理的。一般說(shuō)來(lái)，Crystal Reports控件不提供在程序中對(duì)報(bào)表字段級(jí)的訪問(wèn)。這一缺陷可以通過(guò)設(shè)計(jì)出足夠多的報(bào)表來(lái)彌補(bǔ)。
4.其他方法
除了通過(guò)上述的三種方法來(lái)實(shí)現(xiàn)報(bào)表設(shè)計(jì)以外，當(dāng)然也可以直接利用Win32 API來(lái)進(jìn)行直接進(jìn)行設(shè)計(jì)，這種方式是最為靈活也是最為繁瑣的方式，因?yàn)樗械木庉?、修改、打印等功能都是由程序控制，所以一般情況下不會(huì)使用這樣的方式來(lái)處理，這里就不介紹了。
5．小結(jié)
報(bào)表設(shè)計(jì)是程序員經(jīng)常要遇到的問(wèn)題，本文主要介紹目前主流的報(bào)表設(shè)計(jì)方案，由于所涉及到的知識(shí)點(diǎn)比較多，限于篇幅，在這里只是作了簡(jiǎn)要的介紹，希望可以起到拋磚引玉的作用。
With Me.ReportViewer1 '初始化報(bào)表
.Dock = DockStyle.Fill
.LocalReport.DataSources.Clear()
.LocalReport.ReportPath = "Report1.rdlc"
.RefreshReport()
End With
報(bào)表在設(shè)計(jì)時(shí)，不一定要綁定數(shù)據(jù)源，但在窗體加載時(shí)，需要初始化報(bào)表控件，以上代碼可以放在窗體加載的Load事件里，供你參考。
CrystalReportViewer
dataset 定義數(shù)據(jù)源
.rpt 文件描述具體報(bào)表樣式
再加一個(gè)調(diào)用報(bào)表的FORM，就可以實(shí)現(xiàn)簡(jiǎn)單的報(bào)表功能
Option Explicit
dim Report as New Cystal1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
'調(diào)用水晶報(bào)表時(shí)置鼠標(biāo)為沙漏狀 CRViewer91.ReportSource = Report '該語(yǔ)句的賦值將在后面被修改
CRViewer91.ViewReport
Screen.MousePointer = vbDefault '調(diào)用水晶報(bào)表完成后置鼠標(biāo)為默認(rèn)形狀
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
可以用水晶報(bào)表設(shè)計(jì)報(bào)表，水晶報(bào)表你要自學(xué)，在這里是說(shuō)不清的，我對(duì)水晶報(bào)表有一點(diǎn)的了解功能很強(qiáng)大。
1 打開(kāi)Excel dim myexcelas new Excel.Application() myexcel.visible=true
2 添加新的工作簿myexcel.Workbooks.add()
3 設(shè)定第二個(gè)工作表為活動(dòng)工作表myexcel.worksheets(2).Acivate()
4 打開(kāi)指定的Excel文件myexcel.workbooks.open(“c:\my.xls”)
5 顯示Excel窗口myexcel.visible=true
6 更改Excel的標(biāo)題欄myexcel.caption=“歡迎,歡迎!”
7 為Excel的單元格賦值myexcel.cells(1,4).value=100 此語(yǔ)句使Excel當(dāng)前工作表的第一行第四列,即D1單元格等于100, 也可以這樣寫(xiě): myexcel.Range(“D1”).value=100
8 設(shè)置指定列的寬度(單位:字符個(gè)數(shù))myexcel.ActiveSheet.colums(1).columnwidth=20 設(shè)定當(dāng)前工作表第1列的寬度為20
9 設(shè)置指定行的高(單位:磅)myexcel.ActiveSheet.rows(1).rowHeight=1/0.035 1磅 =0.035厘米設(shè)置第1行的高度為1CM
10 插入分頁(yè)符 myexcel.Activesheet.rows(20).pagebreak=1在第20行前插入分頁(yè)符
11 刪除分頁(yè)符myexcel.Activesheet.columns(20).pagebreak=0 在第20列前刪除分頁(yè)符
12 指定邊框線的寬度myexcel.Activesheet.range(“B3:D3”).borders(1).weight=3 其中borders參數(shù)指定單元格邊框的位置:1:左 2:右 3:頂 4:底 5:斜\ 6:斜/
13 指定邊框線條的類型 myexcel.Activesheet.range(“B1:D3”).borders(2).linestyle=1此語(yǔ)句將當(dāng)前工作表的B1:D3單元格的右邊框設(shè)置為實(shí)線 linestyle參數(shù): 1:細(xì)實(shí)線 2:細(xì)虛線 3:點(diǎn)虛線 4:雙細(xì)實(shí)線
14 設(shè)置頁(yè)腳myexcel.activesheet.pagesetup.centerfooter=“第p頁(yè)” 注意:設(shè)置頁(yè)眉頁(yè)腳時(shí)要保證計(jì)算機(jī)上裝有打印機(jī),否則出錯(cuò)!
15 設(shè)置頁(yè)眉myexcel.activesheet.pagesetup.centerfooter=“第p頁(yè)”
16 設(shè)置頁(yè)眉到頂斷距離為2cmmyexcel.Activesheet.pagesetup.Headermargin=2/0.035
17 設(shè)置頁(yè)腳到底端距離為2cmmyexcel.Activesheet.pagesetup.Footermargin=2/0.035
18 設(shè)置頂邊邊距為2cmmyexcel.Activesheet.pagesetup.topmargin=2/0.035
19 設(shè)置底邊邊距為2cmmyexcel.Activesheet.pagesetup.Bottommargin=2/0.035
20 設(shè)置左邊邊距為2cmmyexcel.Activesheet.pagesetup.Leftmargin=2/0.035
21 設(shè)置右邊邊距為2cmmyexcel.Activesheet.pagesetup.Rightmargin=2/0.035
22 設(shè)置頁(yè)面水平居中myexcel.activesheet.pagesetup.CenterHorizontally=true
23 設(shè)置頁(yè)面垂直居中myexcel.activesheet.pagesetup.Centervertically=true
24 設(shè)置頁(yè)面紙張大小 (1,窄行8.511 ;39 ,寬行1411) myexcel.activesheet.pagesetup.papersize=1
25 打印單元格網(wǎng)格線 myexcel.activesheet.pagesetup.PrintGridlines=true
26 復(fù)制整個(gè)工作表 myexcel.activesheet.Usedrange.Copy
27 復(fù)制指定區(qū)域 myexcel.activesheet.range(“a1:b5”).Copy
28 粘貼 myexcel.worksheets(“sheet2”).range(“A1”).PasteSpecial
29 在第2行前插入一行 myexcel.activesheet.rows(2).Insert
30 在第2列前插入一列 myexcel.Activesheet.Columns(2).Insert
31 合并 C4:D4 單元格 myexcel.Activesheet.Range(“C4:D4”).Merge()
32 自動(dòng)調(diào)整第2列列寬 myexcel.activesheet.Columns(2).AutoFit
33 設(shè)置字體myexcel.Activesheet.cells(2,1).font.name=“黑體”
34 設(shè)置字體大小myexcel.Activesheet.cells(2,1).font.size=25
35 設(shè)置字體為斜體 myexcel.Activesheet.cells(2,1).font.Italic=true
36 設(shè)置字體為粗體 myexcel.Activesheet.cells(2,1).font.Bold=true
37 清除單元格內(nèi)容myexcel.activesheet.cells(2,1).ClearContents
38 打印預(yù)覽工作表myexcel.Activesheet.PrintPreview
39 打印工作表 myexcel.Activesheet.Printout
40 工作表另存為myexcel.ActiveWorkbook.saveas(“C:\book2.xls”)
41 放棄存盤(pán) myexcel.ActiveWorkbook.saved=false
42 關(guān)閉工作簿 myexcel.Workbooks.close
43 退出 Excel myexcel.quit
44 紙張橫向：myexcel.activesheet.PageSetup.OrientaTion=2（1縱向）
45 單元格居中：cells(2,1).HorizontalAlignment=Excel.XlHAlign.xlHAlignCenter 水平方向cells(2,1).VerticalAlignment=Excel.XlVAlign.xlVAlignCenter 垂直方向
打開(kāi)CSDN APP，看更多技術(shù)內(nèi)容
VB調(diào)用Excel軟件實(shí)現(xiàn)打印預(yù)覽功能
摘要:VB源碼,報(bào)表打印,打印預(yù)覽VB調(diào)用Excel軟件實(shí)現(xiàn)打印預(yù)覽功能，可以插入折線圖，VB打印預(yù)覽功能示例源碼，分享給大家參考。
用vb操作EXCEL打印報(bào)表
最近使用vb來(lái)打印報(bào)表,打印出來(lái)的EXCEL一直無(wú)法上傳到ftp 反復(fù)多次問(wèn)題都沒(méi)解決, 200 PORT command successful. Consider using PASV. 問(wèn)題出在這,由于win10的防火墻的原因,關(guān)閉防火墻后問(wèn)題得到解決. 轉(zhuǎn)載于:...
繼續(xù)訪問(wèn)
VB操作excel 格式設(shè)置及打印頁(yè)面設(shè)置（精簡(jiǎn)）
langue：VB Set ExcelApp = CreateObject("Excel.Application") ’創(chuàng)建資源，建立連接 Set ExcelBook = ExcelApp.Workbooks.Open(“d:\pipo\index.htm") Set ExcelSheet = ExcelBook.Worksheet...
繼續(xù)訪問(wèn)
vb.net excel操作：填充人事檔案表并打印
節(jié)選自：《Visual Basic.Net 循序漸進(jìn)》【例 21.7】【項(xiàng)目：code21-007】填充人事檔案表并打印。 本例使用到的Excel文件為：職員信息登記表.xlsx，如下圖所示： 圖21-10 職員信息登記表 窗體設(shè)計(jì)如下圖所示（注意：為了演示方便，已經(jīng)填充了數(shù)據(jù)）： 圖21-11 窗體設(shè)計(jì) 在本例中還需要掌握的知識(shí)： 1、插入圖片到指定位置 Worksheet.Shapes.AddPicture(Filename, LinkToFile, SaveWithDocumen
繼續(xù)訪問(wèn)
vb.net操作Excel常用命令
轉(zhuǎn)載: 首先,須在項(xiàng)目里引用: 添加引用-Com-Microsoft Excel 9.0 Object Library （這是EXCEL2000） 1 打開(kāi)Excel： dim myexcel as new Excel.Application() myexcel.visib...
繼續(xù)訪問(wèn)
vb.net 如何實(shí)現(xiàn)報(bào)表打印_Excel如何實(shí)現(xiàn)分類別打印？創(chuàng)建組輕松實(shí)現(xiàn)
有朋友咨詢個(gè)關(guān)于Excel打印數(shù)據(jù)問(wèn)題，他的需求是這樣的：下表中是某公司人員信息表，現(xiàn)在領(lǐng)導(dǎo)要求將表格分部門(mén)打印出來(lái)，每位員工核對(duì)個(gè)人信息并簽字。需求很明確，就是將相同部門(mén)的人員打印到一張紙上。打印很簡(jiǎn)單，難點(diǎn)在于如何按每個(gè)部門(mén)去打印？如果部門(mén)較少的話可以將不同部門(mén)復(fù)制到不同插頁(yè)中，再進(jìn)行打??；但是如果部門(mén)較多的話，這種辦法實(shí)在不可??；有小伙伴表示可以利用VBA技術(shù)將部門(mén)拆分到各個(gè)插頁(yè)，在進(jìn)行打印...
繼續(xù)訪問(wèn)
最新發(fā)布 vb.net 教程 11-1 打印組件 3 PageSetupDialog
版權(quán)聲明：本文為博主原創(chuàng)文章，轉(zhuǎn)載請(qǐng)?jiān)陲@著位置標(biāo)明本文出處以及作者網(wǎng)名，未經(jīng)作者允許不得用于商業(yè)目的。 本節(jié)談?wù)劻硗庖粋€(gè)有關(guān)打印的對(duì)話框：PageSetupDialog，頁(yè)面設(shè)置對(duì)話框 實(shí)際我們是通過(guò)這個(gè)對(duì)話框獲得PageSetting，關(guān)于PageSetting在上一節(jié)有部分介紹，請(qǐng)參看 vb.net 教程 11-1 打印組件 PrintDialog 2 注意的是，使用PageSetupDialog需要綁定一個(gè)PrintDocument，在PageSetupDialog的Document屬性處
繼續(xù)訪問(wèn)
VB.NET使用EXCEL常見(jiàn)操作
首先,須在項(xiàng)目里引用: 添加引用Microsoft.Office.Interop.Excel Imports Excel = Microsoft.Office.Interop.Excel 1 打開(kāi)Excel： Dim myexcel as new Excel.Application() myexcel.visible=true 2 添加新的工作簿： myexcel.Workbooks.ad
繼續(xù)訪問(wèn)
【VB Excel】VB 操作Excel基本步驟
VB操作EXCEL,實(shí)現(xiàn)數(shù)據(jù)讀取 1、定義Excel操作變量 Dim objExcelFile As Excel.Application Dim objWorkBook As Excel.Workbook Dim objImportSheet As Excel.Worksheet 2、打開(kāi)Excel進(jìn)程，并打開(kāi)目標(biāo)Exc...
繼續(xù)訪問(wèn)
vba代碼編程800例_如何設(shè)置Excel打印格式，學(xué)會(huì)這個(gè)VBA對(duì)象就可以隨心所欲
NO.1 Excel如何設(shè)置打印格式使用vba可以做打印格式處理，如何做一個(gè)漂亮的打印頁(yè)面，不外乎要設(shè)置打印表格的邊框、版式、頁(yè)眉、頁(yè)角等等。那么怎樣設(shè)置這些格式呢？NO.2 PageSetup對(duì)象vba編程用到Pagesetup對(duì)象，對(duì)表格打印進(jìn)行設(shè)置。PageSetup對(duì)象有許多屬性，下面圖片里列出了大部分常用的屬性，可以對(duì)照進(jìn)行設(shè)置。具體方法下面舉個(gè)例子來(lái)展示一下最終效果。PageSetup...
繼續(xù)訪問(wèn)
vb.net操作excel文件
[轉(zhuǎn)自] vb.net操作excel文件 要求將數(shù)據(jù)顯示在Excel表中，并且要設(shè)好數(shù)據(jù)格式。雖說(shuō)如此，真正實(shí)現(xiàn)了自己的功能，還是費(fèi)了不少時(shí)間。相信還是有很多與我相似的人需要實(shí)現(xiàn)這種功能。那就做個(gè)小結(jié)吧。不妥之處，請(qǐng)指正哦。 1.添加引用–com—microsoft excel 11.0 object library 2在需要訪問(wèn)excel的過(guò)程中定義 dim exapp as excel.a
繼續(xù)訪問(wèn)
VB.net使用PrintForm打印窗體
在VS2010中內(nèi)置了了一個(gè)PowerPacks的擴(kuò)展包,果然很好用啊,可以直接打印窗體內(nèi)容 先從"工具箱"中拖一個(gè)PrintForm到設(shè)計(jì)好的窗體中 然后在窗體里加了個(gè)打印的按鈕,對(duì)應(yīng)代碼如下 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.
繼續(xù)訪問(wèn)
熱門(mén)推薦 開(kāi)源:.NET環(huán)境下有關(guān)打印頁(yè)面設(shè)置、打印機(jī)設(shè)置、打印預(yù)覽對(duì)話框的實(shí)現(xiàn)與應(yīng)用(2)
!--google_ad_client = "pub-0022674553583619";google_ad_width = 728;google_ad_height = 90;google_ad_format = "728x90_as";google_ad_type = "text_image";google_ad_channel ="";google_color_
繼續(xù)訪問(wèn)
vb.net 設(shè)置打印紙張與頁(yè)邊距_機(jī)關(guān)公文格式設(shè)置規(guī)范(最新整理版)
本方法根據(jù)《黨政機(jī)關(guān)公文格式國(guó)家標(biāo)準(zhǔn)》(GB/T9704-2012)制定。具體內(nèi)容如下：一、辦公軟件要求適用于微軟OFFICE—WORD文字處理軟件。二、頁(yè)面設(shè)置1.選擇“文件”——“頁(yè)面設(shè)置”選擇“頁(yè)邊距”附簽，上：3.7厘米，下：3.5厘米，左：2.8厘米，右：2.6厘米。2.選擇“紙張”附簽，“紙張大小”設(shè)成“A4”。3.選擇“版式”附簽，將“頁(yè)眉和頁(yè)腳”設(shè)置成“奇偶頁(yè)不同”,在該...
繼續(xù)訪問(wèn)
VB.NET EXCEL 操作
重慶分公司
重慶分公司
