【正文】 將文本對。為文本對象設(shè)置內(nèi)容 , amp。定義一個文本對象 For c As integer = 0 to 5設(shè)置網(wǎng)格線39。定義一個表格對象(rt) 39。 垂直網(wǎng)格線示例一Dim doc As New PrintDoc 39。 上邊框Horz： 左邊框Right： 右邊框Top： 所有網(wǎng)格線Bottom：底邊框Left:下面是執(zhí)行結(jié)果：　 網(wǎng)格線表格的樣式(Style)有一個名為GridLines的子屬性，用于設(shè)置網(wǎng)格線。 NextNext() 39。 (r, c).RenderObject = rx 39。 c 39。 = r amp。 dim rx As New 39。下面的代碼向表格中填入值For r As integer = 0 to 5 定義一個表格對象(rt) 39。示例：請?jiān)诿畲翱趫?zhí)行下面的代碼，該段代碼將創(chuàng)建一個6行6列的表格：Dim doc As New PrintDoc 39。例如我們輸入代碼：Dim rt As new prt然后按Tab鍵，即可自動列出所有報(bào)表對象，按上下箭頭鍵選擇對象，然后按回車鍵即可自動輸入對象名稱：當(dāng)輸入代碼：Dim rt As new rt.然后按Tab鍵，即可已自動列出RenderText的所有屬性供選擇，同樣按上下箭頭鍵選擇屬性，然后按回車鍵即可自動輸入屬性名稱：當(dāng)輸入代碼：Dim rt As New = Hello Foxtable.然后按Tab，即可自動列出所有的樣式名稱供選擇，同樣按上下箭頭鍵選擇樣式，然后按回車鍵即可自動輸入樣式名稱：當(dāng)輸入代碼：Dim rt As New = Hello Foxtable = 然后按Tab,即可自動列出TextAlignHorz樣式的全部候選值，同樣按上下箭頭鍵選擇候選值，然后按回車鍵即可自動輸入候選值：可以看出，不管是對象名稱，還是屬性名稱，還是樣式名稱，還是屬性或樣式的候選值，都可以自動輸入，不需要準(zhǔn)確記憶任何東西。禁止自動旋轉(zhuǎn)打印內(nèi)容　 無需記憶任何東西專業(yè)報(bào)表有大量的對象和屬性，還提供了豐富的樣式設(shè)置，任何人都不可能準(zhǔn)確記住所有內(nèi)容的。例如：Dim doc As New PrintDocDim ra As New = 150 = 80 = False 39。 NextNext(1,toc)() 這是生成的目錄： 指定打印機(jī)Dim doc As New PrintDocDim rt As New = Hello Foxtable (rt) = HP LaserJet 6L() 禁止自動旋轉(zhuǎn)打印報(bào)表的時(shí)候，系統(tǒng)默認(rèn)會自動根據(jù)實(shí)際紙張的大小，判斷是否需要旋轉(zhuǎn)打印內(nèi)容，以便更好地配合紙張。 m amp。 (rt) rt = New (, rt, 1) 章 = 第 amp。 安民警和醫(yī)護(hù)人員,指導(dǎo)抗震救災(zāi)工作.(rt)For n As Integer = 1 to 30 危急時(shí)刻,中共中央總書記?國家主席?中央軍委主席胡錦濤乘飛機(jī)趕往四川s = s amp。預(yù)覽 執(zhí)行結(jié)果： 自動生成目錄如果你生成的報(bào)表特別長，例如長達(dá)200頁，也許你喜歡給報(bào)表加上目錄，就像書籍一樣。文本顏色為灰色 = rt 39。垂直居中對齊 = 72 39。旋轉(zhuǎn)45度 = 39。寬度等于頁面寬度 = 39。設(shè)置文本對象的內(nèi)容 = Foxtable 39。將文本對象加入到報(bào)表Next39。每段間隔5毫米首行縮進(jìn)9毫米設(shè)置文本對象的內(nèi)容 rt = New 安民警和醫(yī)護(hù)人員，指導(dǎo)抗震救災(zāi)工作。 危急時(shí)刻，中共中央總書記、國家主席、中央軍委主席胡錦濤乘飛機(jī)趕往四川s = s amp。定義一個文本對象Dim s As String 39。示例Dim doc As New PrintDoc 39。預(yù)覽 執(zhí)行結(jié)果：　 水印報(bào)表(PrintDoc)有一個名為WaterMark的屬性，用于設(shè)置水印。字體大小為8磅 = rt 39。設(shè)置底邊框 = 39。設(shè)置文本內(nèi)容 = 39。設(shè)置頁眉rt = New 39。 (rt) 39。 = 150 39。 = 5 39。 = 9 39。 = s 39。For i As Integer = 1 to 20 省地震災(zāi)區(qū)，慰問災(zāi)區(qū)干部群眾，看望奮戰(zhàn)在抗震救災(zāi)第一線的部隊(duì)官兵、公s = s amp。定義字符變量s = 新華網(wǎng)綿陽5月16日電(記者孫承斌)16日上午，在四川抗震救災(zāi)的s = s amp。定義一個報(bào)表Dim rt As 39。 垂直方向頁號[PageYCount]：垂直方向總頁數(shù)。 水平方向頁號[PageXCount]：水平方向總頁數(shù)[PageY]： 頁號[PageCount]： 總頁數(shù)[PageX]：頁眉、頁腳可以使用以下編碼：[PageNo]:PageFooter: 指定頁腳區(qū)的打印對象。預(yù)覽 　　 頁眉頁腳之前的示例代碼，打印對象都是加入到主體(Body)區(qū)：(rt) 39。將文本對象加入到報(bào)表設(shè)置邊框指定垂直位置指定水平位置自動設(shè)置寬度設(shè)置文本對象的內(nèi)容 = Hello Foxtable amp。 rt = New () 39。加入到報(bào)表中打印前換頁定義一個新的空對象定一個空對象For n As integer =1 To 2定義一個報(bào)表Dim rt As 39。預(yù)覽 可以看到，兩個文本對象被打印在不同的分欄：　需要注意的是，如果給打印對象指定了坐標(biāo)位置，那么其BreakAfter和BreakBefore屬性是失效的；此時(shí)為了強(qiáng)制換頁，我們可以加入一個RenderEmpty對象，RenderEmpty是一個空對象，不會打印任何內(nèi)容；設(shè)置RenderEmpty對象的BreakAfter或BreakBefore屬性，不指定其坐標(biāo)，加入到報(bào)表中，即可實(shí)現(xiàn)強(qiáng)制換頁、換欄，換行。 (rt) 39。 = 39。 = 150 39。 = 9 39。 = s 39。 Dim rt As New 39。 安民警和醫(yī)護(hù)人員，指導(dǎo)抗震救災(zāi)工作。 危急時(shí)刻，中共中央總書記、國家主席、中央軍委主席胡錦濤乘飛機(jī)趕往四川s = s amp。增加第一欄() 39。定義一個報(bào)表Dim s As String 39。 另起一頁None：這兩個屬性都是BreakEnum型枚舉，有以下可選值：Column: 另起一欄Line： (rt)Next() 39。 = 15 rt = New = + 2 = 編號： (rt) = 39。 = 總經(jīng)理 (rt) = + 2 39。 = 職務(wù)： (rt) = 15 rt = New (rt) 39。 = 2 rt = New (ra) 39。 = New (, ) 39。禁止垂直分割禁止水平分割高度24毫米寬度等于分欄寬度 Dim rt As 欄間距2毫米For i As integer = 1 to 100增加三欄()()(0).Spacing = 2 39。示例:Dim doc As New PrintDoc 39。預(yù)覽 執(zhí)行結(jié)果：　 打印標(biāo)簽之前我們通過調(diào)整排列方式，實(shí)現(xiàn)了一行打印多個標(biāo)簽的功能。 (rt) 39。 = 150 39。 = 5 39。 = 9 39。 = s 39。 Dim rt As New 39。 安民警和醫(yī)護(hù)人員，指導(dǎo)抗震救災(zāi)工作。 危急時(shí)刻，中共中央總書記、國家主席、中央軍委主席胡錦濤乘飛機(jī)趕往四川s = s amp。第一欄的寬度為60毫米(0).Spacing = 1 39。增加第一欄() 39。定義一個報(bào)表Dim s As String 39。很少需要去設(shè)置分欄的，因?yàn)槟J(rèn)設(shè)置通常會符合我們的要求。將文本對象加入到報(bào)表Next() 39。每段間隔5毫米首行縮進(jìn)9毫米設(shè)置文本對象的內(nèi)容定義一個文本對象For i As Integer = 1 to 20 省地震災(zāi)區(qū)，慰問災(zāi)區(qū)干部群眾，看望奮戰(zhàn)在抗震救災(zāi)第一線的部隊(duì)官兵、公s = s amp。增加第二欄s = 新華網(wǎng)綿陽5月16日電(記者孫承斌)16日上午，在四川抗震救災(zāi)的s = s amp。定義字符變量() 39。Dim doc As New PrintDoc 39。預(yù)覽 執(zhí)行結(jié)果：　 分欄打印 分欄打印報(bào)表(PrintDoc)有一個Columns屬性，表示頁面分欄集合。設(shè)置邊框(rt) 39。對象寬度等于頁面寬度 = 39。設(shè)置上邊距 = 20 39。設(shè)置左邊距 = 10 39。定義一個報(bào)表Dim rt As New 39。紙張寬度為100毫米 = 120 39。預(yù)覽 自定義紙張doc As New PrintDoc() 39。定義一個報(bào)表 = True 39。預(yù)覽 下表列出了常用的紙張類型：值紙張類型8A3 9A4 11A5 12B4 13B5 66A2 70A6 紙張類型很多，全部紙張類型，請參考：紙張大全(見 [標(biāo)題編號]) 橫向打印只需將Landscape屬性設(shè)為True，即可橫向打印。定義一個報(bào)表 = 13 39。 邏輯型，是否彩色打印 紙張類型PaperKind是一個整數(shù)，用于設(shè)置紙張類型，所有的紙張類型都有一個整數(shù)表示。 右邊距，單位為毫米TopMargin: 設(shè)置頁面高度，單位為毫米Width: 邏輯型，是否橫向打印Height: 頁面設(shè)置 頁面設(shè)置PaperKind:將容器加入到報(bào)表() 39。設(shè)置邊框(rt) 39。寬度等于容器寬度 = 39。定義一個文本對象Dim ra As New = Hello Foxtable 39。不信可以在命令窗口執(zhí)行下面的代碼，你會發(fā)現(xiàn)，不會有任何內(nèi)容顯示：Dim doc As New PrintDoc 39。但是這時(shí)候，子對象的尺寸不能引用RenderArea的尺寸，否則不能正常顯示。禁止垂直分割否則可能會出現(xiàn)一個標(biāo)簽被分割在兩頁的情況。預(yù)覽報(bào)表 執(zhí)行結(jié)果：注意一定要有下面兩行代碼： = 39。 = = 44081919710917243 (rt) = 2 rt = New 垂直坐標(biāo)和前一對象相同 = 15 rt = New 垂直坐標(biāo)位于遷移對象之下的2毫米 = 2 rt = New = 2 = 黃財(cái)?shù)绿砑拥饺萜髦? = 2 = 姓名：將容器加入到報(bào)表中 禁止垂直分割禁止水平分割設(shè)置邊框 = 1 = 24 39。 = 53 39。 Dim ra As New 定義一個報(bào)表 = 39。用RenderArea可以輕松實(shí)現(xiàn)這樣的要求。預(yù)覽執(zhí)行結(jié)果： 容器與標(biāo)簽一個頁面中會有很多個標(biāo)簽，標(biāo)簽本身按順序排列，但是標(biāo)簽中的內(nèi)容，是需要精確定位的。將文本對象加入到容器ra中Next(ra) 39。垂直居中水平居中設(shè)置邊框設(shè)置各個方向的間隔高度為15毫米寬度為35毫米設(shè)置文本對象的內(nèi)容 = Hello Foxtable amp。 rt = New () 39。將文本對象加入到報(bào)表Next = 39。垂直居中水平居中設(shè)置邊框設(shè)置各個方向的間隔高度為15毫米寬度為35毫米設(shè)置文本對象的內(nèi)容 = Hello Foxtable amp。 rt = New () 39。定義一個容器Dim rt As 39。下面的代碼，前3個文本對象(RenderText)按正常的排列方式（從上到下）加入到報(bào)表中，后四個被加入到一個RenderArea中，排列方式為從左到右：Dim doc As New PrintDoc() 39。RenderArea也有Stacking屬性，可以用來指定其子對象的排列方式。將文本對象加入到報(bào)表Next() 39。垂直居中水平居中設(shè)置邊框禁止被垂直分割 設(shè)置下間隔為3毫米寬度為40毫米寬度為40毫米設(shè)置文本對象的內(nèi)容創(chuàng)建文本對象定義一個文本對象For i AS integer = 0 To 10 不分割SplitIfNeeded： 分割現(xiàn)在我們只需如下修改代碼，即可避免上圖所出現(xiàn)的情況，注意加粗的一行：Dim doc As New PrintDoc() 39。預(yù)覽 下圖是執(zhí)行結(jié)果，我們看到有一個RenderText被分成了兩部分，分別處在不同的頁面：為了避免這種情況發(fā)生，所有的打印對象都提供了兩個屬性：SplitHorzBehavior：設(shè)置對象的水平分割方式SplitVertBehavior：設(shè)置對象的垂直分割方式這兩個屬性都是SplitBehaviorEnum型枚舉，可選值有：Never： (rt) 39。 = 39。 = 39。 = New (1, ) 39。 = 3 39。 = 40 39。 = 40 39。 = Hello Foxtable 39。 rt = New () 39。定義一個報(bào)表Dim rt As 39。 下標(biāo)Superscript: 上標(biāo) Add