数据的输入和输出课件

第4章 数据的输入和输出4.1数据的输入数据的输入4.2 数据的输出数据的输出4.3 MsgBox函数函数4.4 字形与颜色控制字形与颜色控制4.1 数据的输入数据的输入vVB与用户之间的直接交互是通过函数来实现与用户之间的直接交互是通过函数来实现的，最常用的输入函数为的，最常用的输入函数为InputBox()函数。函数。4.1.1 InputBox函数调用格式函数调用格式 InputBox$(Prompt,Tiltle,Default,Xpos,Ypos)(1)Prompt（提示信息，为必选项）（提示信息，为必选项）:字符串，长度不字符串，长度不超过超过1024个字符，用来提示用户输入。个字符，用来提示用户输入。(2)Title（标题）：字符串，是对话框的（标题）：字符串，是对话框的标题标题，显示在，显示在对话框标题区。对话框标题区。(3)Default（默认）（默认）:字符串，如果在输入框中无输入字符串，如果在输入框中无输入时，则改默认值作为输入的内容。时，则改默认值作为输入的内容。(4)Xpos，Ypos(坐标位置坐标位置)：两个整数值，确定对话：两个整数值，确定对话框左上角在屏幕上的位置。框左上角在屏幕上的位置。如果省略，则对话框在屏幕上水平居中，垂直方向如果省略，则对话框在屏幕上水平居中，垂直方向上大约处于屏幕上大约处于屏幕1/3处。处。4.1 数据的输入数据的输入例如：例如：Private sub Form_Click()c1$=chr$(13)+chr$(10)str1$=“请输入一串字符请输入一串字符:str2$=“输入后按回车键输入后按回车键,或单击确定按钮或单击确定按钮 msg$=str1$+c1$+str2$ss$=InputBox$(msg$,“输入函数输入函数InputBox示例示例”,“hello)Print ss$End SubP73.vbp(1)函数的返回值为一字符串。函数的返回值为一字符串。变量名变量名=InputBox(参数表）参数表）输入数值时，函数值需利用输入数值时，函数值需利用 Val函数转换为数值函数转换为数值后，再参加运算。后，再参加运算。(2)每执行一次每执行一次InputBox函数只能输入一个值。函数只能输入一个值。需需要输入多个值，则必须多次执行或调用要输入多个值，则必须多次执行或调用InputBox函数函数4.1.2 使用使用InputBox函数注意事项函数注意事项例：输入三角形的边长，求面积。例：输入三角形的边长，求面积。Private Sub Form_Click()Dim a!,b!,c!,s!,t!a=val(InputBox(“输入边长输入边长1:”)b=val(InputBox(“输入边长输入边长2:”)c=val(InputBox(“输入边长输入边长3:”)If a+b c Or b+c a Or a+c b Then Print 不能构成三角形，请重新输入个边不能构成三角形，请重新输入个边 End If t=(a+b+c)/2:s=Sqr(t*(t-a)*(t-b)*(t-c)Print 该三角形的面积：该三角形的面积：;sEnd SubStart:GoTo start单精度实数4.2 数据的输出数据的输出4.2.1 Print方法方法4.2.2 格式化输出函数格式化输出函数4.2.3 与与Print方法有关的标准函数方法有关的标准函数4.2.4 与与Print方法有关的属性和方法方法有关的属性和方法4.2.1 Print方法方法1.调用格式调用格式 对象名称对象名称.Print 表达式表表达式表,|;2.项目说明项目说明(1)对象名称对象名称：表示数据输出的位置，可以是窗体、：表示数据输出的位置，可以是窗体、图片框、打印机或立即窗口，图片框、打印机或立即窗口，“对象名称对象名称”省略省略时则在窗体上输出。时则在窗体上输出。(2)表达式：表达式：是被输出的内容，可以是数值表达式是被输出的内容，可以是数值表达式或字符表达式或字符表达式 例例1：Debug.Print “在立即窗口输出数据在立即窗口输出数据”例例2：Print 5+7(1)(1)输出多个字符串输出多个字符串用用逗号逗号分隔，则按分隔，则按标准输出格式标准输出格式显示各数据，以显示各数据，以14个字符位置为个字符位置为单位把一个输出行分为若干个区段（输出区），逗号后的表达式在单位把一个输出行分为若干个区段（输出区），逗号后的表达式在下一个区段输出。下一个区段输出。用用分号分号分隔，则按分隔，则按紧凑格式紧凑格式输出数据输出数据 例如：例如：Private Sub Form1_Click()c$=“求实创新求实创新”:d$=海纳百川海纳百川 Debug.Print c$,d$分区输出分区输出 Debug.Print c$;d$紧凑格式输出紧凑格式输出 End sub3.输出格式说明输出格式说明(2)输出数值输出数值在数值的左面有一个符号位，在数值的右侧有一个空格在数值的左面有一个符号位，在数值的右侧有一个空格 例如：例如：Private Sub Form1_Click()a=12:b=-3 Debug.Print a;b+a Debug.Print a,b 分区输出分区输出 End sub3.输出格式说明输出格式说明(3)(3)每执行一次每执行一次Print方法要自动换行方法要自动换行,除非除非末尾加上一个分号或末尾加上一个分号或逗号。逗号。(4)(4)Print方法后面无任何表达式方法后面无任何表达式,表示输出一个表示输出一个空行；空行；如果如果上一上一个个空空PrintPrint方法的末尾有逗号或分号时，则该方法的末尾有逗号或分号时，则该PrintPrint语句表示语句表示结结束上一个束上一个PrintPrint方法末尾的逗号或分号方法末尾的逗号或分号.例如：例如：Private Sub Form_Click()a$=5:b$=8 Debug.Print b,a 每执行一次每执行一次Print要自动换行要自动换行 Debug.Print a,b,Debug.Print 13 和上一个和上一个Print在同一行输出在同一行输出 Debug.Print 下面输出一个空行下面输出一个空行 Debug.Print 输出空行输出空行 Debug.Print b;a;Debug.Print 结束上一个语句末尾的逗号或分号结束上一个语句末尾的逗号或分号 Debug.Print b,a End Sub3.输出格式说明输出格式说明功能：格式化输出函数规定输出数据的格式，返回值是字符功能：格式化输出函数规定输出数据的格式，返回值是字符串。串。格式格式:Format(Expression,FormatSTR)说明：说明：Expression：是要输出的内容是要输出的内容,数值、日期或字符串类型的数；数值、日期或字符串类型的数；FormatSTR：是指定输出格式的是指定输出格式的格式字符串格式字符串。Format()函数一般用于函数一般用于Print方法中方法中。例如：例如：Print Format(123.45,”#.#”)输出为输出为:123.45 4.2.2 格式化输出函数格式化输出函数Format()1.数值格式化数值格式化将数值表达式的值按照指定的格式输出。将数值表达式的值按照指定的格式输出。v若小数部分的位数多于格式字符串的小数位数，若小数部分的位数多于格式字符串的小数位数，按按四舍五入四舍五入处理处理。P77,表 414.2.2 格式化输出函数格式化输出函数Format()字符字符作用作用字符字符作用作用#数值长度比指定小数值长度比指定小不在前后补不在前后补0%改成百分比改成百分比0数值长度比指定小数值长度比指定小在前后补在前后补0$美元格式美元格式.显示小数点显示小数点-，+输出正负号输出正负号，千位分隔符千位分隔符E+，E-指数形式指数形式数值格式化符号与作用 数值格式化举例：数值格式化举例：1)print format$(12345,”00000000”)00012345print format$(12345,”#”)print format$(12345,”000”)print format$(23.45,”#.#”)2)print format$(3.45,”000.00”)3)print format$(12345.678,”#,#.#”)4)print format$(12.67,”00.0%”)5)print format$(12.67,”$#0.00”)6)print format$(-123.45,”000.00”)print format$(123.45,”+000.00”)7)print format$(1234.56,”0.00E+00”)print format$(1234.56,”0.00E-00”)1234512345 23.45 003.4512,345.681267.0%$12.67-123.45+123.451.23E+031.23E032日期与时间数据的格式化输出日期与时间数据的格式化输出将日期和时间数据按照指定的格式输出将日期和时间数据按照指定的格式输出符符 号号 作作 用用 d显示日期显示日期(131)，个位前不加，个位前不加0dd 显示日期显示日期(131)，个位前加，个位前加0 ddd 显示星期缩写显示星期缩写(SunSat)dddd 显示星期全名显示星期全名(SundaySaturday)ddddd 显示完整日期显示完整日期(日、月、年日、月、年)w 星期以数字表示星期以数字表示(17，1是星期天是星期天)ww 一年中的星期数一年中的星期数(153)m 显示月份显示月份(112)，个位前不加零，个位前不加零 mm显示月份显示月份(112)，个位前加零，个位前加零mmm 显示月份缩写显示月份缩写(JanDec)mmmm 显示月份全名显示月份全名(JanuaryDecember)y 显示一年中的天数显示一年中的天数(1366)yy 以两位数显示年份以两位数显示年份(0099)yyyy 四位数显示年份四位数显示年份(01009999)q季度数季度数(14)h显示小时显示小时(023)，个位前不加零，个位前不加零 hh显示小时显示小时(0023)，个位前加零，个位前加零 m在在h后显示分后显示分(059)，个位前不加零，个位前不加零 mm显示分显示分(0059)，个位前加零，个位前加零 s显示秒显示秒(059)，个位前不加零，个位前不加零 ss显示秒显示秒(059)，个位前加零，个位前加零 a/p12小时的时钟，中午前加小时的时钟，中午前加A/a am/pm12小时的时钟，中午前加小时的时钟，中午前加AM/am 注意：注意：m，mm:跟在跟在h，hh后的时候表示分钟；否则表示月份后的时候表示分钟；否则表示月份 非格式说明符非格式说明符“”、“”、“：”等照原样输出等照原样输出 举例：举例：Private Sub Form_Click()Print Format(Now,yyyy-mm-dd dddd)Print Format(Now,ddddd)Print Format(Now,yyyy-mm-dd dddd hh-mm-ss am/pm)Print Format(Now,dd mmmm yyyy)Print Format(Now,h:mm:ss)Print Format(Now,m/d/yy h:mm)End SubP79.vbp3字符串格式化输出 符号符号作用作用强制以大写显示强制以大写显示 当实际字符位数小于指定输出位数时当实际字符位数小于指定输出位数时,字符串字符串前加空格前加空格&当实际字符位数小于指定输出位数时当实际字符位数小于指定输出位数时,字符串字符串前不加空格前不加空格 例如：例如：Private Sub Form_Click()Print Format(“HOW ARE YOU”,)Print Format(“how are you”,“)Print Format(“how are you”,”&”)End sub P79_2.vbp1 1.Tab函数函数(1)(1)函数调用格式：函数调用格式：Tab(n)输出定位函数输出定位函数(2)(2)函数功能：使输出定位在参数函数功能：使输出定位在参数n指定的位置（列数）指定的位置（列数）处。处。如：如：Print Tab(20)Print Tab(20)；“输出在第二十列输出在第二十列”4.2.3 与与Print方法有关的标准函数方法有关的标准函数例：例：Private Sub Form_Load()Debug.Print 编号编号;Tab(15);姓名姓名;Tab(30);专业专业 Debug.Print 001;Tab(16);王玲王玲;Tab(30);计算机科学计算机科学 Debug.Print 002;Tab(16);李爽李爽;Tab(30);古代汉语古代汉语End Sub P80.vbp说明：说明：参数参数n为数值表达式，表示下一输出位置列号，为数值表达式，表示下一输出位置列号，如果当前的显示位置已超过如果当前的显示位置已超过n，则自动下移到下，则自动下移到下一行的这个位置输出。一行的这个位置输出。当当n比行宽大时，实际输出位置为比行宽大时，实际输出位置为 n Mod 行宽，行宽，如果如果n1，则把输出位置移到第，则把输出位置移到第1列。列。2Spc函数函数(1)(1)函数调用格式：函数调用格式：Spc(n)(2)函数功能：用在函数功能：用在Print方法中，其作用表示输出方法中，其作用表示输出n个空格。个空格。说明：说明：参参数数n是是一一个个数数值值表表达达式式，其其取取值值范范围围为为032767的的整整数数，函数函数Tab(n)和和Spc(n)间的区别间的区别：Tab(n)的的作作用用表表示示使使被被输输出出的的内内容容输输出出到到第第n列列（从从对对象象的的左左端开始计算）的位置处。端开始计算）的位置处。而而Space(n)表示两个输出项间空表示两个输出项间空n格。格。1.ScaleWidth和和ScaleHeight属性属性功能：设置或返回对象的宽度和高度。功能：设置或返回对象的宽度和高度。使用格式：使用格式：对象名对象名.ScaleHeight=value.ScaleHeight=value 对象名对象名.ScaleWidth=value.ScaleWidth=value说明：说明：对对象象名名可可以以是是窗窗体体名名、图图片片框框名名或或打打印印机机对对象象（Printer），如果省略对象名时，表示当前窗体。如果省略对象名时，表示当前窗体。只能在程序代码中使用，不能在设计界面时设定其值。只能在程序代码中使用，不能在设计界面时设定其值。若省略若省略“=Value”，则表示返回当前对象的宽度和高度。，则表示返回当前对象的宽度和高度。4.2.4 与与Print方法有关的属性和方法方法有关的属性和方法2.CurrentX和和CurrentY属性属性功能：设置或返回在对象上的输出位置坐标。功能：设置或返回在对象上的输出位置坐标。使用格式：使用格式：对象名对象名.CurrentX=x 对象名对象名.CurrentY=y“对象名对象名”是是窗体、图片框或打印机对象（窗体、图片框或打印机对象（Printer），如果省略对象名，则表示当前窗体。如果省略对象名，则表示当前窗体。只能在程序代码中使用。只能在程序代码中使用。坐标是各坐标是各对象对象以其自己的以其自己的左上角为参考点左上角为参考点的坐标。的坐标。Private Sub Form_Click()Print 当前坐标为当前坐标为(;Form1.CurrentX;,;Form1.CurrentY;)CurrentX=1000 CurrentY=800 Print 当前坐标为当前坐标为(;Form1.CurrentX;,;Form1.CurrentY;)CurrentX=ScaleWidth/2 CurrentY=ScaleHeight/2 Picture1.Print“当前坐标为当前坐标为(;Form1.CurrentX;,;_Form1.CurrentY;)Picture1.Print 当前坐标为当前坐标为(;Picture1.CurrentX;,;_Picture1.CurrentY;)Picture1.Print I love you Picture1.CurrentX=1000 Picture1.CurrentY=500 Picture1.Print HOW ARE YOUEnd Sub exam4_5.vbp3.TextHeight和和TextWidth方法方法功能：返回一个文本字符串的高度和宽度值。功能：返回一个文本字符串的高度和宽度值。调用格式：调用格式：对象名对象名TextHeight（字符串）（字符串）对象名对象名TextWidth（字符串）（字符串）说明：说明：“对象名对象名”为窗体、图片框或打印机对象为窗体、图片框或打印机对象例例4.6 p84 对象对象.Height=.Height=高度值高度值 对象对象.Width=.Width=宽度值宽度值 对象对象.Left=.Left=距左边距离距左边距离 对象对象.Top=.Top=距顶边距离距顶边距离 （修正课本）（修正课本）topleftheighwidth4.Height、Width、Top及及Left属性属性设置对象的大小（设置对象的大小（Height、Width）以及在容器（如窗体）以及在容器（如窗体）中的位置（中的位置（Top、Left）。）。(1)(1)对对窗体窗体对象来说，对象来说，Left、toptop属性是与屏幕的相对位置；属性是与屏幕的相对位置；（2.3.2,p192.3.2,p19）对对控件控件对象来说，对象来说，Left、top 属性是与窗体的相对位置。属性是与窗体的相对位置。(2)(2)屏幕对象屏幕对象 Screen只有只有 Height和和Width两个属性，且是只读的。两个属性，且是只读的。Screen.Width为为屏幕的宽度，屏幕的宽度，而而Screen.Height为为屏幕的高度屏幕的高度 例例4.7 4.7 将窗体的大小设置为屏幕大小的将窗体的大小设置为屏幕大小的50%50%，并使窗体居中。，并使窗体居中。Private Sub Form_Click()Private Sub Form_Click()Width=Screen.Width*0.5 Width=Screen.Width*0.5 设置窗体的宽度设置窗体的宽度 Height=Screen.Height*0.5 Height=Screen.Height*0.5 设置窗体的高度设置窗体的高度 Left=(Screen.Width-Width)/2 Left=(Screen.Width-Width)/2 Top=(Screen.Height-Height)/2 Top=(Screen.Height-Height)/2 End SubEnd Sub exam4_7.vbpexam4_7.vbp 5.Cls方法方法功能：清除功能：清除窗体窗体或或图片框图片框中由中由Print方法和图形方法生成方法和图形方法生成的文本或图形。的文本或图形。.调用格式：调用格式：对象名对象名ClsCls6.Move方法方法 功能：用来移动窗体或控件，并可改变其大小。功能：用来移动窗体或控件，并可改变其大小。格式：格式：对象对象 Move 左边距离左边距离，上边距离，上边距离，宽度，宽度，高度，高度 说明：说明：“对象对象”可以是窗体及除计数器（可以是窗体及除计数器（Timer）、菜单）、菜单（Menu）外的所有控件。）外的所有控件。如果省略如果省略“对象对象”，则表示要，则表示要移动的是窗体。移动的是窗体。例例4.8 图形起始点移到窗体的中心，同时图形图形起始点移到窗体的中心，同时图形框框缩小缩小50%。Private Sub Form_Load()Image1.Top=0 Image1.Left=0 Image1.Picture=LoadPicture(App.Path+诱人的水诱人的水果小果小2.jpg)End SubPrivate Sub Image1_Click()Image1.Move Form1.ScaleWidth/2,Form1.ScaleHeight/2,_ Image1.Width/2,Image1.Height/2End Sub （修改课本）（修改课本）exam4_8.vbp4.3 MsgBox函数和过程函数和过程MsgBox函数的功能是在一个对话框中显示消息，等待用户函数的功能是在一个对话框中显示消息，等待用户单击按钮，并返回一个整型数据。单击按钮，并返回一个整型数据。MsgBox过程与过程与MsgBox函数的功能相同，只是它没有返回函数的功能相同，只是它没有返回值。值。一、一、调用的语法格式调用的语法格式函数调用：函数调用：Variable=MsgBox(Prompt,Buttons,Title)过程调用：过程调用：MsgBox Prompt,Buttons,Title1)Variable：变量，用于接收：变量，用于接收MsgBox函数的返回值。函数的返回值。2)Prompt，Title：“提示提示”和和“标题标题”。3)Buttons：按钮样式，为一整形表达式，最多可以由：按钮样式，为一整形表达式，最多可以由4项项数值相加。数值相加。+一、一、调用的语法格式调用的语法格式3)Buttons：按钮样式，为一整形表达式，最多可以由：按钮样式，为一整形表达式，最多可以由4项项数值相加。数值相加。+标题标题图标图标提示提示按钮按钮组别组别内部常数内部常数 数值数值描述描述按钮数按钮数目以及目以及样式样式vbOKOnly0只显示只显示“确定确定”按钮按钮vbOKCancel1显示显示“确定确定”和和“取消取消”按钮按钮vbAbortRetryIgnore2显示显示“终止终止”、“重试重试”和和“忽略忽略”按钮按钮vbYesNoCancel3显示显示“是是”、“否否”和和“忽略忽略”按钮按钮vbYesNo4显示显示“是是”和和“否否”按钮按钮vbRetryCancel5显示显示“重试重试”和和“取消取消”按钮按钮组别组别内部常数内部常数 数值数值描述描述图标类图标类型型vbCritical16危急信息图标危急信息图标vbQuestion32询问图标询问图标VbExclamation64惊叹信息图标惊叹信息图标默认按默认按钮钮vbDefaultButton10第一个按钮为缺省值第一个按钮为缺省值vbDefaultButton2256第二个按钮为缺省值第二个按钮为缺省值vbDefaultButton3512第三个按钮为缺省值第三个按钮为缺省值vbDefaultButton4768第四个按钮为缺省值第四个按钮为缺省值二、二、MsgBox函数的返回值函数的返回值内部常数内部常数 数值数值被单击的按钮被单击的按钮vbOK1确定确定vbCancel2取消取消vbAbort3终止终止vbRetry4重试重试vbIgnore5忽略忽略vbYes6是是vbNo7否否例例4.94.9：设计一工程，运行程序时，单击窗体产生一个：设计一工程，运行程序时，单击窗体产生一个MsgBox对话框。根据用户的不同选择，分别作退出或继续操对话框。根据用户的不同选择，分别作退出或继续操作作Private Sub Form_Click()Tile$=“警告警告“标题标题 Prompt$=“退出程序吗？退出程序吗？“提示信息提示信息 result=MsgBox(Prompt,vbYesNo+vbDefaultButton1+vbQuestion,Tile)If result=6 Then 如果单击了如果单击了“Y”End Else:Print 继续！继续！如果单击了如果单击了“N”End IfEnd SubExam4_9.vbp一、字形控制属性）一、字形控制属性）1.字体类型（字体类型（FontName）窗体名窗体名.控件名控件名.|Printer.FontName=“字体类型名字体类型名”FontName可作为窗体、控件或打印机的属性。可作为窗体、控件或打印机的属性。例如：例如：FontName=宋体宋体 FontName=Times New Roman Textl.FontName=“隶书隶书”2.字体大小（字体大小（FontSize）窗体名窗体名.控件名控件名.|Printer.FontSize=点数点数 3.字体修饰属性字体修饰属性4.4 字形与颜色控制字形与颜色控制3.字体修饰属性字体修饰属性(1)粗体属性粗体属性 FontBold 窗体名窗体名.控件名控件名.|Printer.FontBold=布尔值布尔值(2)斜体属性斜体属性 FontItalic(3)加删除线加删除线 FontStrikethru(4)加下划线加下划线FontUnderline(5)重叠显示属性重叠显示属性FontTransparent 二、颜色控制二、颜色控制1.使用使用RGB函数函数功能：返回一个功能：返回一个Long整数，用来表示一个整数，用来表示一个RGB颜色值颜色值。格式：格式：RGB(Red,Green,Blue)说明：参数说明：参数Red、Green、Blue为三种颜色的亮度值，取值为为三种颜色的亮度值，取值为0255。例如：例如：Form1.ForeColor=RGB(255,0,0)设定前景为红色设定前景为红色 Form1.BackColor=RGB(0,0,255)设定背景为蓝色设定背景为蓝色 2.使用使用QBColor函数函数v功能：返回一个功能：返回一个Long值，用来表示一个值，用来表示一个RGB颜色值。颜色值。v格式：格式：QBColor(Color)v说明：参数说明：参数Color：015，共代表，共代表16种颜色。种颜色。表表4-6 p93例如：例如：Form1.ForeColor=QBColor(12)Form1.BackColor=QBColor(9)3.使用系统定义的颜色常数使用系统定义的颜色常数 vbRed、vbGreen、vbBlack、vbYellow、vbBlue 等。表等。表4-7,P93 例如：例如：Form1.ForeColor=vbRed Form1.BackColor=vbBlue4.直接使用颜色设置值直接使用颜色设置值 用十六进制指定颜色的格式为：用十六进制指定颜色的格式为：HBBGGRR 例如：例如：Form1.ForeColor=H0000FF FormlBackColor=HFF0000 例例4.13 4.13 使用使用QBColor函数，输出函数，输出16种不同颜色的文字种不同颜色的文字Private Sub form_Click()FontSize=16 FontBold=True For i=0 To 15 Form1.ForeColor=QBColor(i)Form1.Print“梅花香自苦寒来梅花香自苦寒来”Next iEnd SubExam4_13.vbp4.5 用打印机输出数据用打印机输出数据一、利用一、利用Printer对象直接输出到打印机对象直接输出到打印机1.Printer对象的对象的Print方法方法 Printer.Print表达式表表达式表 2.与与Printer对象有关的属性和方法对象有关的属性和方法 (1)Page属性属性 作用：用于设置打印的页号。作用：用于设置打印的页号。使用格式：使用格式：Printer.Page 例：例：Printter.Print“页号：页号：”；Printer.Page (2)NewPage方法方法 作用：实现换页操作。作用：实现换页操作。使用格式：使用格式：Printer.NewPage (3)EndDoc方法方法 作用：结束数据的打印作用：结束数据的打印 使用格式：使用格式：Printer.EndDoc 例例4.14 写一程序向打印机输出文本。写一程序向打印机输出文本。Exam4_14.vbpPrivate Sub Form_Click()FontName=黑体黑体 FontSize=28 Printer.Print 欢迎使用欢迎使用Visual Basic！Printer.Print 正在进行打印输出！正在进行打印输出！Printer.Print 打印测试完毕打印测试完毕Printer.Print Printer.Page 使用属性使用属性Page Printer.NewPage 调用方法调用方法NewPage Printer.Print 这是第这是第;Printer.Page;页页Printer.EndDoc 使用属性使用属性EndDocEnd Sub二、利用窗体的二、利用窗体的PrintForm方法间接向打印机输出方法间接向打印机输出 格式：格式：窗体名窗体名.PrintForm作用：把窗体上的内容打印出来。作用：把窗体上的内容打印出来。说明：说明：用用PrintForm方方法法不不仅仅可可打打印印窗窗体体上上的的文文本本，也也可可以以打打印出窗体上的任何可见控件及图形信息印出窗体上的任何可见控件及图形信息利利用用窗窗体体打打印印输输出出时时，必必须须将将该该窗窗体体的的“AutoRedraw”属性设置为属性设置为True（该属性的默认值为（该属性的默认值为False）结束语当你尽了自己的最大努力时，失败也是伟大的，所以不要放弃，坚持就是正确的。When You Do Your Best,Failure Is Great,So DonT Give Up,Stick To The End谢谢大家荣幸这一路，与你同行ItS An Honor To Walk With You All The Way演讲人：XXXXXX 时 间：XX年XX月XX日