vsPrinter控件的使用.doc

vsPrinter控件的使用一、 一般使用的步骤 WITH Thisform.vsPrinter（一） Set up Device （设置设备）.Preview=True.Device= “Epson LQ-1900K”.ExportFile=”C:mydocustest.rtf”.ExportFormat=vpxRTF（二） Set up Document （设置文档）.Font=”Tahoma”.FonSize=9.Header=”Test| |page %d”.MarginLeft=”1in”（三） Start Document （开始文档）.StartDoc（四） Generate Document （产生文档）For i=0 to 1.Paragraph=”Hello,World1”+str(i)if .Error then exitendifendfor（五） End Document （结束文档）.EndDoc（六） Preview/Print/Save Document （预览，打印，保存文档）.PrintDoc.SaveDoc(“C:mydocustest.rtf”) EndWith二、 详细说明1、 用户接口属性（1） 控件外观Appearance, BackColor, BorderStyle（略）EmptyColor =colorref&：设置预览页面周围区域的颜色NavBar =NavBarSettings：返回或设置是否显示导航条ConstantValueDescriptionvpnbNone0不显示vpnbTop1在控件上方显示一简单的导航条vpnbBottom2在控件下方显示一简单的导航条vpnbTopPrint3在控件上方显示一复杂的导航条，这是缺省设置vpnbBottomPrint4在控件下方显示一复杂的导航条默认值为vpnbTopPrint(3)NavBarColor = colorref&：返回或设置导航条的颜色AbortWindow =True|False：返回或设置在打印时是否显示中断对话框，默认值为TrueAbortWindowPos =AbortWindowPosSettings：返回或设置缺省中断对话框的放置ConstantValueDescriptionawAppWindow0自动中断对话框显示在控件的中心awScreenCenter1自动中断对话框显示在屏幕的中心默认值为awAppWindow(0)Error=PrinterErrorSettings：返回描述一个错误条件的代码ConstantValuevperCantAccessPrinter3vperCantStartJob 4vperUserAborted 5vperAlreadyPrinting 6vperDeviceIncapable 7vperControlIncapable8vperCantInBrowser 9AbortCaption=value as string：返回或设置缺省中断对话框的标题，默认值为：Printing.AbortTextButton=value as string：返回或设置缺省中断对话框中按钮的标题，默认值为：CancelAbortTextDevice=value as string：返回或设置缺省中断对话框中设备字串的标题，默认值为：on the %s on %s，第一个%s代表设备名，第二个%s代表端口名。AbortTextPage=value as string：返回或设置缺省中断对话框中页字串的标题，默认值为：Now printing Page %d of，%d代表当前页号（2） 预览Preview=True|False：返回或设置输出是存为预览还是直接打印，默认值为TruePreviewPage=value as integer：返回或设置当前预览的页号Val%=PreviewPages：返回当前在预览屏幕中的页数，这取决于ZoomMode的设置ShowGuides=ShowGuidesSettings：返回或设置是否显示边距线ConstantValueDescriptiongdHide0从不显示gdShow1总是显示gdDesignTime2在设计时显示，这是默认值Navigation=NavigationSettings：返回或设置文档是否提供导航接口（鼠标，鼠标轮或键盘）ConstantValueDescriptionvpnvNone0没有内置的导航vpnvMouse1以下鼠标命令可以导航 (1) 单击拖动以滚动文档, (2) shift加左右按钮的单击以翻页 (3) control加左右按钮的单击以放大和缩小vpnvWheel2以下鼠标轮命令可以导航(1) 滚动鼠标轮以滚动文档, (2) shift加滚动鼠标轮以翻页 (3) control加滚动鼠标轮以放大和缩小vpnvMouseWheel3包括鼠标命令和鼠标轮命令vpnvKeyboard4以下键盘命令可以导航(1) 光标键以滚动文档, (2) PageUp/PageDown以翻页 (3) control加光标键以放大和缩小vpnvMouseKeyboard5包括鼠标命令和键盘命令vpnvWheelKeyboard6包括鼠标轮命令和键盘命令vpnvAll7包括鼠标命令、鼠标轮命令和键盘命令Zoom=value as double返回或设置预览时显示比例的百分比ZoomMode=ZoomModeSettings 返回或设置预览时的显示模式ConstantValueDescriptionzmPercentage0使用 Zoom 属性设置缩放比.zmThumbnail1显示多页一英寸宽的页面来适应控件zmTwoPages2显示紧靠着的两页整页，zmWholePage3显示一页整页zmPageWidth4显示一页，使其页宽适应控件zmStretch5不管长宽比，伸展一页使其适应控件默认值为：zmWholePage（3）ZoomMax=value as integer：返回或设置最大的放缩比，对内置的鼠标、键盘放缩限制，对Zoom属性无效。默认值为400ZoomMin=value as integer：返回或设置最小的放缩比，对内置的鼠标、键盘放缩限制，对Zoom属性无效。默认值为10ZoomStep=value as integer：返回或设置每次放缩的增量，对内置的鼠标、键盘放缩有效，对Zoom属性无效。默认值为25ProportionalBars=True|False：返回或设置滚动条的大拇指是否与可视区域成比例。默认值为TrueTrack=True|False：返回或设置当用户拖动滚动条的大拇指是否滚动文档。默认值为FalseScrollLeft=value as double：返回或设置可视区域的左坐标ScrollTop=value as double：返回或设置可视区域的上坐标设置ScrollLef和ScrollTop可以控制滚动条，使得你可以决定预览页的哪一部分呈现在用户面前。以下代码使在预览窗口显示页的中心部分Private Sub cmdCenter() Dim x, yx = vp.PageWidth / 2 * (vp.Zoom / 100)y = vp.PageHeight / 2 * (vp.Zoom / 100)vp.ScrollLeft = x - (vp.Width - 300) / 2vp.ScrollTop = y - (vp.Height - 300) / 2End SubLargeChangeHorz=value as double：返回或设置单击滚动条时，ScrollLef改变的数量，默认为300LargeChangeVert=value as double： 返回或设置单击滚动条时，ScrollTop改变的数量，默认为300SmallChangeHorz=value as double：返回或设置单击滚动箭头时，ScrollLef改变的数量，默认为30SmallChangeVert=value as double ：返回或设置单击滚动箭头时，ScrollTop改变的数量，默认为30Val%=ReadState：返回控件的当前状态。ConstantValueDescriptionvpstEmpty0控件为空的，没有预览文档.vpstLoading1控件正在从磁盘或URL装载一个文档.vpstReady2控件已经有了一个预览文档可以被打印和保存了vpstOpen3控件正在产生一个文档 (StartDoc 已调用, EndDoc没有 ).vpstSaving4控件正在保存一文档到磁盘文件vpstPrinting5控件正在打印一文档2、 设备控制属性（1） 设备选择Preview（见前面）OutputFileName=value as string：返回或设置将控件输出到一个打印机文件的名称，若设为空串“”则输出到打印机。若Preview设为True，此属性无效。ExportFile=value as string：返回或设置输出文件的名称。ExportFormat=ExportFormatSettings：返回或设置输出文件的格式类型。ConstantValueDescriptionvpxPlainHTML0生成简单的 HTML.这项结果存在压缩HTML，但丢失了某些段落格式vpxDHTML1生成带标签风格的HTML. 这项结果存在 大 HTML文件中, 所有段落格式都包含vpxPagedHTML2与vpxPlainHTML相似, 但建立几个超链接 HTML文件.vpxPagedDHTML3与vpxDHTML相似, 但建立几个超链接 DHTML文件vpxRTF4建立RTF输出.Divece=value as string：返回或设置当前打印机的名称，在建立文档时不能设置，必须在StartDoc之前设置。如果在EndDoc之后设置，必须重建文档Val%=Diveces(i as integer)：返回有效的打印机设备的名称，这是一个数组属性，以0为下标的基数Val%=Ndevices：返回有效的打印机设备的数目DefaultDevice=True|False返回或设置是否使Divece的设置改变windows世的缺省设置Val$=Driver返回当前打印机的驱动程序名称。（2） 设备驱动设置PhysicalPage =True|False返回或设置是否使用纸张的物理尺寸去适应它的页面，设为False将使用逻辑尺寸。逻辑尺寸比物理尺寸稍大，默认值为TrueCollate=CollateSettings返回或设置打印多份复制文档时是否使用分页，即是逐页打还是逐份打。ConstantValueDescriptioncolFalse0不使用分页，即逐份打印colTrue1使用分页打印，这种方式更快。但不一定都能使用。当Errorr返回vperDeviceIncapable（7）值时，表示不支持此方式ColorMode=ColorModeSettings返回或设置彩色打印机的颜色模式ConstantValueDescriptioncmMonochrome1黑白打印cmColor2彩色打印Copies=value as integer返回或设置文档打印的份数，默认值为1Val%=DPI返回当前打印的分辨率，以点/英寸为单位Duplex=DuplexSettings返回或设置双向或双面打印ConstantValueDescriptiondupSimplex1单面打印dupVertical2使用水平页翻转双面打印dupHorizontal3使用垂直页翻转双面打印Orientation=OrientationSettings返回或设置纸张的方向ConstantValueDescriptionorPortrait0纵向orLandscape1横向PaperBin =PaperBinSettings返回或设置当前纸盒ConstantValueDescriptionbinUpper1纸来源于上面纸盒.binLower2纸来源于下面纸盒.binMiddle3纸来源于中间纸盒.binManual4手动进纸.binEnvelope5信封来源于信封送约器binEnvManual6信封来源于信封送约器, 但手动进纸binAuto7纸来源于当前缺省纸盒binTractor8纸来源于牵引送纸器binSmallFmt9纸来源于小纸盒binLargeFmt10纸来源于大纸盒binLargeCapacity11纸来源于大容量进纸器binCassette14附加的纸盒筒binFormSource15纸来源于连续打印纸binUser256自定义纸盒Val%=PaperBins(PaperBin as PaperBinSettings)返回给定的纸盒是否有效PaperSize=PaperSizeSettings返回或设置当前标准纸张的尺寸ConstantValueDescriptionpprLetter1Letter, 8 x 11 in.pprLetterSmall2Letter Small, 8 x 11 in.pprTabloid3Tabloid, 11 x 17 in. pprLedger4Ledger, 17 x 11 in. pprLegal5Legal, 8 x 14 in. pprStatement6Statement, 5 1/2 x 8 1/2 in. pprExecutive7Executive, 7 1/2 x 10 1/2 in. pprA38A3, 297 x 420 mm pprA49A4, 210 x 297 mm pprA4Small10A4 Small, 210 x 297 mm pprA511A5, 148 x 210 mm pprB412B4, 250 x 354 mm pprB513B5, 182 x 257 mm pprFolio14Folio, 8 x 13 in. pprQuarto15Quarto, 215 x 275 mm ppr10x141610 x 14 in.ppr11x171711 x 17 in. pprNote18Note, 8 x 11 in. pprEnv919Envelope #9, 3 7/8 x 8 7/8 in. pprEnv1020Envelope #10, 4 1/8 x 9 in. pprEnv1121Envelope #11, 4 x 10 3/8 in. pprEnv1222Envelope #12, 4 x 11 in. pprEnv1423Envelope #14, 5 x 11 in. pprCSheet24C size sheet pprDSheet25D size sheet pprESheet26E size sheet pprEnvDL27Envelope DL, 110 x 220 mm pprEnvC528Envelope C5, 162 x 229 mm pprEnvC329Envelope C3, 324 x 458 mm pprEnvC430Envelope C4, 229 x 324 mm pprEnvC631Envelope C6, 114 x 162 mm pprEnvC6532Envelope C65, 114 x 229 mm pprEnvB433Envelope B4, 250 x 353 mm pprEnvB534Envelope B5, 176 x 250 mm pprEnvB635Envelope B6, 176 x 125 mm pprEnvItaly36Envelope, 110 x 230 mm pprEnvMonarch37Envelope Monarch, 3 7/8 x 7 in. pprEnvPersonal38Envelope, 3 5/8 x 6 in. pprFanfoldUS39U.S. Standard Fanfold, 14 7/8 x 11 in. pprFanfoldStdGerman40German Standard Fanfold, 8 x 12 in. pprFanfoldLglGerman41German Legal Fanfold, 8 1/2 x 13 in. ppr*42 - 68Less-common international sizes.pprUser256自定义尺寸. 使用 PaperWidth和PaperHeight 属性设置Val%=PaperSizes(PaperSize as PaperSizeSettings)返回给定纸张的尺寸在当前打印机上是否有效PaperWidth=value as single返回或设置当前纸张的物理宽度。如果是设置，PaperSize将自动变为pprUser（256）成为自定义的纸张。PaperHeight=value as single 返回或设置当前纸张的物理高度。如果是设置，PaperSize将自动变为pprUser（256）成为自定义的纸张。PrintQuality=PrintQualitySettings返回或设置打印质量ConstantValueDescriptionpqDraft-1尽可能低的分辨率pqLow-2低分辨率pqMedium-3中分辨率pqHigh-4尽可能高的分辨率Other 0指定分辨率 （点每英寸）* ResetDC事件ScaleOutput=value as integer返回或设置打印输出的百分比TrueType=TrueTypeSettings返回或设置TrueType字体如何被打印ConstantValueDescriptionttBitmap1用位图打印ttDownload2从软件字库下载TrueType字体ttSubDevice3用设备字体代替TrueType字体.ttOutline4用矢量图形打印.ReadState（见前面）3、 文档规划属性（1） 页面大小Orientation,PhysicalPage, 见前面Val#=PageWidth返回页面的宽度，取决于PaperSize，Orientation，PhysicalPage等属性的设置Val#=PageHeight返回页面的高度，取决于PaperSize，Orientation，PhysicalPage等属性的设置（2） 页面设计MarginLeft=value as variant返回或设置左边距，以twips为单位，默认为1440MarginRight=value as variant 返回或设置右边距，以twips为单位，默认为1440MarginTop=value as variant 返回或设置上边距，以twips为单位，默认为1440MarginBottom=value as variant 返回或设置下边距，以twips为单位，默认为1440可使用其它单位符号单位没有缺省单位 (缇, 除了 LineSpacing 属性).in, 英寸twip缇 (one twip = 1/20th of a point).pt, point点cm厘米mm毫米pix像素%百分比例如：vp.MarginLeft = 1440 no units, assume twipsvp.MarginLeft = 1in one inchvp.MarginLeft = 62pt 62 pointsvp.MarginLeft = 2.3cm 2.3 centimeters* GetMargins方法Columns=value as integer返回或设置一页中的栏数,默认值为1ColumnSpace=value as variant 返回或设置一页中的栏间距，默认值为180Val%=PageCount返回当前文档总页数PageBorde r=PageBorderSettings 返回或设置每页边框的类型constantvaluepbNone0没有pbBottom1底下有pbTop2上面有pbTopBottom3底下、上面都有pbBox4四周都有pbColumns5栏间有pbColTopBottom6栏间、上下都有pbAl7全有pbColTop8栏间、上面有pbColBottom9栏间、下面有（3） 页眉和页脚Header=value as string返回或设置页眉的文本，左中右使用“|”分隔。如：vp.Header = Document: +chr(10)+ vp.DocName +|Page + chr(10) +%dvp.Header = vp.DocName +|Page %dFooter=value as string 返回或设置页脚的文本，左中右使用“|”分隔。HdrColor=colorref&返回或设置页眉页脚的颜色HdrFont=Font 返回或设置页眉页脚的字体MarginHeader=value as variant 返回或设置页眉的边距，默认值为0MarginFooter=value as variant 返回或设置页脚的边距，默认值为0* AfterHeader事件* AfterFooter事件* BeforeHeader事件* BeforeFooter事件4、 输出产生（1） 格式CurrentX=value as variant返回或设置光标的水平位置（距页面的左边界），以缇为单位CuttentY=value as variant 返回或设置光标的垂直位置（距页面的上边界），以缇为单位* GetMargins见前面PageWidth见前面PageHeight见前面IndentFirst=value as variant返回或设置每段的首行缩进，以缇为单位，当设为负值时可形成悬挂缩进IndentLeft=value as variant 返回或设置每段的左缩进，以缇为单位IndentRight=value as variant 返回或设置每段的右缩进，以缇为单位IndentTab=value as variant 返回或设置一段的首行缩进，以缇为单位LineSpacing=value as variant返回或设置行间距，以百分比计SettingEffect100单倍间距1501.5倍间距 200双倍50半间距SpaceBefore=value as variant 返回或设置段前间距SpaceAfter=value as variant 返回或设置段后间距FontTextColor=colorref&返回或设置文本的颜色TextAlign=TextAlignSettings 返回或设置文本对齐方式ConstantValueDescriptiontaLeftTop0左上taCenterTop1中上taRightTop2右上taLeftBottom3左下taCenterBottom4中下taRightBottom5右下taLeftMiddle6左中taCenterMiddle7中中taRightMiddle8右中taJustTop9两端且靠上taJustBottom10两端且靠下taJustMiddle11两端且中间TextAngle=value as integer返回或设置文本的角度，单位是十分之一度AutoRTF=True|False返回或设置是否自动侦测RTF文本，若为True，控件将把任何文本都解释成RTF文本，这对于形成复杂的表格和文档是有好处的，但同时会降低速度。Val%=Styles返回适应于文档的风格，这是集合属性。它又具有自己的方法和属性。* vp.Styles.SetPageExtent方法， 从集合中清除所有风格val% = vp.Styles.Count 返回集合中风格的数目* vp.Styles.Add(Key As String, Flags As StyleFlagsSettings) 方法，基于当前文档的设置建立一个新的风格，加入集合中，并以Key命名。Flags的取值如下表：符号ValueSaves/RestoresvpsCharacter1Font, TextColor, 和TextAngle 属性.vpsParagraph2SpaceBefore, SpaceAfter, LineSpacing, Indent*, 和 TextAlign 属性.vpsGraphics4Brush*, Pen*, TablePen*, 和 TableBorder 属性.vpsContent7所有以上的属性（vpsCharacter 、vpsParagraph 和vpsGraphics）vpsPage8Margin*, Columns, ColumnSpacing,和PageBorder 属性.vpsAll65535所有以上的属性（vpsCharacter 、vpsParagraph 、vpsGraphics 和vpsPage）* vp.Styles.Remove(Index As Variant)方法，从集合中删除指定的风格，Index取值为0vp.Styles.Count-1 ， * vp.Styles.Apply(Index As Variant)方法，把给定的风格应用于控件，index 也右可用Key代替。vp.Styles.Key(Index As Variant) = NewKey As String返回或设置给定风格的名字val% = vp.Styles.Flags(Index As Variant)返回给定风格的Flags参数，index 也右可用Key代替。* vp.Styles.Save(FileName As String)方法，保存当前风格集合到一磁盘文件* vp.Styles.Load(FileName As String)方法，从一磁盘文件装入风格集合（2） 文本Paragraph=value as string在页面的当前光标位置上呈现一个段落，呈现后光标出现在新的一行Text=value as string在页面的当前位置呈现一字符串，与Paragraph不同的是Text字符串可设多种字体和颜色等且。呈现后光标出现在字符串末尾。* TextBox方法。TextRTF= value as string在页面的当前光标位置上呈现RTF（多信息文本格式）文本，此种文本可由其它应用程序产生如：word,excel,richedit control等。设置AutoRTF=True将RTF文本应用于各个地方(cell tables, headers, footers, text boxes, and regular paragraphs)。而且由控件导出的RTF文件可供其它应用程序使用。ExportRaw= value as string向由ExportFile指定的输出文件插入原始的文本CurrentColumn= value as integer返回当前文档正在建立的栏数从ColumnsCurrentRow= value as integer 返回当前文档正在建立的行数CurrentPage= value as integer返回当前文档正在建立的页数，如果文档建立完成，此属性就等于PageCount（文档的总页数）（3） 表格Table=value as string在页面上呈现一个表格，如：sFmt$ = +1440|+1050|+2000|+=4000;sBody$ = Last|First|Instrument|Favorite; & _ Page|James Patrick|Guitar|Stairway to Heaven; & _ Plant|Robert|Vocals|Going to California; & _ Jones|John Paul|Bass, Keyboards|The Lemon Song; & _ Bonham|John Bonzo|Drums|Rock & Roll, The Rover;vp.Table = sFmt & sBody* AddTable方法* AddTableArray方法* StartTable 方法* EndTable 方法 TableCell(Setting As TableCellSettings, Row1 As Variant , Col1 As Variant , Row2 As Variant , Col2 As Variant ) = value As Variant 返回或设置一单元格或一区域的属性一般过程A、 使用StartTable开始表格的定义B、 使用AddTable、AddTableArray或TableCell建立表格C、 使用TableCell格式化表格D、 使用EndTable结束定义并呈现表格ParameterDescriptionSetting指定哪个属性被返回或被设置.Row1选定区域的起始行，表头为0行，表身从1行开始Col1选定区域的起始列，从1列开始Row2选定区域的末行，可选。缺省为Row1.Col2选定区域的末列，可选。缺省为Col1下面是settings 的设置：表的属性: 这些设置影响整个表.ConstantValueDescriptiontcIndent0返回或设置表的缩进，（缺省单位为twips).tcRows1返回或设置表的行数， 表头不包括在内。 如果你改变表的行数，表格将从底部增加或删除表行。tcCols2返回或设置表的列数， 如果你改变表的列数，表格将从右边增加或删除表列。tcInsertRow3在指定的位置(Row1)插入一行. tcInsertCol4在指定的位置(Col1)插入一列. tcDeleteRow5在指定的位置(Row1)删除一行.tcDeleteCol6在指定的位置(Col1)删除一列. 行的属性: 这此设置影响所有行或选定的行， 参数 Col1 和Col2 将无效ConstantValueDescriptiontcRowHeight7返回或设置行高。表头为0行，（缺省单位为twips).tcRowBorder8返回或设置行是否带有上边框，可取的值是: 0 (没有边框), 1 (force 边框), and 2 (honor 表边框).tcRowData9返回或设置一个与行关联的Variant 类型的值，这个值给你自己使用，对控件不用它tcRowSource10返回或设置给表行提供数据源的数组行。这个设置仅适用于绑定到数组的表格（使用eAddTableArray 方法).注意数组索引基于0，而表身索引基于1tcRowKeepWithNext11返回或设置控件是否防止分页在行之后tcRowIsSubHeader12返回或设置在呈现表格后，此行是否成为表头(用于子标题).tcRowSpaceBefore34返回或设置插在行的每单元格之前的垂直空间数量tcRowSpaceAfter 35返回或设置插在行的每单元格之后的垂直空间总量tcRowBorderAbove36返回或设置行的自定义上边框的厚度tcRowBorderBelow37返回或设置行的自定义下边框的厚度tcRowBorderColor38返回或设置行的自定义上、下边框的颜色tcRowNewPage39返回或设置此行是否在一页的开头（将强制分页）tcRowKeepTogether40返回或设置一行是否是在同在页上，或是分在两页上列的属性: 这此设置影响所有列或选定的列， 参数 Row1 和 Row2 无效ConstantValueDescriptiontcColWidth13返回或设置列宽 (the default unit is twips).tcColBorder14返回或设置在列的右边是否有边框，可取的值有: 0 (no border), 1 (force border), and 2 (honor TableBorder setting).tcColData15返回或设置一个与列关联的Variant 类型的值，这个值给你自己使用，对控件不用它tcColSource16返回或设置给表列提供数据源的数组列。这个设置仅适用于绑定到数组的表格（使用eAddTableArray 方法).注意数组索引基于0，而表身索引基于1tcColAlign31返回和设置列的对齐方式，有效的值与 TextAlign属性一样.tcColNoWrap32返回或设置整个长文本是否可以换行以显示在列的一个单元格里tcColSkipRepeats33返回或设置是否忽略与上面单元格相同文本的输入tcColBorderLeft43返回或设置列的自定义左边框的厚度tcColBorderRight44返回或设置列的自定义右边框的厚度tcColBorderColor45返回或设置列的自定义左、右边框的颜色 单元格属性: 这些设置影响某单元格或某区域。ConstantValueDescriptiontcColSpan17返回或设置多少列的单元格被跨越（列合并）tcText18返回或设置单元格的的文本。如果表格绑定到一数组组，设置这属性将改变表格但不改变原数组tcAlign19返回或设置单元格的文本对齐方式。有效的值与TextAlign 属性一样。tcBackColor20返回或设置单元格的背景颜色tcForeColor21返回或设置单元格的前景颜色tcFont22返回或设置单元格的字体tcFontName23返回或设置单元格的字体名称tcFontSize24返回或设置单元格的的字体大小RtcFontBold25返回或设置单元格的字体是否是加粗tcFontItalic26返回或设置单元格的字体是否是斜体tcFontUnderline27返回或设置单元格的字体是否有下划线tcFontStrikethru28返回或设置单元格的字体是否有加重符号tcPicture29返回或设置单元格的图片tcPictureAlign30返回或设置单元格的图片对齐方式tcRowSpan41返回或设置多少行的单元格被跨越 (行合并).tcVertical42返回或设置单元格的文本方向是否垂直的tcAlignCurrency46Aligns to the right and accounts for parenthesis.Negative currency values are often shown enclosed in parenthesis.TableBorder = TableBorderSettings 返回或设置表的边框类型ConstantvaluedescriptiontbNone0没有边框tbBottom1表头和表身有底部边框tbTop2表头和表身有顶部边框tbTopBottom3表头和表身有顶部、底部边框tbBox4表头和表身有外边框tbColumns5表头和表身有列间边框tbColTopBottom6表头和表身有列间边框、顶部、底部边框tbAll7全部边框都有tbBoxRows8表头和表身外边框和行间边框tbBoxColumns9表头和表身外边框和列间边框tbBelowHeader10表头有底部边框TablePen = value As Variant 返回或设置单元格间边框的厚度TablePenTB = value As Variant 返回或设置表格顶部外边框和底部外边框的厚度TablePenLR = value As Variant 返回或设置表格左外边框和右外边框的厚度* BeforeTableCell事件* AfterTableCell事件（4） 图形(略)BrushColor = colorref& 返回或设置填充图形的刷子的颜色BrushStyle = BrushStyleSettings 返回或设置填充图形的刷子的风格ConstantValueDescriptionbsSolid0实心刷子bsTransparent1透明刷子.使用此刷画空的图形bsHorzLine2水平线bsVertLine3垂直线bsDiagonalUp4向上突出的对角线bsDiagonalDown5向下突出的对角线bsCross6水平、垂直交叉线bsDiagonalCross7对角交叉线默认值是bsSolid（0）PenColor = colorref& 返回或设置勾画图形的笔的颜色PenStyle = PenStyleSettings 返回或设置勾画图形的笔的风格ConstantValueDescriptionpsSolid0实心笔(默认值).psDash1虚线笔.psDot2点笔.psDashDot3划-点笔 psDashDotDot4划-点-点笔.psTransparent5透明笔 (no lines).psInsideSolid6Solid pen drawn inside shapes.PenWidth = value As Variant 返回或设置勾画图形的笔的宽度，默认为0* DrawCircle方法* DrawEllipse方法 * DrawLine方法 * DrawRectangle方法Polygon=value As String