binFormSource binUser 15 256 纸来源于连续打印纸 自定义纸盒
⒐Val%=PaperBins(PaperBin as PaperBinSettings)返回给定的纸盒是否有效 ⒑PaperSize[=PaperSizeSettings]返回或设置当前标准纸张的尺寸
Constant Value Description pprLetter pprLetterSmall pprTabloid pprLedger pprLegal pprStatement pprExecutive pprA3 pprA4 pprA4Small pprA5 pprB4 pprB5 pprFolio pprQuarto ppr10x14 ppr11x17 pprNote pprEnv9 pprEnv10 pprEnv11 pprEnv12 pprEnv14 pprCSheet pprDSheet pprESheet pprEnvDL pprEnvC5 pprEnvC3 pprEnvC4 pprEnvC6 pprEnvC65 pprEnvB4 pprEnvB5 pprEnvB6 pprEnvItaly pprEnvMonarch pprEnvPersonal 1 Letter, 8? x 11 in. 2 Letter Small, 8? x 11 in. 3 Tabloid, 11 x 17 in. 4 Ledger, 17 x 11 in. 5 Legal, 8 ? x 14 in. 6 Statement, 5 1/2 x 8 1/2 in. 7 Executive, 7 1/2 x 10 1/2 in. 8 A3, 297 x 420 mm 9 A4, 210 x 297 mm 10 A4 Small, 210 x 297 mm 11 A5, 148 x 210 mm 12 B4, 250 x 354 mm 13 B5, 182 x 257 mm 14 Folio, 8 ? x 13 in. 15 Quarto, 215 x 275 mm 16 10 x 14 in. 17 11 x 17 in. 18 Note, 8 ? x 11 in. 19 Envelope #9, 3 7/8 x 8 7/8 in. 20 Envelope #10, 4 1/8 x 9 ? in. 21 Envelope #11, 4 ? x 10 3/8 in. 22 Envelope #12, 4 ? x 11 in. 23 Envelope #14, 5 x 11 ? in. 24 C size sheet 25 D size sheet 26 E size sheet 27 Envelope DL, 110 x 220 mm 28 Envelope C5, 162 x 229 mm 29 Envelope C3, 324 x 458 mm 30 Envelope C4, 229 x 324 mm 31 Envelope C6, 114 x 162 mm 32 Envelope C65, 114 x 229 mm 33 Envelope B4, 250 x 353 mm 34 Envelope B5, 176 x 250 mm 35 Envelope B6, 176 x 125 mm 36 Envelope, 110 x 230 mm 37 Envelope Monarch, 3 7/8 x 7 ? in. 38 Envelope, 3 5/8 x 6 ? in.
pprFanfoldUS
pprFanfoldStdGerman pprFanfoldLglGerman ppr* pprUser 39 40 41 42 - 68 256
U.S. Standard Fanfold, 14 7/8 x 11 in. German Standard Fanfold, 8 ? x 12 in. German Legal Fanfold, 8 1/2 x 13 in. Less-common international sizes. 自定义尺寸. 使用 PaperWidth和PaperHeight 属性设置
⒒Val%=PaperSizes(PaperSize as PaperSizeSettings)返回给定纸张的尺寸在当前打印机上是否有效
⒓PaperWidth[=value as single]返回或设置当前纸张的物理宽度。如果是设置,PaperSize将自动变为pprUser(256)成为自定义的纸张。
⒔PaperHeight[=value as single] 返回或设置当前纸张的物理高度。如果是设置,PaperSize将自动变为pprUser(256)成为自定义的纸张。
⒕PrintQuality[=PrintQualitySettings]返回或设置打印质量
Constant Value Description pqDraft -1 尽可能低的分辨率 pqLow -2 低分辨率 pqMedium -3 中分辨率 pqHigh -4 尽可能高的分辨率 Other > 0 指定分辨率 (点每英寸)
⒖** ResetDC事件
⒗ScaleOutput[=value as integer]返回或设置打印输出的百分比
⒘TrueType[=TrueTypeSettings]返回或设置TrueType字体如何被打印
Constant Value Description ttBitmap 1 用位图打印 ttDownload 2 从软件字库下载TrueType字体 ttSubDevice 3 用设备字体代替TrueType字体. ttOutline 4 用矢量图形打印.
⒙ReadState(见前面)
3、文档规划属性
(1) 页面大小
⒈Orientation,PhysicalPage, 见前面
⒉Val#=PageWidth返回页面的宽度,取决于PaperSize,Orientation,PhysicalPage等属性的设置
⒊Val#=PageHeight返回页面的高度,取决于PaperSize,Orientation,PhysicalPage等属性的设置
(2) 页面设计
⒈MarginLeft[=value as variant]返回或设置左边距,以twips为单位,默认为1440 ⒉MarginRight[=value as variant] 返回或设置右边距,以twips为单位,默认为1440 ⒊MarginTop[=value as variant] 返回或设置上边距,以twips为单位,默认为1440 ⒋MarginBottom[=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 twips vp.MarginLeft = \ ' one inch vp.MarginLeft = \ ' 62 points
vp.MarginLeft = \
⒌** GetMargins方法
⒍Columns[=value as integer]返回或设置一页中的栏数,默认值为1
⒎ColumnSpace[=value as variant] 返回或设置一页中的栏间距,默认值为180 ⒏Val%=PageCount返回当前文档总页数
⒐PageBorde r[=PageBorderSettings] 返回或设置每页边框的类型
constant pbNone pbBottom pbTop pbTopBottom pbBox pbColumns pbAl pbColTop pbColBottom value 0 1 2 3 4 5 7 8 9 没有 底下有 上面有 底下、上面都有 四周都有 栏间有 栏间、上下都有 全有 栏间、上面有 栏间、下面有 pbColTopBottom 6
(3) 页眉和页脚
⒈Header[=value as string]返回或设置页眉的文本,左中右使用“|”分隔。如: vp.Header = \vp.Header = vp.DocName +\
⒉Footer[=value as string] 返回或设置页脚的文本,左中右使用“|”分隔。 ⒊HdrColor[=colorref&]返回或设置页眉页脚的颜色 ⒋HdrFont[=Font] 返回或设置页眉页脚的字体
⒌MarginHeader[=value as variant] 返回或设置页眉的边距,默认值为0 ⒍MarginFooter[=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]返回或设置行间距,以百分比计
Setting Effect 100 单倍间距 150 1.5倍间距 200 双倍 50 半间距
⒒SpaceBefore[=value as variant] 返回或设置段前间距 ⒓SpaceAfter[=value as variant] 返回或设置段后间距 ⒔Font
⒕TextColor[=colorref&]返回或设置文本的颜色
⒖TextAlign[=TextAlignSettings] 返回或设置文本对齐方式
Constant Value Description taLeftTop 0 左上 taCenterTop 1 中上 taRightTop 2 右上 taLeftBottom 3 左下 taCenterBottom 4 中下 taRightBottom 5 右下 taLeftMiddle 6 左中 taCenterMiddle 7 中中 taRightMiddle 8 右中 taJustTop 9 两端且靠上 taJustBottom 10 两端且靠下 taJustMiddle 11 两端且中间
⒗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的取值如下表: 符号 Value Saves/Restores vpsCharacter 1 Font, TextColor, 和TextAngle 属性. vpsParagraph 2 SpaceBefore, SpaceAfter, LineSpacing,
Indent*, 和 TextAlign 属性.
vpsGraphics 4 Brush*, Pen*, TablePen*, 和 TableBorder 属
性.
vpsContent 7 所有以上的属性(vpsCharacter 、vpsParagraph
和vpsGraphics)
vpsPage 8 Margin*, Columns, ColumnSpacing,和
PageBorder 属性.
vpsAll 65535 所有以上的属性(vpsCharacter 、
vpsParagraph 、vpsGraphics 和vpsPage)
** vp.Styles.Remove(Index As Variant)方法,从集合中删除指定的风格,Index取值为0~vp.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]返回当前文档正在建立的栏数从1~Columns ⒎CurrentRow[= value as integer] 返回当前文档正在建立的行数
⒏CurrentPage[= value as integer]返回当前文档正在建立的页数,如果文档建立完成,此属性就等于PageCount(文档的总页数)
(3) 表格
⒈Table=value as string在页面上呈现一个表格,如: sFmt$ = \