用VS2015，創(chuàng)建的VB.NET應(yīng)用程序，如何同時(shí)操作兩個EXCEL工作簿

首先定義

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長期合作伙伴，公司提供的服務(wù)項(xiàng)目有：域名申請、虛擬主機(jī)、營銷軟件、網(wǎng)站建設(shè)、宜川網(wǎng)站維護(hù)、網(wǎng)站推廣。

Public xlApp As Excel.Application

Public xlBook As Excel.Workbook Public xlSheet As Excel.Worksheet然后創(chuàng)建對象

xlApp = CreateObject("Excel.Application") '創(chuàng)建EXCEL對象

xlBook = xlApp.Workbooks.Open("文件路徑") '打開已經(jīng)存在的EXCEL工件簿文件

xlSheet = xlBook.Worksheets("sheet1")

vb.net,水晶報(bào)表打印時(shí)紙張變?yōu)樾偶垼蛴C(jī)里面已經(jīng)自定義好了紙張，用EXCEL,WORD就正常，請高手指點(diǎn)

別的地方轉(zhuǎn)來的！~ 不過我們以前做的時(shí)候 都是在打印機(jī)里增加一種打印紙 然后就可以選了！~

一下轉(zhuǎn)載內(nèi)容！~~~

水晶報(bào)表-強(qiáng)大而成熟，但是多少男兒漢敗倒在他的自定義紙張?jiān)O(shè)置上。

1：水晶報(bào)表是紙形打印。所以自定義紙張類打印肯定要在電腦上增加對應(yīng)的紙張才行（手動加還是代碼加這個不管）

2：紙張分3種系統(tǒng)內(nèi)建（不可更改），自定義，打印機(jī)自帶。很遺憾的是水晶只認(rèn)系統(tǒng)內(nèi)建的。

3：打印機(jī)一般分2種。1普通噴墨的A4,2有聯(lián)單的針式

4：注意水晶報(bào)表不是所見所得的，預(yù)覽的紙張是什么不一定打印的就是什么紙張（受3方影響。打印機(jī)、報(bào)表內(nèi)設(shè)置、PAPERSIZE 屬性，三者之間關(guān)系不詳）。

5：對于第一種A4紙張。沒什么好說的系統(tǒng)內(nèi)建紙型。水晶報(bào)表認(rèn)。直接指定就行

6：對于第二種聯(lián)單的自定義型一般專機(jī)專用，當(dāng)然是建好紙張讓打印機(jī)默認(rèn)自己建的紙張為默認(rèn)首選了。

7：然后設(shè)置水晶報(bào)表使用打印機(jī)默認(rèn)的紙張PaperSize = CrystalDecisions.Shared.PaperSize.DefaultPaperSize

以上能保證專機(jī)專紙的任何打印。：要注意第4點(diǎn)。如果你是自定義紙而且要預(yù)覽要保障預(yù)覽和打印都用指定的紙張，那么預(yù)覽時(shí)你得指定PaperSize=你自定義紙張的索引號。打印的時(shí)候又改成CrystalDecisions.Shared.PaperSize.DefaultPaperSize

8：如果你想一個打印機(jī)多個自定義紙張那么用API吧動態(tài)改變打印機(jī)的默認(rèn)紙張，根據(jù)以上拐2彎就能實(shí)現(xiàn)了遺憾的是網(wǎng)絡(luò)打印機(jī)的話就沒折了。o(︶︿︶)o 唉

如何用VB.NET做水晶報(bào)表?

CrystalReportViewer

dataset 定義數(shù)據(jù)源

.rpt 文件描述具體報(bào)表樣式

再加一個調(diào)用報(bào)表的FORM，就可以實(shí)現(xià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 '該語句的賦值將在后面被修改

　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

新聞名稱：vb.net報(bào)表2015,vb 報(bào)表
分享地址：http://chinadenli.net/article16/dsepedg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站建設(shè)、關(guān)鍵詞優(yōu)化、網(wǎng)站設(shè)計(jì)、定制網(wǎng)站、外貿(mào)網(wǎng)站建設(shè)、標(biāo)簽優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)