360問答
馬關(guān)網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),馬關(guān)網(wǎng)站設(shè)計制作，有大型網(wǎng)站制作公司豐富經(jīng)驗。已為馬關(guān)超過千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站制作要多少錢，請找那個售后服務(wù)好的馬關(guān)做網(wǎng)站的公司定做！
VB中.Move Form1.Width / 2 - 100, Form1.Height / 2 - 200, 800, 400這條語句具體是什么意思啊。詳細點
8230LT LV13
2014-02-10
滿意答案
dgwlw123
LV12
2014-02-10
.move是對窗體，過控件移動到指定位置 以下參考MSDN: 語法 object.Move left, top, width, height Move 方法的語法包含下列部分: 部分描述object可選的。一個對象表達式，其值為“應(yīng)用于”列表中的一個對象。如果省略 object，帶有焦點的窗體缺省為 object。left必需的。單精度值，指示 object 左邊的水平坐標 (x-軸)。top可選的。單精度值，指示 object 頂邊的垂直坐標 (y-軸)。width可選的。單精度值，指示 object 新的寬度。height可選的。單精度值，指示 object 新的高度。
1 打開Excel dim myexcelas new Excel.Application() myexcel.visible=true
2 添加新的工作簿myexcel.Workbooks.add()
3 設(shè)定第二個工作表為活動工作表myexcel.worksheets(2).Acivate()
4 打開指定的Excel文件myexcel.workbooks.open(“c:\my.xls”)
5 顯示Excel窗口myexcel.visible=true
6 更改Excel的標題欄myexcel.caption=“歡迎,歡迎!”
7 為Excel的單元格賦值myexcel.cells(1,4).value=100 此語句使Excel當前工作表的第一行第四列,即D1單元格等于100, 也可以這樣寫: myexcel.Range(“D1”).value=100
8 設(shè)置指定列的寬度(單位:字符個數(shù))myexcel.ActiveSheet.colums(1).columnwidth=20 設(shè)定當前工作表第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此語句將當前工作表的B1:D3單元格的右邊框設(shè)置為實線 linestyle參數(shù): 1:細實線 2:細虛線 3:點虛線 4:雙細實線
14 設(shè)置頁腳myexcel.activesheet.pagesetup.centerfooter=“第p頁” 注意:設(shè)置頁眉頁腳時要保證計算機上裝有打印機,否則出錯!
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 復制整個工作表 myexcel.activesheet.Usedrange.Copy
27 復制指定區(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 自動調(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 打印預覽工作表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軟件實現(xiàn)打印預覽功能
摘要:VB源碼,報表打印,打印預覽VB調(diào)用Excel軟件實現(xiàn)打印預覽功能，可以插入折線圖，VB打印預覽功能示例源碼，分享給大家參考。
用vb操作EXCEL打印報表
最近使用vb來打印報表,打印出來的EXCEL一直無法上傳到ftp 反復多次問題都沒解決, 200 PORT command successful. Consider using PASV. 問題出在這,由于win10的防火墻的原因,關(guān)閉防火墻后問題得到解決. 轉(zhuǎn)載于:...
繼續(xù)訪問
VB操作excel 格式設(shè)置及打印頁面設(shè)置（精簡）
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 循序漸進》【例 21.7】【項目：code21-007】填充人事檔案表并打印。 本例使用到的Excel文件為：職員信息登記表.xlsx，如下圖所示： 圖21-10 職員信息登記表 窗體設(shè)計如下圖所示（注意：為了演示方便，已經(jīng)填充了數(shù)據(jù)）： 圖21-11 窗體設(shè)計 在本例中還需要掌握的知識： 1、插入圖片到指定位置 Worksheet.Shapes.AddPicture(Filename, LinkToFile, SaveWithDocumen
繼續(xù)訪問
vb.net操作Excel常用命令
轉(zhuǎn)載: 首先,須在項目里引用: 添加引用-Com-Microsoft Excel 9.0 Object Library （這是EXCEL2000） 1 打開Excel： dim myexcel as new Excel.Application() myexcel.visib...
繼續(xù)訪問
vb.net 如何實現(xiàn)報表打印_Excel如何實現(xiàn)分類別打?。縿?chuàng)建組輕松實現(xiàn)
有朋友咨詢個關(guān)于Excel打印數(shù)據(jù)問題，他的需求是這樣的：下表中是某公司人員信息表，現(xiàn)在領(lǐng)導要求將表格分部門打印出來，每位員工核對個人信息并簽字。需求很明確，就是將相同部門的人員打印到一張紙上。打印很簡單，難點在于如何按每個部門去打??？如果部門較少的話可以將不同部門復制到不同插頁中，再進行打??；但是如果部門較多的話，這種辦法實在不可??；有小伙伴表示可以利用VBA技術(shù)將部門拆分到各個插頁，在進行打印...
繼續(xù)訪問
最新發(fā)布 vb.net 教程 11-1 打印組件 3 PageSetupDialog
版權(quán)聲明：本文為博主原創(chuàng)文章，轉(zhuǎn)載請在顯著位置標明本文出處以及作者網(wǎng)名，未經(jīng)作者允許不得用于商業(yè)目的。 本節(jié)談?wù)劻硗庖粋€有關(guān)打印的對話框：PageSetupDialog，頁面設(shè)置對話框 實際我們是通過這個對話框獲得PageSetting，關(guān)于PageSetting在上一節(jié)有部分介紹，請參看 vb.net 教程 11-1 打印組件 PrintDialog 2 注意的是，使用PageSetupDialog需要綁定一個PrintDocument，在PageSetupDialog的Document屬性處
繼續(xù)訪問
VB.NET使用EXCEL常見操作
首先,須在項目里引用: 添加引用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,實現(xiàn)數(shù)據(jù)讀取 1、定義Excel操作變量 Dim objExcelFile As Excel.Application Dim objWorkBook As Excel.Workbook Dim objImportSheet As Excel.Worksheet 2、打開Excel進程，并打開目標Exc...
繼續(xù)訪問
vba代碼編程800例_如何設(shè)置Excel打印格式，學會這個VBA對象就可以隨心所欲
NO.1 Excel如何設(shè)置打印格式使用vba可以做打印格式處理，如何做一個漂亮的打印頁面，不外乎要設(shè)置打印表格的邊框、版式、頁眉、頁角等等。那么怎樣設(shè)置這些格式呢？NO.2 PageSetup對象vba編程用到Pagesetup對象，對表格打印進行設(shè)置。PageSetup對象有許多屬性，下面圖片里列出了大部分常用的屬性，可以對照進行設(shè)置。具體方法下面舉個例子來展示一下最終效果。PageSetup...
繼續(xù)訪問
vb.net操作excel文件
[轉(zhuǎn)自] vb.net操作excel文件 要求將數(shù)據(jù)顯示在Excel表中，并且要設(shè)好數(shù)據(jù)格式。雖說如此，真正實現(xiàn)了自己的功能，還是費了不少時間。相信還是有很多與我相似的人需要實現(xiàn)這種功能。那就做個小結(jié)吧。不妥之處，請指正哦。 1.添加引用–com—microsoft excel 11.0 object library 2在需要訪問excel的過程中定義 dim exapp as excel.a
繼續(xù)訪問
VB.net使用PrintForm打印窗體
在VS2010中內(nèi)置了了一個PowerPacks的擴展包,果然很好用啊,可以直接打印窗體內(nèi)容 先從"工具箱"中拖一個PrintForm到設(shè)計好的窗體中 然后在窗體里加了個打印的按鈕,對應(yīng)代碼如下 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.
繼續(xù)訪問
熱門推薦 開源:.NET環(huán)境下有關(guān)打印頁面設(shè)置、打印機設(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è)置打印紙張與頁邊距_機關(guān)公文格式設(shè)置規(guī)范(最新整理版)
本方法根據(jù)《黨政機關(guā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 操作
您好，在Visual Basic.NET中，是沒有像這樣的文件I/O操作的，一般都是通過System.IO.StreamReader和System.IO.StreamWriter類，System.IO.BinaryReader和System.IO.BinaryWriter類來讀寫文件以及利用My.Computer.FileSystem類讀寫文件，利用System.IO.Filestream類來創(chuàng)建文件，通過引用Microsoft Scripting Runtime來執(zhí)行文件（夾）和驅(qū)動器的特殊操作，常用的是System.IO.StreamReader和System.IO.StreamWriter類。
例如說要讀取一個文件，我們可以利用System.IO.StreamReader類編寫一個方法（也就是函數(shù)），但是首先要在當前類的開頭添加一個引用，引用名稱：System.IO，添加引用的代碼如下
Imports System.IO
添加引用之后，就在當前類的內(nèi)部創(chuàng)建方法：
Private Function ReadFile(ByVal FileURL As String) As String
Dim sr As StreamReader = New StreamReader(FileURL)
ReadFile = sr.ReadToEnd()
sr.Close()
sr = Nothing
End Function
示例說明：
該方法是一個返回String（字符串）數(shù)據(jù)的函數(shù)，F(xiàn)ileURL作為參數(shù)是用來存放需要訪問的文件的URL，當然，要獲取一個文件的URL，就是利用這一句代碼實現(xiàn)的：
Dim sr As StreamReader = New StreamReader(FileURL)
當獲取了URL之后，就要對文件進行讀取操作了，然后將讀取的結(jié)果返回給方法：
ReadFile = sr.ReadToEnd()
讀取文件完畢之后，要對文件執(zhí)行關(guān)閉操作：
sr.Close()
當然別忘了清理資源：
sr = Nothing
StreamReader類可以從流或文件中讀取字符，在創(chuàng)建StreamREader類的對象時，可以指定一個流對象，也可以指定一個文件URL，創(chuàng)建對象后就可以調(diào)用他的方法，從流中讀取數(shù)據(jù)，其常用方法如下：
Peek：返回下一個可用字符，但不使用它。
Read：讀取輸入流中下一個字符或一組字符并移動流或文件指針。
ReadBlock：從當前流中讀取最大數(shù)量字符并從index開始將數(shù)據(jù)寫入buffer。
ReadLine：從當前流中讀取一行字符并將字符作為String返回。
REadToEnd：從流的當前位置到末尾讀取流。
Close：關(guān)閉打開的對象，釋放資源。
注：流，一種新的數(shù)據(jù)格式，這種格式可通過System.IO命名空間下的類訪問。流用Stream類表示，所有的流都是從這個類中繼承的。流向用戶提供了一個一般的數(shù)據(jù)視圖，隱藏了操作系統(tǒng)和底層設(shè)備的實現(xiàn)細節(jié)，所有的流都支持讀寫操作。在打開文件時將返回對應(yīng)的流對象，用戶可以對流對象進行讀寫操作。
如果要對文件執(zhí)行按行讀取操作，這時就會用到枚舉，這時候，代碼就要更改一下了：
Private Function ReadFile(ByVal FileURL As String) As String
Dim sr As StreamReader = New StreamReader(FileURL)
For Each fLine As String In sr.ReadToEnd()
Line = sr.ReadLine()
ReadFile = ReadFile fLine
Next sr.ReadLine
sr.Close()
End Function
示例說明：
For Each…Next：派生于For…Next循環(huán)，用于枚舉一系列對象中的成員，而這些對象組成集合，如果集合中至少存在一個元素，程序就會靜茹For Each塊執(zhí)行。其格式如下：
For Each 元素 [As 數(shù)據(jù)類型] In 元素集合
[循環(huán)體]
[Exit For]
[循環(huán)體]
Next [元素]
比如：
Dim CountNumber As ULong = 0
Dim FolderName() As String = New String() {" "}
For Each strFolder As String In My.Computer.FileSystem.GetDirectories("C:\")
CountNumber = CountNumber + 1
ReDim Preserve FolderName(1 To CountNumber)
FolderName = strFolder
Next strFolder
注：My.Computer.FileSystem.GetDirectories：主要用來枚舉指定目錄的子文件夾。
Preserve：主要用來避免重定義數(shù)組而不損失數(shù)組元素的原有數(shù)據(jù)。
另外，利用My.Computer.FileSystem也可以實現(xiàn)文件的讀取，其代碼如下：
Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt")
示例說明：
定義一個字符串變量利用My.Computer.FileSystem.ReadAllText來實現(xiàn)對“C:\test.txt”的讀取。
如果是已經(jīng)編碼的文本，則可以使用My.Computer.FileSystem對象中的ReadAllText方法并提供路徑和文件編碼類型，將文本寫入字符串變量中，例如：
Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt", _
System.Text.Encoding.UTF32)
當然，System.Text.Encoding的成員不止一個，它還有如下成員：
System.Text.Encoding.UTF8
System.Text.Encoding.UTF16
System.Text.Encoding.ASCII
System.Text.Encoding.Unicode
這些是常見的成員，也是主要的成員。
另外，利用My.Computer.Filesystem類無法實現(xiàn)文件的行操作，還有，如果您的計算機未安裝完整的Microsoft.NET Framework Runtime，則無法實現(xiàn)這種操作！
寫入文件的操作同樣簡單，Visual Basic.NET 允許用戶使用StreamWriter來對文件寫入內(nèi)容，下面就讓我們來創(chuàng)建一個子例程，來實現(xiàn)文件的寫入：
Private Sub WriterFile(ByVal FileURL As String, ByVal FileCon As String)
Dim sr As StreamWriter = New StreamWriter(FileURL)
sr.Write(FileCon)
sr.Close()
sr = Nothing
End Sub
示例說明：
sr.Write(FileCon)：將FileCon寫入文件FileURL之中。
另外，StreamWriter常用方法如下：
WriteLine：向流中寫入一行，后面跟結(jié)束符。
Write：寫入流，向流對象中寫入字符并移動流或文件指針。
Close：關(guān)閉打開的對象，釋放資源。
附：Visual Basic 6.0文件操作解說：
打開： Open 文件名 For Input | Output | Append As [#]文件號
Input打開讀入，文件不存在報錯。Output打開覆蓋寫入，文件不存在則創(chuàng)建。Append打 開追加寫入，文件不存在則創(chuàng)建。
讀： Line Input #文件號, 字符串變量
讀一行數(shù)據(jù)存入字符串變量，數(shù)據(jù)包括空格、Tab、等，不包括回車符和換行符，所以要顯示文件的換行效果，要手動添加回車符和換行符（vbCrLf）
Input #文件號, 變量1[, | ;] [變量2]...
這種方式可以存入多個變量，而且變量類型不限于字符串型。
寫： Print #文件號, 參數(shù)1[, | ;] [參數(shù)2]...
將各參數(shù)逐個寫入文件。參數(shù)間用逗號隔開時，文件中相應(yīng)插入多個空格；用分號隔開時，插入一個空格?？梢杂肧pc(n)、Tab(n)等進行排版。
Write #文件號, 參數(shù)1[, | ;] [參數(shù)2]...
這種寫入方式將自動添加界定符，對不同參數(shù)的類型加以界定。
Visual Basic 6.0文件操作函數(shù)：
Seek： Seek(文件號)
返回文件正在訪問的位置，返回值為長整型。對順序文件和二進制文件，返回值以字節(jié)為單位；對隨機訪問文件，返回值以記錄號為單位。
Seek： Seek [#]文件號，位置
定位文件到指定位置。位置單位同上所述。
Input： Input (字節(jié)數(shù)，[#]文件號)
從文件的訪問當前位置讀入指定字節(jié)數(shù)的數(shù)據(jù)。僅適用于順序文件和二進制文件。
EOF： EOF(文件號)
判斷文件的訪問位置是否在文件尾，如果是，返回True，否則，返回False。
LOF： LOF(文件號)
返回文件長度，單位為字節(jié)。
FileLen： FileLen (文件名)
返回文件名對應(yīng)文件的長度，單位是字節(jié)。該函數(shù)取磁盤文件標識中的長度，即文件打開前的長度，可以取未打開的文件長度。
GetAttr： GetAttr (Pathname)
返回指定文件或文件夾的屬性。
FileAttr： FileAttr (文件號)
返回文件號對應(yīng)文件的打開方式。
GetDateTime： GetDateTime (Pathname)
返回文件被創(chuàng)建或修改的最后日期和時間。
Free： FreeFile[(0|1)]
返回未被占用的文件號，F(xiàn)ree或Free(0)返回1～255之間未占用的文件號，F(xiàn)ree(1)返回256～511之間未占用的文件。
Dir： Dir (Pathname [,Attributes])
測試指定路徑是否有某文件，Attributes附加文件屬性條件，取值vbNormal、vbReadOnly、vbHidden、vbSystem、vbVolume、vbDirectory。
Kill： Kill (文件名)
刪除指定文件，文件名可包含路徑。
FileCopy： FileCopy 源文件，目標文件
拷貝文件。
Name： Name 舊文件名 As 新文件名
文件重命名。前后路徑不一致時，操作為移動文件并重命名。
MkDir： MkDir path
新建文件夾。
RmDir： Rmdir path
刪除文件夾。
ChDrive： ChDrive Drive
改變當前驅(qū)動器 ChDrive "D"
CurDir： CurDir [(driver)]
返回當前工作路徑，指定driver則返回目標驅(qū)動器的當前工作路徑。
舉例：
'新建文件，并寫入數(shù)據(jù)，關(guān)閉
Open "a.txt" For Output As #1
Print #1, "ABCDEFG"; vbCrLf; "HIJK"
Close #1
'打開文件，并全部寫入新文件，關(guān)閉
Open "a.txt" For Input As #2
Open "b.txt" For Output As #3
Dim str As String
While (Not EOF(2))
Line Input #2, str
Print #3, str
Wend
Close
注：關(guān)于Visual Basic 6.0的文件操作資料來自于
如果您覺得我的回答幫助了您解決難題，別忘了采納哦，如果我的回答未能解決您的問題，您可以在互聯(lián)網(wǎng)上尋找更多的解決方案！
默認單位是像素
96是系統(tǒng)的一種設(shè)定，每英寸的點數(shù)，是系統(tǒng)界面用小字體時的設(shè)置
用像素數(shù)除以DPI沒有意義
首先,須在項目里引用: 添加引用-Com-Microsoft Excel 9.0 Object Library （這是EXCEL2000）
1 打開Excel： dim myexcel as new Excel.Application() myexcel.visible=true
2 添加新的工作簿： myexcel.Workbooks.add()
3 設(shè)定第二個工作表為活動工作表： myexcel.worksheets(2).Acivate()
4 打開指定的Excel文件： myexcel.workbooks.open("c:\my.xls")
5 顯示Excel窗口： myexcel.visible=true
6 更改Excel的標題欄： myexcel.caption="歡迎,歡迎!"
7 為Excel的單元格賦值： myexcel.cells(1,4).value=100 此語句使Excel當前工作表的第一行第四列,即D1單元格等于100, 也可以這樣寫: myexcel.Range("D1").value=100
8 設(shè)置指定列的寬度(單位:字符個數(shù))： myexcel.ActiveSheet.colums(1).columnwidth=20 設(shè)定當前工作表第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 此語句將當前工作表的B1:D3單元格的右邊框設(shè)置為實線 linestyle參數(shù): 1:細實線 2:細虛線 3:點虛線 4:雙細實線
14 設(shè)置頁腳： myexcel.activesheet.pagesetup.centerfooter="第p頁" 注意:設(shè)置頁眉頁腳時要保證計算機上裝有打印機,否則出錯!
15 設(shè)置頁眉： myexcel.activesheet.pagesetup.centerfooter="第p頁"
16 設(shè)置頁眉到頂斷距離為2cm： myexcel.Activesheet.pagesetup.Headermargin=2/0.035
17 設(shè)置頁腳到底端距離為2cm： myexcel.Activesheet.pagesetup.Footermargin=2/0.035
18 設(shè)置頂邊邊距為2cm： myexcel.Activesheet.pagesetup.topmargin=2/0.035
19 設(shè)置底邊邊距為2cm： myexcel.Activesheet.pagesetup.Bottommargin=2/0.035
20 設(shè)置左邊邊距為2cm： myexcel.Activesheet.pagesetup.Leftmargin=2/0.035
21 設(shè)置右邊邊距為2cm： myexcel.Activesheet.pagesetup.Rightmargin=2/0.035
22 設(shè)置頁面水平居中： myexcel.activesheet.pagesetup.CenterHorizontally=true
23 設(shè)置頁面垂直居中： myexcel.activesheet.pagesetup.Centervertically=true
24 設(shè)置頁面紙張大小 (1,窄行 8.5*11 ;39 ,寬行 14*11)： myexcel.activesheet.pagesetup.papersize=1
25 打印單元格網(wǎng)格線： myexcel.activesheet.pagesetup.PrintGridlines=true
26 復制整個工作表 ： myexcel.activesheet.Usedrange.Copy
27 復制指定區(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 自動調(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 打印預覽工作表： 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
清楚了這些命令，操作excel不就變的很輕松了！
網(wǎng)絡(luò)上找到這個比較全面，你試一下，我記得以前也是這么設(shè)置的。
int GetDeviceCaps( HDC hdc, int nIndex);
其中，hdc用來指定設(shè)備環(huán)境句柄，nIndex用來指定要獲取的參量索引，對于打印機而言，它常常需要下列的預定義值：
LOGPIXELSX 打印機水平分辨率
LOGPIXELSY 打印機垂直分辨率
PHYSICALWIDTH 打印紙的實際寬度
PHYSICALHEIGHT 打印紙的實際高度
PHYSICALOFFSETX 實際可打印區(qū)域的物理左邊距
PHYSICALOFFSETY 實際可打印區(qū)域的物理上邊距
下面的函數(shù)代碼就是用來設(shè)置頁邊距，并且還計算頁面的物理邊距：
void CEx_Prn1View::SetPageMargin(CDC *pDC, CPrintInfo *pInfo, int l, int t, int r, int b)
// l, t, r, b分別表示左上右下邊距, 單位為0.1mm
{
int nOldMode = pDC- GetMapMode();
pDC- SetMapMode(MM_LOMETRIC);
// 計算一個設(shè)備單位等于多少0.1mm
double scaleX = 254.0 / (double)GetDeviceCaps(
pDC- m_hAttribDC, LOGPIXELSX);
double scaleY = 254.0 / (double)GetDeviceCaps(
pDC- m_hAttribDC, LOGPIXELSY);
int x = GetDeviceCaps(pDC- m_hAttribDC,
PHYSICALOFFSETX);
int y = GetDeviceCaps(pDC- m_hAttribDC,
PHYSICALOFFSETY);
int w = GetDeviceCaps(pDC- m_hAttribDC,
PHYSICALWIDTH);
int h = GetDeviceCaps(pDC- m_hAttribDC,
PHYSICALHEIGHT);
int nPageWidth = (int)((double)w*scaleX + 0.5);
// 紙寬，單位0.1mm
int nPageHeight = (int)((double)h*scaleY + 0.5);
// 紙高，單位0.1mm
m_nPhyLeft = (int)((double)x*scaleX + 0.5);
// 物理左邊距，單位0.1mm
m_nPhyTop = (int)((double)y*scaleY + 0.5);
// 物理上邊距，單位0.1mm
pDC- DPtoLP(pInfo- m_rectDraw);
CRect rcTemp = pInfo- m_rectDraw;
rcTemp.NormalizeRect();
m_nPhyRight = nPageWidth - rcTemp.Width() -
m_nPhyLeft; // 物理右邊距，單位0.1mm
m_nPhyBottom = nPageHeight - rcTemp.Height() -
m_nPhyTop; // 物理下邊距，單位0.1mm
// 若邊距小于物理邊距，則調(diào)整它們
if (l m_nPhyLeft) l = m_nPhyLeft;
if (t m_nPhyTop) t = m_nPhyTop;
if (r m_nPhyRight) r = m_nPhyRight;
if (b m_nPhyBottom) b = m_nPhyBottom;
// 計算并調(diào)整pInfo- m_rectDraw的大小
pInfo- m_rectDraw.left = l - m_nPhyLeft;
pInfo- m_rectDraw.top = - t + m_nPhyTop;
pInfo- m_rectDraw.right -= r - m_nPhyRight;
pInfo- m_rectDraw.bottom += b - m_nPhyBottom;
pDC- LPtoDP(pInfo- m_rectDraw);
pDC- SetMapMode(nOldMode);
// 恢復原來的映射模式
}
重慶分公司
重慶分公司
