VB PRINTER打印属性大全
vba printout参数
vba printout参数VBA(Visual Basic for Applications)是一种用于微软Office 套件中的宏编程语言,主要用于自动化处理办公软件,包括Excel、Word、PowerPoint等。
VBA打印输出(printout)是指将文档或工作表打印为纸质格式或PDF格式的功能。
在VBA中,可以使用PrintOut 方法来实现打印输出。
PrintOut方法是Worksheet类或Workbook类的一个成员,用于将工作表或整个工作簿打印输出。
它可以接受多个参数来控制打印输出的方式和格式。
下面我将详细介绍一些常用的PrintOut方法的参数。
1. From:指定要打印的起始页码。
可以是页码的数值,也可以使用XlPageFrom枚举值:xlFromTo表示从当前页开始指定范围,xlFromTo表示从当前页开始打印到最后一页,xlFromTo表示从第一页开始打印到最后一页。
2. To:指定要打印的结束页码。
同样可以是页码的数值,也可以使用XlPageTo枚举值。
3. Copies:指定打印的份数。
可以是整数值,默认为1。
4. Collate:指定是否按顺序打印多份。
可以是布尔值,默认为True。
5. PrToFileName:指定打印输出的文件路径和文件名。
可以是一个字符串值,如"C:\Users\Printer\output.pdf"。
6. IgnorePrintAreas:指定是否忽略打印区域。
可以是布尔值,默认为False。
如果为True,则打印输出会忽略打印区域的设置。
7. ActivePrinter:指定打印输出的打印机名称。
可以是一个字符串值,如"HP LaserJet P3015"。
8. PrintToFile:指定是否将打印输出保存为文件。
可以是布尔值,默认为False。
如果为True,则打印输出会保存为文件,而不是发送到打印机。
打印printer属性
【VB 6.0】Printer 对象的所有属性与方法2011-06-18 16:03:47| 分类:【VB 6.0】| 标签:vb|字号订阅后面注有*号的是方法Circle* 在对象上画圆及弧ColorMode返回/设置选定的颜色Copies返加/设置一个值,决定将被打印的复制数目。
CurrentX返回/设置下次print 或draw 方法的水平坐标。
CurrentY返回/设置下次print 或draw 方法的垂直坐标。
DeviceName返回一个驱动程序支持的设备名称DrawMode设置graphics 方法或Shape 、Line 控件输出时的外观。
DrawStyle决定graphics 方法输出时的线条样式。
DrawWidth返回/设置graphics 方法输出时的线条宽度。
DriverName返回Printer 对象的驱动器名。
Duplex决定是否双面打印一页EndDoc* 终止一个发送到Printer 对象的打印操作。
FillColor返回/设置填充形状、圆环和方框所使用的颜色。
FillStyle返回/设置一个shape 控件的填充样式。
Font返回一个Font 对象。
FontBold返回/设置粗体字样式。
FontCount返回当前显示设备或活动打印机可用的字体号FontItalic返加/设置斜体字样式。
FontName设置给定层的每一行出现的字体名Fonts返回当前显示设备或活动打印机可用的所有字体名FontSize设置给定层的每一行出现的字体大小(以磅为单位)FontStrikethru返回/设置删除线字体样式。
FontTransparent返回/设置一个值,决定是否显示窗体、打印机或PictureBox上的背景文本/图形。
ontUnderline返回/设置下划线字体样式。
ForeColor返回/设置对象中文本和图形的前景色。
hDC返回一个句柄(从Microsoft Windows)到对象的设备上下文。
VBA 中的文件打印与打印设置技巧
VBA 中的文件打印与打印设置技巧在使用 Visual Basic for Applications(VBA)编程时,我们经常会遇到需要打印文件或设置打印参数的需求。
本文将介绍一些在 VBA 中实现文件打印和打印设置的技巧,帮助你更高效地处理打印任务。
一、文件打印技巧1. 打印当前活动工作簿如果你需要打印当前活动的工作簿,可以使用`ActiveWorkbook.PrintOut`方法。
该方法会直接打印整个工作簿,默认使用默认打印机和设置。
示例代码:```vbaSub PrintActiveSheet()ActiveWorkbook.PrintOutEnd Sub```2. 打印指定工作表如果你只想打印工作簿中的某个特定工作表,可以使用`Worksheets.PrintOut`方法。
该方法允许你指定打印范围、打印份数等参数。
示例代码:```vbaSub PrintSpecificSheet()Worksheets("Sheet1").PrintOut Copies:=2, Collate:=TrueEnd Sub```3. 打印指定区域有时候,你可能只需要打印工作表中的某个特定区域。
在这种情况下,可以使用`Range.PrintOut`方法。
该方法可以打印指定的区域,并允许你设置打印份数、打印方向等参数。
示例代码:```vbaSub PrintSpecificRange()Range("A1:D10").PrintOut Copies:=3, PrintOrientation:=xlLandscapeEnd Sub```二、打印设置技巧1. 设置打印区域通过设置打印区域,你可以控制打印的范围,避免不必要的打印内容。
在VBA 中,我们可以使用`PageSetup.PrintArea`属性来设置打印区域。
示例代码:```vbaSub SetPrintArea()ActiveSheet.PageSetup.PrintArea = "$A$1:$D$10"End Sub```2. 设置打印标题打印标题可以帮助你更好地标识打印的内容。
vba printout参数
vba printout参数VBA是Visual Basic for Applications的缩写,是一种用于Microsoft Office套件中的宏编程语言。
VBA允许用户编写自定义的宏代码来扩展和自动化Office软件的功能,比如Excel、Word、Outlook等。
VBA可以通过编写代码来执行诸如数据处理、报表生成、自动化任务等操作,极大地提高了办公效率。
在VBA中,PrintOut是用于输出文档内容的方法,可以用于在Office软件中打印或输出文档到PDF等格式。
通过PrintOut方法,用户可以实现将工作表内容、文档内容、幻灯片内容等输出到纸张或电子文件中,帮助用户实现各种打印和输出需求。
PrintOut方法最常用于Excel中,可以通过VBA编程来实现不同打印和输出需求,提高办公效率和自动化程度。
在下文中,将详细介绍PrintOut方法的使用及其相关参数,帮助用户更好地利用VBA实现打印和输出功能。
PrintOut方法的语法结构如下:```excelexpression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName) ```其中,各参数的含义分别是:- From:整型,表示要打印的起始页。
- To:整型,表示要打印的结束页。
- Copies:整型,表示要打印的份数。
- Preview:布尔值,表示是否预览打印。
- ActivePrinter:字符串,表示要使用的打印机名称。
- PrintToFile:布尔值,表示是否输出到文件。
- Collate:布尔值,表示是否逐份打印。
- PrToFileName:字符串,表示输出文件的文件名。
接下来,将对PrintOut方法的各参数进行详细说明,并举例说明其使用方法。
1. From参数:表示要打印的起始页。
若省略该参数,则默认从第一页开始打印。
VB打印技巧
ResetPrinterOrientation Me'设为默认值Printer.Orientation=VbPRORPortrait'纵向打印Printer.Orientation=VbPRORLandscape'横向打印Printer.PaperSize=vbPRPSA4'定义纸张大小为A4设置打印页边距'你可以使用打印机的Scale属性来设置打印页边距。
下面的代码设置左边距为1/2英寸。
右边距为3/4英寸。
乘以1440是将英尺转换成twips。
Printer.ScaleLeft=-0.75*1440Printer.ScaleTop=-0.5*1440Printer.CurrentX=0Printer.CurrentY=0打印多页Rich Text打印对象在处理RichTextBox时由于忽视了Rich Text代码将不会工作得很好。
为了打印RichTextBox,要使用SelPrint命令,但是SelPrint不是非常得友好,它按照自己的方式打印然后产生退纸动作。
为了打印多页Rich Text,要找到每一页的开始和结束点,然后依此设置SelStart和SelLength,最后使用SelPrint打印出每一页。
以下是工作的每一个步骤:1、使用SaveFile命令保存编辑版本的文件。
2、转换编辑版本为打印版本:遍历这个文档,修改SelIndent和SelRightIndent的数值,使之适合于打印机(注意:编辑时的缩进数值对于屏幕是合适的,但不适用于打印机)。
做些其他的修改,比如:添加页眉,消除行号。
3、使用SelPrint循环一次打印一个页面。
这里,计算行数是一个技巧,找到LFCRs 是容易的,但是,也必须要计算一下行缠绕,它也算在了行统计中,以及绝对不允许发生的页面溢出情况。
4、使用SelRTF=""删除打印版本。
5、使用LoadFile重新启动编辑版本。
VB打印稳文档
4,窗体的打印
在使用Printer对象打印之前,要在Printer对象中重建窗体。
5,控件的打印
Printer对象可以接收Print方法和图形方法的输出 。
6,打印作业的取消
方法:Printer.KillDoc
三 获得打印机错误
打印过程中一旦出现错误,相应的错误号可以提示用户相关的错误原因。
二 使用Printer对象打印
1,使用Printer对象打印的方法
(1)需要使用缺省打印机以外的打印机打印,需在Printers集合中指定打印机给Printer对象。
(2)将文本和图形装入Printer对象。
(3)用NewPage和EndDoc方法打印Printer对象的内容。
如:482 打印机错误。当打印机驱动程序返回一个错误代码时,程序报告此错误。
483 打印机驱动程序不支持该属性。当试图使用一个当前打印机驱动程序不支持的属性时,出此错。
484 打印机驱动程序无效。当WIN.INI中的打印机信息丢失或不完整时,出此错。
例如:Printer.PrintQuality=300 是指把打印机的分辨率设置为300DPI.
3,Scale 属性
属性包括:ScaleMode,ScaleLeft,ScaleTop,ScaleWidth,ScaleHeight,Zoom
例如:Printer.Zoom=50 这个属性的设置,可以使打印页看起来是实际打印纸页大小的一半。
2,Printer对象的属性
属性包括:PaperSize,Height,Width,Orientation,ColorMode,Duplex,TrackDefault,Zoom,DriverName,DeviceName,Port,Copies,PaperBin和PrintQuality.
vb 打印 实例-概述说明以及解释
vb 打印实例-概述说明以及解释1.引言1.1 概述在VB中,打印是一项常见的功能需求,通过打印可以将软件中的数据输出到纸张上,使得用户能够方便地查看和保存信息。
本文将介绍VB 中的打印功能,并通过实例演示和分析来帮助读者更好地理解和应用这一功能。
在VB中,打印功能的实现主要通过使用PrintDocument组件来完成,PrintDocument组件可以方便地控制打印输出的内容和样式。
通过设置PrintDocument的PageSettings属性和PrintPage事件来指定打印页面的设置和内容。
另外,也可以使用PrintPreviewDialog组件来提供打印预览的功能,使得用户可以在打印前预览输出的效果,从而调整需要打印的内容和格式。
本文将通过实例演示和分析来介绍如何在VB中实现打印功能,希望能帮助读者更加深入地了解和掌握这一重要的功能。
文章结构部分主要包括文章的大致组织和内容安排,旨在帮助读者更好地理解整篇文章的逻辑结构。
本文的文章结构如下:1. 引言1.1 概述:介绍VB打印功能的重要性和应用背景1.2 文章结构:介绍本文的大纲和各部分内容安排1.3 目的:阐明撰写本文的意义和目的2. 正文2.1 VB打印功能介绍:详细介绍VB语言中的打印功能的基本原理和特点2.2 VB打印实例演示:通过具体的实例演示,展示VB打印功能的具体应用和使用方法2.3 VB打印实例分析:对演示的实例进行分析和总结,深入探讨其应用场景和优势特点3. 结论3.1 总结:对整篇文章进行总结,强调VB打印功能的重要性和价值3.2 应用推广:探讨VB打印功能在实际应用中的推广和发展前景3.3 展望:展望未来VB打印功能的发展方向和潜力通过以上结构,读者可以清晰地了解本文的逻辑结构和内容安排,有助于他们更好地理解和消化文章所传达的信息。
1.3 目的:本文的目的在于介绍如何在VB(Visual Basic)中使用打印功能,并通过实例演示和分析,帮助读者更好地了解如何在自己的程序中实现打印功能。
vb打印技巧
ResetPrinterOrientation Me '设为默认值Printer.Orientation=VbPRORPortrait'纵向打印Printer.Orientation=VbPRORLandscape'横向打印Printer.PaperSize = vbPRPSA4 '定义纸张大小为A4设置打印页边距'你可以使用打印机的Scale属性来设置打印页边距。
下面的代码设置左边距为1/2英寸。
右边距为3/4英寸。
乘以1440是将英尺转换成twips。
Printer.ScaleLeft = -0.75 * 1440Printer.ScaleTop = -0.5 * 1440Printer.CurrentX = 0Printer.CurrentY = 0打印多页Rich Text打印对象在处理RichTextBox时由于忽视了Rich Text代码将不会工作得很好。
为了打印RichTextBox,要使用SelPrint命令,但是SelPrint不是非常得友好,它按照自己的方式打印然后产生退纸动作。
为了打印多页Rich Text,要找到每一页的开始和结束点,然后依此设置SelStart和SelLength,最后使用SelPrint打印出每一页。
以下是工作的每一个步骤:1、使用SaveFile命令保存编辑版本的文件。
2、转换编辑版本为打印版本:遍历这个文档,修改SelIndent和SelRightIndent的数值,使之适合于打印机(注意:编辑时的缩进数值对于屏幕是合适的,但不适用于打印机)。
做些其他的修改,比如:添加页眉,消除行号。
3、使用SelPrint循环一次打印一个页面。
这里,计算行数是一个技巧,找到LFCRs 是容易的,但是,也必须要计算一下行缠绕,它也算在了行统计中,以及绝对不允许发生的页面溢出情况。
4、使用SelRTF=""删除打印版本。
vbPrinter对象
vbPrinter对象Printer对象控制打印的基本过程利用Printer对象开发的打印程序主要靠其提供的——NewPage?(打印新的一页,CurrentX、CurrentY置为新页的左上角,可完成多页功能。
)、EndDoc??(将打印任务加入打印机队列)、KillDoc??(取消打印任务)控制打印过程的。
一般情况下,打印程序完成多页打印时会多次执行NewPage,结束时执行一次EndDoc将打印任务加入打印机队列。
如果你在NewPage后,立即使用EndDoc,VB则不会打印额外的空白页。
如果希望显示空白页,则可在新的一页上只使用Print er.Print?“??“打印空字符即可。
为了通过Printer对象实现文本和图形的打印,获得最好的打印质量,还需要对VB控制打印机的多种属性有更深入的理解,例如打印机的坐标体系向屏幕坐标体系的转换、打印机字体尺寸的确定等。
下面给出了打印程序的主框架:Private?Sub?mnuFilePrint_Click()?On?Error?Resume?Next?If?Act iveForm?Is?Nothing?Then?Exit?Sub?With?dlgCommonDialog ‘打印机公用对话框.DialogTitle?=?"打印"?.CancelError?=?True?.Flags?=?1?Printer.FontSize?=?dlgCommonDialog.FontSize‘将打印机公用对话框设置的字体大小传递给打印机?.ShowPrinter‘?在屏幕上显示【打印】公用对话框?If?Err?<>?MSComDlg.cdlCancel?Then?Printer.FontTransparent?=?False‘初始化打印的字体为不透明?SetPrinterScale?Myform?‘匹配打印机的缩放属性与窗体的属性?PrintAnywhere?Printer‘可放置用户编写的打印对象参数化例程?‘实现字符和图形的显示?Printer.NewPage‘打印机坐标初始化?PrintAnywhere?Printer‘打印另一页的内容?Printer.NewPage‘打印机坐标初始化?Printer.En dDoc‘将该任务加入打印机任务队列‘?不打印空白页?Printer.KillDoc‘取消当前的打印任务?End?If?End?With?End?Sub。
vba print用法
vba print用法VBA(Visual Basic for Applications)是一种编程语言,常用于Microsoft Office应用程序的自动化和自定义功能开发。
在VBA中,Print方法用于在控制台上显示文本或输出信息。
以下是VBA中Print方法的用法和一些示例:1、基本用法Sub Example1()' 打印文本到 Immediate 窗口(VBA 调试窗口)Debug.Print "Hello, World!"End Sub2、输出到工作表Sub Example2()' 打印文本到工作表单元格Range("A1").Value = "Hello, World!"End Sub3、格式化输出Sub Example3()' 格式化数字为货币字符串并打印Dim num As Doublenum = 1234.567Debug.Print Format(num, "$#,##0.00")End Sub4、变量和表达式Sub Example4()' 打印变量值和计算结果Dim x As Integerx = 5Debug.Print "Variable x is: " & x & ", squared is: " & x^2End Sub5、控制打印位置和换行Sub Example5()' 控制打印位置和换行符Dim str As Stringstr = "This is the first line." & vbCrLf & _"This is the second line." & vbCrLf & _"This is the third line."Debug.Print strEnd Sub6、打印到输出窗口或工作表单元格之外的区域在VBA中,Print方法默认将输出发送到Immediate窗口(在VBA编辑器中的调试窗口)。
VB打印属性设置
VB打印属性设置Printer.Orientation = vbPRORLandscape加上这行就可以把打印的方向改变把纸高当成纸宽横向打印,我用过的,没问题. 下面另有一些资料可参考.Printer 对象常数打印机颜色模式常数值描述vbPRCMMonochrome 1 单色输出vbPRCMColor 2 彩色输出双面打印常数值描述vbPRDPSimplex 1 单面打印vbPRDPHorizontal 2 双面水平打印vbPRDPVertical 3 双面垂直打印打印方向常数值描述vbPRORPortrait 1 文档打印以纸的窄边作顶部vbPRORLandscape 2 文档打印以纸的宽边作顶部打印质量常数值描述vbPRPQDraft -1 草稿打印质量vbPRPQLow -2 低级打印质量vbPRPQMedium -3 中等打印质量vbPRPQHigh -4 高级打印质量PaperBin 属性常数值描述vbPRBNUpper 1 从上层纸盒进纸vbPRBNLower 2 从下层纸盒进纸vbPRBNMiddle 3 从中间纸盒进纸vbPRBNManual 4 等待手动插入每页纸vbPRBNEnvelope 5 从信封进纸器进纸vbPRBNEnvManual 6 从信封进纸器进纸;但要等待手动插入vbPRBNAuto 7 (缺省方式)从当前缺省纸盒进纸vbPRBNTractor 8 从拖拉进纸器供纸vbPRBNSmallFmt 9 从小型进纸器进纸vbPRBNLargeFmt 10 从大型纸盒进纸vbPRBNLargeCapacity 11 从大容量进纸器进纸vbPRBNCassette 14 从附加的卡式纸盒进纸PaperSize 属性常数值描述vbPRPSLetter 1 信笺, 8 1/2 x 11 英寸vbPRPSLetterSmall 2 +A611 小型信笺,8 1/2 x 11 英寸vbPRPSTabloid 3 小型报, 11 x 17 英寸vbPRPSLedger 4 分类帐, 17 x 11 英寸vbPRPSLegal 5 法律文件, 8 1/2 x 14 英寸vbPRPSStatement 6 声明书,5 1/2 x 8 1/2 英寸vbPRPSExecutive 7 行政文件,7 1/2 x 10 1/2 英寸vbPRPSA3 8 A3, 297 x 420 mmvbPRPSA4 9 A4, 210 x 297 mmvbPRPSA4Small 10 A4小号, 210 x 297 mmvbPRPSA5 11 A5, 148 x 210 mmvbPRPSB4 12 B4, 250 x 354 mmvbPRPSB5 13 B5, 182 x 257 mmvbPRPSFolio 14 对开本, 8 1/2 x 13 英寸vbPRPSQuarto 15 四开本, 215 x 275 mmvbPRPS1&H14 16 10 x 14 英寸vbPRPS11x17 17 11 x 17 英寸vbPRPSNote 18 便条,8 1/2 x 11 英寸vbPRPSEnv9 19 #9 信封, 3 7/8 x 8 7/8 英寸vbPRPSEnv10 20 #10 信封, 4 1/8 x 9 1/2 英寸vbPRPSEnv11 21 #11 信封, 4 1/2 x 10 3/8 英寸vbPRPSEnv12 22 #12 信封, 4 1/2 x 11 英寸vbPRPSEnv14 23 #14 信封, 5 x 11 1/2 英寸vbPRPSCSheet 24 C 尺寸工作单vbPRPSDSheet 25 D 尺寸工作单vbPRPSESheet 26 E 尺寸工作单vbPRPSEnvDL 27 DL 型信封, 110 x 220 mmvbPRPSEnvC3 29 C3 型信封, 324 x 458 mm vbPRPSEnvC4 30 C4 型信封, 229 x 324 mm vbPRPSEnvC5 28 C5 型信封, 162 x 229 mm vbPRPSEnvC6 31 C6 型信封,114 x 162 mm vbPRPSEnvC65 32 C65 型信封,114 x 229 mm vbPRPSEnvB4 33 B4 型信封, 250 x 353 mmvbPRPSEnvB5 34 B5 型信封,176 x 250 mmvbPRPSEnvB6 35 B6 型信封, 176 x 125 mm vbPRPSEnvItaly 36 信封, 110 x 230 mm vbPRPSEnvMonarch 37 信封大王, 3 7/8 x 7 1/2 英寸vbPRPSEnvPersonal 38 信封,3 5/8 x 6 1/2 英寸vbPRPSFanfoldUS 39 U.S. 标准复写簿,14 7/8 x 11 英寸vbPRPSFanfoldStdGerman 40 德国标准复写簿,8 1/2 x 12 英寸vbPRPSFanfoldLglGerman 41 德国法律复写簿,8 1/2 x 13 英寸vbPRPSUser 256 用户定义Printer.Orientation = vbPRORLandscapeme.PrintForm按钮的click事件中加入第一句后,编译会提示:实时错误‘380’,无效属性值鼠标放上去看的时候等是左边的值=1,看来是赋值不上、、、是不是printer对象不能直接控制本地打印机的属性?。
Printer Object 的所有属性和方法
Printer Object 的所有属性和方法说明:1.后面注有*号的是方法2.最常用的方法是DeviceName(打印机名称)3.并非所有的属性和方法都可用,不同操作系统和IE版本会有差异,您只能自己去测试4.要输出内容到打印机,请使用pazu.printToDefaultPrinter(string) 方法。
5.Printer Object 是微软通过VB引擎构建的,并通过pazu控件传递出来,因此它和VB里面的Printer对象完全兼容,更多的内容可以参考VB的Printer对象Circle* 在对象上画圆及弧ColorMode返回/设置选定的颜色Copies返加/设置一个值,决定将被打印的复制数目。
CurrentX返回/设置下次 print 或 draw 方法的水平坐标。
CurrentY返回/设置下次 print 或 draw 方法的垂直坐标。
DeviceName返回一个驱动程序支持的设备名称DrawMode设置graphics 方法或 Shape 、 Line 控件输出时的外观。
DrawStyle决定graphics 方法输出时的线条样式。
DrawWidth返回/设置 graphics 方法输出时的线条宽度。
DriverName返回Printer 对象的驱动器名。
Duplex决定是否双面打印一页EndDoc* 终止一个发送到Printer 对象的打印操作。
FillColor返回/设置填充形状、圆环和方框所使用的颜色。
FillStyle返回/设置一个 shape 控件的填充样式。
Font返回一个Font 对象。
FontBold返回/设置粗体字样式。
FontCount返回当前显示设备或活动打印机可用的字体号FontItalic返加/设置斜体字样式。
FontName设置给定层的每一行出现的字体名Fonts返回当前显示设备或活动打印机可用的所有字体名FontSize设置给定层的每一行出现的字体大小(以磅为单位)FontStrikethru返回/设置删除线字体样式。
VB打印和打印预览功能
打印和打印预览功能今天,我们将制作一个能实现打印和打印预览功能的应用程序。
程序运行结果如图所示。
运行结果技术要点●打印预览功能的实现●打印功能的实现实现过程■新建项目打开Visual ,选择“新建项目”,在项目类型窗口中选择“Visual Basic项目”,在模板窗口中选择“Windows应用程序”,在名称域中输入“PrintExample”,然后选择保存路径。
单击“确认”。
■添加控件和设置属性向当前窗体上添加三个Button控件,将他们的Text属性改为和界面一致。
■添加组件类和要打印的文件通过菜单“项目|添加组件”为当前项目添加一个组件类,并添加一个需要打印的文件。
■添加代码'组件类中的代码Imports SystemImports ponentModelImports System.Windows.FormsImports System.DrawingImports System.Drawing.PrintingImports System.IONamespace Microsoft.Samples.WinForms.VB.PrintingExample5Public Class TextFilePrintDocumentInherits PrintDocumentPrivate printFont As FontPrivate streamToPrint As StreamReaderPublic Sub New(streamToPrint As StreamReader)MyBase.NewMe.streamToPrint = streamToPrintEnd SubOverrides Protected Sub OnBeginPrint(ev As PrintEventArgs)MyBase.OnBeginPrint(ev)printFont = new Font("Arial", 10)End Sub'Override the OnPrintPage to provide the printing logic for the documentOverrides Protected Sub OnPrintPage(ev As PrintPageEventArgs)MyBase.OnPrintPage(ev)Dim lpp As Single = 0Dim yPos As Single = 0Dim count As Integer = 0Dim leftMargin As Single = ev.MarginBounds.LeftDim topMargin As Single = ev.MarginBounds.TopDim line as String'Work out the number of lines per page'Use the MarginBounds on the event to do thislpp = ev.MarginBounds.Height / printFont.GetHeight(ev.Graphics)'Check count first so that we don't read line that we won't printline=streamToPrint.ReadLine()While ((count < lpp) And Not(line Is Nothing))yPos = topMargin + (count * printFont.GetHeight(ev.Graphics))ev.Graphics.DrawString (line, printFont, Brushes.Black, leftMargin,yPos, new StringFormat())count = count + 1if (count < lpp) thenline=streamToPrint.ReadLine()end ifEnd WhileIf (line <> Nothing) Thenev.HasMorePages = TrueElseev.HasMorePages = FalseEnd IfEnd SubEnd ClassEnd Namespace'主窗体中的代码Imports SystemImports ponentModelImports System.Windows.FormsImports System.DrawingImports System.Drawing.PrintingImports System.IONamespace Microsoft.Samples.WinForms.VB.PrintingExample5Public Class PrintFormInherits System.Windows.Forms.FormPrivate storedPageSettings As PageSettingsPublic Sub New ()MyBase.NewPrintForm = MeInitializeComponent()AddHandler printButton.Click, AddressOf printButton_ClickAddHandler pageSetupButton.Click, AddressOf pageSetupButton_ClickAddHandler printPreviewButton.Click, AddressOfprintPreviewButton_ClickEnd Sub'页面设置Private Sub pageSetupButton_Click(sender As object, e As System.EventArgs)Dim psDlg As New PageSetupDialogIf (storedPageSettings Is Nothing) ThenstoredPageSettings = new PageSettings()End IfpsDlg.PageSettings = storedPageSettingspsDlg.ShowDialogCatch ex As ExceptionMessageBox.Show("An error occurred - " + ex.Message) End TryEnd Sub'开始打印Private Sub printButton_Click(sender As object, e As System.EventArgs) TryDim streamToPrint As StreamReader = new StreamReader("PrintMe.Txt")Try'使用缺省打印机Dim pd As TextFilePrintDocument = newTextFilePrintDocument(streamToPrint)If Not (storedPageSettings Is Nothing) Thenpd.DefaultPageSettings = storedPageSettingsEnd IfDim dlg As New PrintDialog()dlg.Document = pdDim result As DialogResult = dlg.ShowDialog()If (result = System.Windows.Forms.DialogResult.OK) Thenpd.Print()End IfFinallystreamToPrint.Close()End TryCatch ex As ExceptionMessageBox.Show("An error occurred printing the file - " +ex.Message)End TryEnd Sub'打印预览Private Sub printPreviewButton_Click(sender As object, e AsSystem.EventArgs)TryDim streamToPrint As StreamReader = new StreamReader("PrintMe.Txt")TryDim pd As TextFilePrintDocument = newTextFilePrintDocument(streamToPrint)If Not (storedPageSettings Is Nothing) Thenpd.DefaultPageSettings = storedPageSettingsEnd IfDim dlg As New PrintPreviewDialog()dlg.Document = pddlg.ShowDialog()FinallystreamToPrint.Close()End TryCatch ex As ExceptionMessageBox.Show("An error occurred - " + ex.Message) End TryPublic Overloads Overrides Sub Dispose()MyBase.Dispose()components.Dispose()End Sub<STAThread()> Shared Sub Main()System.Windows.Forms.Application.Run(New PrintForm())End SubEnd ClassEnd Namespace■运行程序单击菜单“调试|启动”或单击图标运行程序。
vba printout参数
vba printout参数VBA(Visual Basic for Applications)是一种用于编写宏的编程语言,可以在许多应用程序中使用,包括Microsoft Office套件中的Word、Excel和Access等。
在VBA中,PrintOut是一个常用的方法,用于将文档或工作表打印到打印机上。
它有一些参数可供使用,以满足不同的打印需求。
PrintOut方法有很多参数可用,包括From、To、Copies、Collate、PrintToFile、PrToFileName、IgnorePrintAreas等等。
下面将详细介绍一下这些参数的作用和用法。
- From参数用于指定要打印的起始页码,可以是一个整数或省略。
如果省略,则将从第一页开始打印。
- To参数用于指定要打印的结束页码,可以是一个整数或省略。
如果省略,则将打印整个文档或工作表。
- Copies参数用于指定要打印的副本数量,可以是一个整数或省略。
如果省略,则默认为1份。
- Collate参数用于指定是否要按页码顺序打印多个副本。
可以是一个布尔值或省略。
如果省略,则默认为False,即不按页码顺序打印。
- PrintToFile参数用于指定是否将打印输出保存到文件中。
可以是一个布尔值或省略。
如果省略,则默认为False。
- PrToFileName参数用于指定要将打印输出保存到的文件名称。
可以是一个包含文件路径的字符串或省略。
只有在PrintToFile参数为True时才生效。
- IgnorePrintAreas参数用于指定是否忽略工作表中的打印区域。
可以是一个布尔值或省略。
如果省略,则默认为False,即不忽略打印区域。
例如,如果我们要将一个Excel工作簿中的某个工作表打印到默认打印机上,可以使用以下VBA代码:```Sub PrintWorksheet()Worksheets("Sheet1").PrintOutEnd Sub```如果我们还想指定打印的起始页码和副本数量,可以修改代码如下:```Sub PrintWorksheet()Worksheets("Sheet1").PrintOut From:=2, Copies:=3End Sub```如果要将打印输出保存到文件中,可以使用以下代码:```Sub PrintWorksheetToFile()Worksheets("Sheet1").PrintOut PrintToFile:=True, PrToFileName:="C:\PrintOutput.pdf"End Sub```以上代码将工作表打印为PDF文件并保存到指定路径下。
VB中用printer对象打印表格
用printer对象打印表格用msflexgrid控件显示的表格,要将它打印出来,最简单的方法是用printform方法,然而这只适合于数据正好能被屏幕显示的,即数据量少的,而且这种打印效果很差。
而用printer对象进行打印编程,虽然麻烦点,但效果却是相当不错的,你可以自定义打印格式,打印页数,表格的粗细,字体大小等。
实际上用printer对象进行打印编程是比较简单的。
下面我就用一实例来说明:打印的内容是一张数据表,这里就只有两列数据,包括标题,副标题。
(用A4纸打印)假设数据处在C_DataArray(),和R_DataArray()中C_Name与R_Name分别为两数据项的字段名Public Sub Printtable()‘初始化Dimprinter1 as PrinterDim pageheaderDim pagefooterDim pageleftDim pagerightDim usewidthDim useheightDim i, j, k As IntegerDim word As StringDim startxDim startyDim startyline‘用来纪录打印竖线的起点Dim endyline’用来纪录打印竖线的末点设置页面参数pageheader = 25pagefooter = 25pageleft = 20pageright = 20With printer1.PaperSize = 9.ScaleMode = 6.FontBold = True.ScaleLeft = -20.ScaleTop = -25.ScaleWidth = 210 ‘设置为A4纸.ScaleHeight = 297usewidth = .ScaleWidth40useheight = .ScaleHeight50.CurrentX = 0.CurrentY = 0.DrawWidth = 5End With‘打印标题With printer1.FontSize = 20.CurrentX = (usewidth.TextWidth(DataTitle)) / 2.CurrentY = pageheader + .ScaleTopEnd Withprinter1.Print DataTitle‘打印副标题printer1.FontSize = 15word = DataTitle2printer1.CurrentX = usewidthprinter1.TextWidth(word) printer1.Print word‘打印第一条线 Line方法不能用在with ....end with里printer1.CurrentX = pageleft + printer1.ScaleLeft startyline = printer1.CurrentY‘线宽printer1.Line -((printer1.ScaleLeft + printer1.ScaleWidthpageleft),printer1.CurrentY)printer1.FontSize = 10‘printer1.Print vbLfprinter1.CurrentY = printer1.CurrentY + 1‘打印第一个字段名starty = printer1.CurrentYprinter1.CurrentX = ((printer1.ScaleWidth40) / 2printer1.TextWidth(C_Name)) / 2printer1.PrintC_Name‘打印第二个字段名printer1.CurrentX = usewidth / 2 + ((usewidth / 2printer1.TextWidth(R_Name)) / 2)printer1.CurrentY = startyprinter1.Print R_Nameprinter1.CurrentY = printer1.CurrentY + 1‘打印数据和横线,rownum为数据行数For i = 1 To rownum‘判断是否该页已打满If printer1.CurrentY = useheight Then‘打印横线printer1.CurrentX = printer1.ScaleLeft + pageleftprinter1.Line -((printer1.ScaleLeft + printer1.ScaleWidthpageleft),printer1.CurrentY)printer1.CurrentY = printer1.CurrentY + 1‘打印三条竖线endyline = printer1.CurrentYprinter1.Line (0, startyline)-(0, endyline)printer1.Line (usewidth / 2, startyline)-(usewidth / 2, endyline)printer1.Line (usewidth, startyline)-(usewidth, endyline)‘打印页号With printer1.CurrentX = (.ScaleWidth.TextWidth(.Page)) / 2pageleft.CurrentY = useheight + 3End Withprinter1.Print printer1.Pageprinter1.NewPageWith printer1.CurrentX = pageleft + .ScaleLeft.CurrentY = pageheader + .ScaleTopstartyline = .CurrentYEnd WithEnd If‘打印一行数据printer1.CurrentX = ((printer1.ScaleWidth40) /2printer1.TextWidth(C_DataArray(i))) / 2starty = printer1.CurrentYprinter1.Print C_DataArray(i)printer1.CurrentX = (printer1.ScaleWidth40) / 2 + ((printer1.ScaleWidth40) / 2printer1.TextWidth(R_DataArray(i) )) / 2printer1.CurrentY = startyprinter1.Print R_DataArray(i)printer1.CurrentY = printer1.CurrentY + 1Next i‘打印最后一条横线printer1.CurrentX = printer1.ScaleLeft + pageleftprinter1.Line -((printer1.ScaleLeft + printer1.ScaleWidthpageleft),printer1.CurrentY)endyline = printer1.CurrentY‘打印三条竖线printer1.Line (0, startyline)-(0, endyline)printer1.Line (usewidth / 2, startyline)-(usewidth / 2, endyline)printer1.Line (usewidth, startyline)-(usewidth, endyline) ‘打印页号With printer1.CurrentX = (.ScaleWidth.TextWidth(.Page)) / 2pageleft.CurrentY = useheight + 3End Withprinter1.Print printer1.Pageprinter1.EndDocend sub。
VB打印功能全代码
VB打印功能全代码Private Sub Image5_Click() '打印报表Dim i As IntegerDim pageleft As IntegerDim pageheader As IntegerDim pagefooter As IntegerDim pageright As IntegerDim startx As IntegerDim starty As IntegerDim startline As IntegerDim endline As IntegerDim usewidth As IntegerDim useheight As Integerpageheader = 25pagefooter = 25pageleft = 20pageright = 20'定义纸张类型A4Printer.FontSize = 20Printer.PaperSize = 9Printer.ScaleMode = 6Printer.FontBold = FalsePrinter.ScaleLeft = -20Printer.ScaleTop = -25Printer.ScaleWidth = 210Printer.ScaleHeight = 297usewidth = Printer.ScaleWidth - 40useheight = Printer.ScaleHeight - 50Printer.CurrentX = 0Printer.CurrentY = 0Printer.DrawWidth = 2'打印主标题Printer.FontSize = 20Printer.CurrentX = (usewidth - Printer.TextWidth(Me.Text1.Text & "经济情况表")) / 2Printer.CurrentY = Printer.ScaleTopPrinter.Print Me.Text1.Text & "经济情况表"'打印空⽩⾏Printer.FontSize = 8Printer.CurrentX = (usewidth - Printer.TextWidth("")) / 2Printer.CurrentY = Printer.CurrentY + 1Printer.Print ""'打印副标题Printer.FontSize = 15Printer.CurrentX = (usewidth - Printer.TextWidth(commonth & "⽉份经济情况报表")) / 2 Printer.CurrentY = Printer.CurrentY + 1Printer.Print commonth & "⽉份经济情况报表"'打印空⽩⾏Printer.FontSize = 8Printer.CurrentX = (usewidth - Printer.TextWidth("")) / 2Printer.CurrentY = Printer.CurrentY + 1Printer.Print ""'打印表的内容'⾸先打印第⼀条横线'打印最上边的第⼀条横线Printer.CurrentX = pageleft + Printer.ScaleLeftstartline = Printer.CurrentY + 1Printer.Line -((Printer.ScaleLeft + Printer.ScaleWidth - pageleft), Printer.CurrentY)Printer.FontSize = 12Printer.CurrentY = Printer.CurrentY + 1starty = Printer.CurrentYPrinter.CurrentX = ((Printer.ScaleWidth - 40) / 3 - Printer.TextWidth("")) / 2Printer.Print ""Printer.FontSize = 12Printer.CurrentX = usewidth / 3 + ((usewidth / 3 - Printer.TextWidth("今年经济情况")) / 2)Printer.CurrentY = startyPrinter.Print "今年经济情况(万元)"Printer.FontSize = 12Printer.CurrentX = (usewidth / 3) * 2 + ((usewidth / 3 - Printer.TextWidth("去年经济情况")) / 2)Printer.CurrentY = startyPrinter.Print "去年经济情况(万元)"Printer.CurrentX = pageleft + Printer.ScaleLeftPrinter.CurrentY = Printer.CurrentY + 1Printer.Line -((Printer.ScaleLeft + Printer.ScaleWidth - pageleft), Printer.CurrentY)Printer.CurrentY = Printer.CurrentY + 1For i = 0 To 10'判断是否该页已打满Me.MSFlexGrid1.Row = iIf Printer.CurrentY >= useheight Then'打印横线Printer.CurrentX = Printer.ScaleLeft + pageleftPrinter.Line -((Printer.ScaleLeft + Printer.ScaleWidth - pageleft), Printer.CurrentY)Printer.CurrentY = Printer.CurrentY + 1'打印四条竖线endline = Printer.CurrentYPrinter.Line (0, startline)-(0, endline)Printer.Line (usewidth / 3, startline)-(usewidth / 3, endline)Printer.Line ((usewidth / 3) * 2, startline)-((usewidth / 3) * 2, endline)Printer.Line (usewidth, startline)-(usewidth, endline)'打印页号Printer.CurrentX = (Printer.ScaleWidth - Printer.TextWidth(Printer.Page)) / 3 - pageleftPrinter.CurrentY = useheight + 3Printer.Print Printer.PagePrinter.NewPage 'NewPage告诉打印机,程序对当前输出页的发送已经结束。
vb printer打印属性大全
printer属性大全ColorMode 属性返回或设置一个值,决定彩色打印机是按彩色还是单色打印输出。
运行时不可用。
语法:object.ColorMode [= value]ColorMode 属性语法包含下面部分:部分描述Object对象表达式,其值是“应用于”列表中的一个对象。
Value 常数或整数,指定打印方式,“设置值”中有详细描述。
value 的设置值为:设置值值描述VbPRCMMonochrome 1 以单色打印输出(一般为黑白阴影)VbPRCMColor 2 以彩色打印输出说明:缺省值取决于打印机驱动程序和当前打印机设置。
单色打印机忽略该属性。
注意Printer 对象属性的效果,取决于打印机生产商提供的驱动程序。
有些属性设置可能不起作用,或有可能几个不同的属性设置具有相同的结果。
如果对不支持彩色的打印机设置ColorMode 属性,设置值将被忽略。
但如果试图引用该ColorMode 属性,则给出错误信息。
在可接受范围外的设置,也有可能导致错误。
有关更多的信息,请参阅有关驱动程序的生产商文档。
Copies 属性返回或设置需要打印的份数。
对于Printer 对象,在设计时不可用。
语法:object.Copies [= number]Copies 属性语法包含下面部分:部分描述Object 对象表达式,其值是“应用于”列表中的一个对象。
Number 数值表达式,指定需要打印的份数。
该值必须是整型值。
说明:对于“打印”对话框,该属性返回在“份数”框中用户输入的份数。
如果设置CommonDialog 控件的cdlPDUseDevModeCopies 标志,则该属性始终返回1。
对于Printer 对象,对多份打印可能进行、也可能不进行核对,这取决于打印机驱动程序。
可以将整个文档或将每一页打印多份。
对于不支持核对的打印机,设置Copies = 1,然后在程序中使用循环,就可以将整个文档打印多份。
VB的几种打印方法
VB的几种打印方法VB的几种打印方法1. 采用Visual Basic提供的简单打印函数PrintForm方法应用程序窗体的PrintForm方法时Visual Basic把当前窗体的位图送到打印机。
该方法的优点在于它几乎不需要任何编程但也有很大缺陷,如当低分辨率图形在高分辨率打印机上打印时,会产生锯齿。
代码如下:Private Sub Command1_Click '用PrintForm打印Me.PrintForm '打印窗体的可见区域End Sub2. 用Printer对象Printer对象代表系统缺省的打印机。
打印机以twips来测量距离,每英寸有1440个 twips。
实例如下:打印直线:Printer.Line2144021440-Step14401440B打印文本:Printer.Print "Hello China ComputerWorld" '打印字符串NewPage告诉打印机程序对当前输出页的发送已经结束Printer对象应开始新的一页。
EndDoc告诉VB程序创建文档结束VB应将它发送到物理打印机上打印。
KillDoc取消当前打印作业。
应用程序应该终止由EndDoc和KillDoc所设定的每个打印作业。
Zoom属性用于定义打印输出的缩放因子。
Copies属性用于定义打印的副本数目。
3. 用RichTextBox控件的SelPrint方法来打印代码如下:RTF1.SelPrint Printer.hDC '打印RTF1控件的可见区域一般结合RichT extBox控件和通用对话框--打印对话框实现,先进行打进设置再进行打印,如下。
Private Sub Command3_Click 'SelPrint方法CommonDialog1.Flags=cdlPDReturnDC+cdlPDNoPageNum s'设置通用对话框-打印对话框属性。
vbprinter打印属性大全
printe r属性大全ColorM ode 属性返回或设置一个值,决定彩色打印机是按彩色还是单色打印输出。
运行时不可用。
语法:object.ColorM ode [= value]ColorM ode 属性语法包含下面部分:部分描述Object对象表达式,其值是―应用于‖列表中的一个对象。
Value常数或整数,指定打印方式,―设置值‖中有详细描述。
value的设置值为:设置值值描述VbPRCM Monoc hrome 1 以单色打印输出(一般为黑白阴影)VbPRCM Color 2 以彩色打印输出说明:缺省值取决于打印机驱动程序和当前打印机设置。
单色打印机忽略该属性。
注意 Printe r 对象属性的效果,取决于打印机生产商提供的驱动程序。
有些属性设置可能不起作用,或有可能几个不同的属性设置具有相同的结果。
如果对不支持彩色的打印机设置ColorM ode 属性,设置值将被忽略。
但如果试图引用该ColorM ode 属性,则给出错误信息。
在可接受范围外的设置,也有可能导致错误。
有关更多的信息,请参阅有关驱动程序的生产商文档。
Copies属性返回或设置需要打印的份数。
对于 Printe r 对象,在设计时不可用。
语法:object.Copies [= number]Copies属性语法包含下面部分:部分描述Object对象表达式,其值是―应用于‖列表中的一个对象。
Number数值表达式,指定需要打印的份数。
该值必须是整型值。
说明:对于―打印‖对话框,该属性返回在―份数‖框中用户输入的份数。
如果设置Common Dialo g 控件的 cdlPDU seDev ModeC opies标志,则该属性始终返回1。
对于 Printe r 对象,对多份打印可能进行、也可能不进行核对,这取决于打印机驱动程序。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
VbNop 11 无操作 - 输出保持不变。该设置实际上关闭画图。 VbMergeNotPen 12 或非笔 - 显示颜色与画笔颜色反相的组合。 VbCopyPen 13 复制笔(缺省值) - 由 ForeColor 属性指定的颜色。 VbMergePenNot 14 或笔非 - 画笔颜色与显示颜色的反相的组合。 VbMergePen 15 或笔 - 画笔颜色与显示颜色的组合。 VbWhiteness 16 白色。 说明:当用 Shape 或 Line 控件,或者用图形方法画图时,使用这个属性产生可 视效果。Visual Basic 将绘图模式的每一个像素与现存背景色中相应的像素做比 较,然后进行逐位比较操作。例如,设置值 7(异或笔)用 Xor 操作符将绘图 模式像素和背景像素组合起来。 DrawMode 设置值的真正效果,取决于运行时所画线的颜色与屏幕已存在颜色的 合成。对于设置值 1,6,7,11,13 和 16 可以最可靠地预知该属性的输出结果。
-1-
NewPage 0,0。 Print 下一个打印位置。 Pset 画出的点。
DeviceName 属性 返回驱动器支持的设备名。 语法:object.DeviceName object 所在处代表一个对象表达式 ,其值是“应用于”列表中的一个对象。 说明:每个打印机驱动程序可以支持一个或多个设备—例如,HP LaserJet IIISi 是 一个设备名。 注意 Printer 对象属性的效果,取决于打印机生产商提供的驱动程序。一些属性 设置可能不起作用,或几个不同的属性设置具有相同的结果。如果设置值超出可 接受范围会产生错误。有关更多的信息,请参阅具体驱动程序的由生产商提供的 文档。
Count 属性(VB 集合) 返回集合中对象的数目。 语法:object.Count object 所在处代表一个对象表达式,其值是“应用于”列表中的一个对象。 说明:能够与 For...Next 语句一起使用该属性对集合中的窗体或控件上执行操作。 例如,下面的代码将一个窗体上的所有控件向右移动 0.5 英寸(ScaleMode 属性 设置为 1 或 vbTwips): For i = 0 To Form1.Controls.Count - 1
Duplex 属性 返回或设置一个值,以决定是否要双面打印(若打印机支持该功能)。在设计时不 可用。 语法:object.Duplex [= value] Duplex 属性语法包含下面部分: 部分 描述 Object 对象表达式,其值是“应用于”列表中的一个对象。 Value 值或常数,指定打印类型,“设置值”中有详细描述。 value 的设置值为: 常数 值 描述 VbPRDPSimplex 1 按当前设置的方向单面打印。 VbPRDPHorizontal 2 用水平页面旋转格式双面打印。 VbPRDPVertical 3 用垂直页面旋转格式双面打印。
DrawWidth 属性
-2-
返回或设置图形方法输出的线宽。 语法:object.DrawWidth [= size] DrawWidth 属性语法具有下列组成部分: 部分 描述 object 对象表达式,其值是“应用于”列表中的一个对象。 size 数值表达式,其范围从 1 到 32,767。该值像素为单位表示线宽。缺省值 为 1,即,一个像素宽。 说明:增大该属性值会增加线的宽度。如果 DrawWidth 属性值大于 1,DrawStyle 属性值设置为 1 到 4 时会画出一条实线来(DrawStyle 属性值不会改变)。将 DrawWidth 设置为 1,允许 DrawStyle 产生 DrawStyle 属性表中列出的结果。
DrawStyle 属性 返回或设置一个值,以决定图形方法输出的线型的样式。 语法:object.DrawStyle [= number] DrawStyle 属性语法包含下面部分: 部分 描述 Object 对象表达式,其值是“应用于”列表中的一个对象。 Number 整数,指定线型,“设置值”中有详细描述。 number 的设置值为: 常数 设置值 描述 VbSolid 0 (缺省值)实线 VbDash 1 虚线 VbDot 2 点线 VbDashDot 3 点划线 VbDashDotDot 4 双点划线 VbInvisible 5 无线 VbInsideSolid 6 内收实线 说明:若 DrawWidth 属性设置为大于 1, DrawStyle 属性设置值为 1 到 4 会 画一条实线( DrawStyle 属性值不改变)。若 DrawWidth 设置为 1, DrawStyle 产生的效果如前面表中的各设置值所述。
说明:对于水平双面打印,每页两面的顶部在纸的同一端.而垂直双面打印,一 页的底部和另一页的顶端在纸的同一端。下面是水平和竖直双面打印的示意图: 注意 Printer 对象属性的效果,取决于打印机生产商提供的驱动程序。一些属性 设置可能不起作用,或几个不同的属性设置产生相同的结果。如果设置值超出可 接受范围,则产生错误。有关进一步信息,请参阅有关驱动程序的由生产商提供 的文档。
DrawMode 属性 返回或设置一个值,决定图形方法的输出外观或者 Shape 及 Line 控件的外观。 语法:object.DrawMode [= number] DrawMode 属性语法包含下面部分: 部分 描述 object 对象表达式,其值是“应用于”列表中的一个对象。 Number 整型值,指定外观,“设置值”中有详细描述。 number 的设置值为: 常数 设置值 描述 VbBlackness 1 黑色。 VbNotMergePen 2 非或笔 - 与设置值 15 相反 (Merge Pen)。 VbMaskNotPen 3 与非笔 - 背景色以及画笔反相二者共有颜色的组合。 VbNotCopyPen 4 非复制笔 - 设置值 13 (Copy Pen) 的反相 VbMaskPenNot 5 与笔非 - 画笔以及显示反相二者共有颜色的组合。 VbInvert 6 反转 - 显示颜色的反相 VbXorPen 7 异或笔 - 画笔的颜色以及显示颜色的组合,只取其一。 VbNotMaskPen 8 非与笔 - 设置值 9 (Mask Pen) 的反相。 VbMaskPen 9 与笔 - 画笔和显示二者共有颜色的组合。 VbNotXorPen 10 非异或笔 - 方式 7 的反相 (Xor Pen)。
FillColor 属性 返回或设置用于填充形状的颜色:FillColor 也可以用来填充由 Circle 和 Line 图 形方法生成的圆和方框。 语法:object.FillColor [ = value] FillColor 属性语法包含下面部分: 部分 描述 Object 对象表达式,其值是“应用于”列表中的一个对象。 Value 值或常数,确定填充颜色,“设置值”中有详细描述。 value 的设置值如下: 设置值 描述 标准 RGB 颜色 在程序中提供 RGB 或 QBColor 函数的颜色集 系统缺省颜色 “对象浏览器” 中的 Visual Basic (VB) 对象库的系统颜色常数常 数指定的颜色。Microsoft Windows 运行环境替换用户在控制面板设置中的选择。 缺省情况下,FillColor 设置为 0(黑色)。 说明:除 Form 对象之外,如果 FillStyle 属性设置为缺省值,1(透明),则忽 略 FillColor 设置值。
Form1.Controls(i).Left = Form1.Controls(i).Left + 720 Next i 也可以使用这种结构快速地使窗体中的所有控件有效或失效。 当与 If TypeOf 语句一起使用时,可以经过所有的控件进行循环并进行改变,例 如,仅对文本框的 Enabled 属性设置或仅对选项按钮的 BackColor 属性的设置 进行处理。
printer 属性大全
受范围,就会产生错误。更多的信息,参阅有关驱动程序的生产商文档。
ColorMode 属性 返回或设置一个值,决定彩色打印机是按彩色还是单色打印输出。运行时不可用。 语法:object.ColorMode [= value] ColorMode 属性语法包含下面部分: 部分 描述 Object 对象表达式,其值是“应用于”列表中的一个对象。 Value 常数或整数,指定打印方式,“设置值”中有详细描述。 value 的设置值为: 设置值 值 描述 VbPRCMMonochrome 1 以单色打印输出(一般为黑白阴影) VbPRCMColor 2 以彩色打印输出 说明:缺省值取决于打印机驱动程序和当前打印机设置。单色打印机忽略该属性。 注意 Printer 对象属性的效果,取决于打印机生产商提供的驱动程序。有些属性 设置可能不起作用,或有可能几个不同的属性设置具有相同的结果。如果对不支 持彩色的打印机设置 ColorMode 属性,设置值将被忽略。但如果试图引用该 ColorMode 属性,则给出错误信息。在可接受范围外的设置,也有可能导致错误。 有关更多的信息,请参阅有关驱动程序的生产商文档。