vb.net打印預(yù)覽,vb 打印

VB.NET程序如何實(shí)現(xiàn)表格填寫和打印

一般情況下先用EXCEL做好一個(gè)樣表文件，設(shè)定好打印區(qū)域和樣式，需要填內(nèi)容的時(shí)候，先程序復(fù)制一個(gè)樣表文件，然后調(diào)用API打開表格填寫內(nèi)容并打印，如果想用API來實(shí)現(xiàn)調(diào)整模板和打印預(yù)覽，可能比較困難，而且很抽象，個(gè)人覺得費(fèi)時(shí)費(fèi)力效果還不一定理想

創(chuàng)新互聯(lián)專注于企業(yè)營(yíng)銷型網(wǎng)站、網(wǎng)站重做改版、殷都網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、成都h5網(wǎng)站建設(shè)、商城系統(tǒng)網(wǎng)站開發(fā)、集團(tuán)公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計(jì)等建站業(yè)務(wù)，價(jià)格優(yōu)惠性價(jià)比高，為殷都等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。

vb.net獲取excel頁面高度

1 打開Excel dim myexcelas new Excel.Application() myexcel.visible=true

2 添加新的工作簿myexcel.Workbooks.add()

3 設(shè)定第二個(gè)工作表為活動(dòng)工作表myexcel.worksheets(2).Acivate()

4 打開指定的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 此語句使Excel當(dāng)前工作表的第一行第四列,即D1單元格等于100, 也可以這樣寫: 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 插入分頁符 myexcel.Activesheet.rows(20).pagebreak=1在第20行前插入分頁符

11 刪除分頁符myexcel.Activesheet.columns(20).pagebreak=0 在第20列前刪除分頁符

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此語句將當(dāng)前工作表的B1:D3單元格的右邊框設(shè)置為實(shí)線 linestyle參數(shù): 1:細(xì)實(shí)線 2:細(xì)虛線 3:點(diǎn)虛線 4:雙細(xì)實(shí)線

14 設(shè)置頁腳myexcel.activesheet.pagesetup.centerfooter=“第p頁” 注意:設(shè)置頁眉頁腳時(shí)要保證計(jì)算機(jī)上裝有打印機(jī),否則出錯(cuò)!

15 設(shè)置頁眉myexcel.activesheet.pagesetup.centerfooter=“第p頁”

16 設(shè)置頁眉到頂斷距離為2cmmyexcel.Activesheet.pagesetup.Headermargin=2/0.035

17 設(shè)置頁腳到底端距離為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è)置頁面水平居中myexcel.activesheet.pagesetup.CenterHorizontally=true

23 設(shè)置頁面垂直居中myexcel.activesheet.pagesetup.Centervertically=true

24 設(shè)置頁面紙張大小 (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 放棄存盤 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 垂直方向

打開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來打印報(bào)表,打印出來的EXCEL一直無法上傳到ftp 反復(fù)多次問題都沒解決, 200 PORT command successful. Consider using PASV. 問題出在這,由于win10的防火墻的原因,關(guān)閉防火墻后問題得到解決. 轉(zhuǎn)載于:...

繼續(xù)訪問

VB操作excel 格式設(shè)置及打印頁面設(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ù)訪問

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ù)訪問

vb.net操作Excel常用命令

轉(zhuǎn)載: 首先,須在項(xiàng)目里引用: 添加引用-Com-Microsoft Excel 9.0 Object Library （這是EXCEL2000） 1 打開Excel： dim myexcel as new Excel.Application() myexcel.visib...

繼續(xù)訪問

vb.net 如何實(shí)現(xiàn)報(bào)表打印_Excel如何實(shí)現(xiàn)分類別打??？創(chuàng)建組輕松實(shí)現(xiàn)

有朋友咨詢個(gè)關(guān)于Excel打印數(shù)據(jù)問題，他的需求是這樣的：下表中是某公司人員信息表，現(xiàn)在領(lǐng)導(dǎo)要求將表格分部門打印出來，每位員工核對(duì)個(gè)人信息并簽字。需求很明確，就是將相同部門的人員打印到一張紙上。打印很簡(jiǎn)單，難點(diǎn)在于如何按每個(gè)部門去打印？如果部門較少的話可以將不同部門復(fù)制到不同插頁中，再進(jìn)行打?。坏侨绻块T較多的話，這種辦法實(shí)在不可??；有小伙伴表示可以利用VBA技術(shù)將部門拆分到各個(gè)插頁，在進(jìn)行打印...

繼續(xù)訪問

最新發(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，頁面設(shè)置對(duì)話框 實(shí)際我們是通過這個(gè)對(duì)話框獲得PageSetting，關(guān)于PageSetting在上一節(jié)有部分介紹，請(qǐng)參看 vb.net 教程 11-1 打印組件 PrintDialog 2 注意的是，使用PageSetupDialog需要綁定一個(gè)PrintDocument，在PageSetupDialog的Document屬性處

繼續(xù)訪問

VB.NET使用EXCEL常見操作

首先,須在項(xiàng)目里引用: 添加引用Microsoft.Office.Interop.Excel Imports Excel = Microsoft.Office.Interop.Excel 1 打開Excel： Dim myexcel as new Excel.Application() myexcel.visible=true 2 添加新的工作簿： myexcel.Workbooks.ad

繼續(xù)訪問

【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、打開Excel進(jìn)程，并打開目標(biāo)Exc...

繼續(xù)訪問

vba代碼編程800例_如何設(shè)置Excel打印格式，學(xué)會(huì)這個(gè)VBA對(duì)象就可以隨心所欲

NO.1 Excel如何設(shè)置打印格式使用vba可以做打印格式處理，如何做一個(gè)漂亮的打印頁面，不外乎要設(shè)置打印表格的邊框、版式、頁眉、頁角等等。那么怎樣設(shè)置這些格式呢？NO.2 PageSetup對(duì)象vba編程用到Pagesetup對(duì)象，對(duì)表格打印進(jìn)行設(shè)置。PageSetup對(duì)象有許多屬性，下面圖片里列出了大部分常用的屬性，可以對(duì)照進(jìn)行設(shè)置。具體方法下面舉個(gè)例子來展示一下最終效果。PageSetup...

繼續(xù)訪問

vb.net操作excel文件

[轉(zhuǎn)自] vb.net操作excel文件 要求將數(shù)據(jù)顯示在Excel表中，并且要設(shè)好數(shù)據(jù)格式。雖說如此，真正實(shí)現(xiàn)了自己的功能，還是費(fèi)了不少時(shí)間。相信還是有很多與我相似的人需要實(shí)現(xiàn)這種功能。那就做個(gè)小結(jié)吧。不妥之處，請(qǐng)指正哦。 1.添加引用–com—microsoft excel 11.0 object library 2在需要訪問excel的過程中定義 dim exapp as excel.a

繼續(xù)訪問

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ù)訪問

熱門推薦 開源:.NET環(huán)境下有關(guān)打印頁面設(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ù)訪問

vb.net 設(shè)置打印紙張與頁邊距_機(jī)關(guān)公文格式設(shè)置規(guī)范(最新整理版)

本方法根據(jù)《黨政機(jī)關(guān)公文格式國(guó)家標(biāo)準(zhǔn)》(GB/T9704-2012)制定。具體內(nèi)容如下：一、辦公軟件要求適用于微軟OFFICE—WORD文字處理軟件。二、頁面設(shè)置1.選擇“文件”——“頁面設(shè)置”選擇“頁邊距”附簽，上：3.7厘米，下：3.5厘米，左：2.8厘米，右：2.6厘米。2.選擇“紙張”附簽，“紙張大小”設(shè)成“A4”。3.選擇“版式”附簽，將“頁眉和頁腳”設(shè)置成“奇偶頁不同”,在該...

繼續(xù)訪問

VB.NET EXCEL 操作

如何用VB.NET導(dǎo)入和導(dǎo)出EXCEL表，打印預(yù)覽？？？

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中去打印

VB.NET打印編程問題，打印機(jī)為激光打印機(jī)。

打印做得不多，以前做套打時(shí)發(fā)現(xiàn)，每臺(tái)打印機(jī)定位都不一樣，于是每臺(tái)機(jī)子都加了個(gè)偏移設(shè)置

我的做法在白紙上打上一標(biāo)尺，和一個(gè)上下邊距為2CM的交叉點(diǎn)，然后用標(biāo)尺量這2CM的偏移，設(shè)置完后，在這臺(tái)打印機(jī)打印時(shí)，就給紙張加個(gè)偏移量，打印就正常了。可能你的原因和我一樣。

另外也想問你一下，你這個(gè)條碼是用什么打的。早先，我用立象的條碼打印機(jī)打不干膠，很簡(jiǎn)單，激光打沒用過，可能下次我也要用條碼打印，我也用VB.net。求教.

vb.net 打印預(yù)覽分頁

病情分析：

您好，你經(jīng)常頭暈估計(jì)是與血壓偏低是有關(guān)系的。

指導(dǎo)意見：

你可以吃點(diǎn)蜂王漿或生脈飲調(diào)理，平時(shí)要積極參加體育鍛煉，改善體質(zhì)，增加營(yíng)養(yǎng)，多喝水，多吃湯。

病情分析：

你好，你的情況屬于低血壓引起的癥狀，一般會(huì)引起經(jīng)常頭暈乏力和眼花等癥狀，你的情況需要積極治療的的

指導(dǎo)意見：

你的情況我建議首先就要注意休息，清淡溫?zé)嵋紫嬍澈荜P(guān)鍵的，建議你用人參燉雞湯服用看看，多吃紅棗和枸杞等食物，積極參加體育鍛煉，祝你健康

病情分析：

你好!根據(jù)你的資料初步考慮,你的頭暈和你的血壓偏低相關(guān)。血壓偏低時(shí)改變體位會(huì)導(dǎo)致的一過性腦供血不足，其臨床特點(diǎn)是頭暈,睡眠障礙,記憶力減退三大癥狀,還有頂枕部頭痛,輕癱,言語障礙、情緒易激動(dòng)等表現(xiàn),一般病情緩慢發(fā)展,此類頭暈的特點(diǎn)是在體位轉(zhuǎn)變時(shí)容易出現(xiàn)或加重，如由平臥突然坐起，或者是下蹲后突然站立等動(dòng)作。頭暈可分為兩類：一為旋轉(zhuǎn)性眩暈,多由前庭神經(jīng)系統(tǒng)及小腦的功能障礙所致,以傾倒的感覺為主,感到自身晃動(dòng)或景物旋轉(zhuǎn)。二為一般性暈,多由某些全身性疾病引起,以頭昏的感覺為主,感到頭重腳輕。如貧血、體質(zhì)衰竭等。

指導(dǎo)意見：

建議做全身體檢,測(cè)血壓,血糖,血常規(guī),做頭顱、頸椎CT等,尋找原因,對(duì)癥治療。避免勞累,減輕心理負(fù)擔(dān),積極配合治療,增強(qiáng)免疫力。祝你健康！

頭暈可能是感冒，頸椎病，貧血，美尼爾氏綜合征，心律失常,休息的時(shí)間和質(zhì)量不好,都是可能導(dǎo)致的，需要找到原因，針對(duì)性的治療才行。

頭暈可能是感冒,頸椎病,貧血,美尼爾氏綜合征,心律失常,休息的時(shí)間和質(zhì)量不好,都是可能導(dǎo)致的,需要找到原因,針對(duì)性的治療

你好,血壓只是低些而沒有不適癥狀一般不需要處理,如果感到不適或伴有其他癥狀就醫(yī)治療了,建議服用生脈飲口服液或者腦心舒口服液治療.希望回答可以對(duì)您有幫助

可能是感冒，貧血，美尼爾氏綜合征，心律失常,休息的時(shí)間和質(zhì)量不好,都是可能導(dǎo)致的，需要找到原因，針對(duì)性的治療。

頭暈原因很多，一般有頸椎病，貧血，美尼爾氏綜合征，心律失常,，腔隙性腦梗塞等，建議你去醫(yī)院檢查，確診病因才能有效治療。

您好，頭暈還要結(jié)合一下血脂等情況，根據(jù)具體原因采取治療措施，

求助vb.net 2008 中 printPreviewDialog1預(yù)覽窗口中如何添加按鈕？

就是重繪printPreviewDialog1控件?？丶萜髦?，包含ToolStrip控件。

目的：在ToolStrip控件集合中添加一個(gè)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è)計(jì)器所必需的。

' 在 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

'===================

'測(cè)試一下：

'----------------

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

==================================================

效果如圖：

文章題目：vb.net打印預(yù)覽,vb 打印
鏈接URL：http://m.jiaotiyi.com/article/hsieos.html