自定义报表打印设置对话框作者: 红虎 | 发布时间: 2001-1-31 | 最后更新: 2001-3-11 | 点击数: 7063 | 级别: 0 关键字: Visual FoxPro | 报表 说明：原有的VFP的打印设置框，应该说她没什么不好，只是有时她是系统提供的，我们很难对她进行一些认为的设置，所以也只能使用她的提供的功能，而她没提供的功能就很难去实现，或者不方便，因此针对此情况编写此程序用来替换系统的打印设置对话框，采用自定义的打印设置对话框。提示：因为该文处于文章排版的需要，所以采用了汉字双字节的空格，而这些空格在程序中执行会提示错误，所以请将以下代码选择复制后，请再处理去掉其中包含的双字节空格，可用一些文字处理软件将双字节空格“”全部替换为单字节空格！*- 程序名称：RptPrint.prg*- 程序功能：以自定义的对话框显示报表的打印设置，以取代系统打印设置的一些不足*- 使用方法：RptPrint ( )* 或者：do RptPrint with *- 程序说明：cReportName 为 报表文件名（无须带扩展名），如果省略的话，则可显示设置对话框* 报表的扩展名以 frx 为准*- 原创作者：红虎 *- 联系方式：E-mail: hu_feng163.net* HomePage: http:/www.honghoo.net* Oicq: 1569040*- 编写日期：2001年1月Func RptPrintpara rptname*- 创建打印设置对话框oPrintSetup=createobject(printsetup)oPrintSetup.show*- 定义打印设置对话框DEFINE CLASS printsetup AS formTop = 11Left = 115Height = 270Width = 531Desktop = .T.DoCreate = .T.Caption = 报表打印设置Name = PRINTSETUP*- 新增属性nxcoord = 0& 可以使点击对话框就可以拖动的坐标nycoord = 0rptname = & 报表的文件名ADD OBJECT shape1 AS shape WITH ;Top = 12, ;Left = 12, ;Height = 144, ;Width = 504, ;Enabled = .F., ;SpecialEffect = 0, ;Name = Shape1ADD OBJECT label1 AS label WITH ;AutoSize = .T., ;Caption = 打印机, ;Height = 16, ;Left = 22, ;Top = 9, ;Width = 38, ;Name = Label1*- 存放目前安装的打印机的名称列表ADD OBJECT printerlist AS combobox WITH ;Alignment = 0, ;Height = 22, ;Left = 112, ;Style = 2, ;Top = 33, ;Width = 260, ;Name = PrinterListADD OBJECT label2 AS label WITH ;AutoSize = .T., ;Caption = 打印机名(N)：, ; Height = 16, ;Left = 24, ;Top = 36, ;Width = 86, ;Name = Label2ADD OBJECT label3 AS label WITH ;AutoSize = .T., ;Caption = 状态：, ;Height = 16, ;Left = 24, ;Top = 60, ;Width = 38, ;Name = Label3ADD OBJECT label4 AS label WITH ;AutoSize = .T., ;Caption = 类型：, ;Height = 16, ;Left = 24, ;Top = 84, ;Width = 38, ;Name = Label4ADD OBJECT label5 AS label WITH ;AutoSize = .T., ;Caption = 位置：, ;Height = 16, ;Left = 24, ;Top = 108, ;Width = 38, ;Name = Label5ADD OBJECT label6 AS label WITH ;AutoSize = .T., ;Caption = 纸张：, ;Height = 16, ;Left = 24, ;Top = 132, ;Width = 38, ;Name = Label6*- 显示打印机的位置的标签ADD OBJECT printerlocation AS label WITH ;AutoSize = .T., ;Caption = PrinterLocation, ;Height = 16, ;Left = 112, ;Top = 108, ;Width = 92, ;Name = PrinterLocationADD OBJECT cmdok AS commandbutton WITH ;Top = 178, ;Left = 442, ;Height = 25, ;Width = 66, ;Caption = 确定, ;Default = .T., ;Name = cmdOk*- 打印机状态标签ADD OBJECT printerstatus AS label WITH ;AutoSize = .T., ;Caption = PrinterStatus, ;Height = 16, ;Left = 112, ;Top = 60, ;Width = 80, ;Name = PrinterStatusADD OBJECT command1 AS commandbutton WITH ;Top = 226, ;Left = 442, ;Height = 25, ;Width = 66, ;Cancel = .T., ;Caption = 取消, ;Name = Command1ADD OBJECT shape5 AS shape WITH ;Top = 171, ;Left = 14, ;Height = 84, ;Width = 252, ;Enabled = .F., ;SpecialEffect = 0, ;Name = Shape5ADD OBJECT label11 AS label WITH ;AutoSize = .T., ;Caption = 打印范围, ;Height = 16, ;Left = 24, ;Top = 168, ;Width = 50, ;Name = Label11ADD OBJECT shape6 AS shape WITH ;Top = 170, ;Left = 276, ;Height = 84, ;Width = 143, ;Enabled = .F., ;SpecialEffect = 0, ;Name = Shape6ADD OBJECT label12 AS label WITH ;AutoSize = .T., ;Caption = 份数, ;Height = 16, ;Left = 286, ;Top = 167, ;Width = 26, ;Name = Label12*- 打印范围选择ADD OBJECT optiongroup2 AS optiongroup WITH ;AutoSize = .F., ;ButtonCount = 3, ;BackStyle = 0, ;BorderStyle = 0, ;Value = 1, ;Enabled = .T., ;Height = 62, ;Left = 25, ;Top = 184, ;Width = 236, ;Name = Optiongroup2, ;Option1.Caption = 全部(A), ;Option1.Value = 1, ;Option1.Height = 16, ;Option1.Left = 5, ;Option1.Style = 0, ;Option1.Top = 5, ;Option1.Width = 69, ;Option1.AutoSize = .T., ;Option1.Name = Option1, ;Option2.Caption = 当前页(E), ;Option2.Height = 16, ;Option2.Left = 82, ;Option2.Style = 0, ;Option2.Top = 5, ;Option2.Width = 81, ;Option2.AutoSize = .T., ;Option2.Name = Option2, ;Option3.Caption